perl-智能操作符和given

智能匹配操作符（～～）会根据自己决定该用何种方式比较两端的操作数，
使用智能匹配时，对两边操作数的顺序没有要求，倒过来写也行。
given-when控制结构能够根据given的参数，执行某个条件对应的语句块。这是Perl用来应付C语言的switch语句的等效物
笨拙匹配：Perl只要看到明确书写的比较操作符或是绑定操作符，它就会按这些操作符的要求去做。
在某些特定情况下，Perl会自动使用笨拙匹配模式。
多个项目的when匹配：要遍历多个元素，就别用given。使用foreach的简写方式，让它给当前正在遍历的元素起个化名$_。此外，若要用智能匹配，当前元素就只能是$_。
你甚至还可以在若干when语句之间写上其他语句。