标签：
数字和字符串上下文$result = '123' + '345'; ## 468 $result = 123 . 345 ; ##1233456 print "12 is less than 2!\n" if '12' lt '2'; ##lt为字符串比较 print "Oh noes! foo is bar!\n" if 'foo' == 'bar'; ## ==为数值比较符，foo和bar转换为数值0；
标量和列表上下文
档操作需要的是单个对象时，Perl会使用标量上下文。期望多个对象时，使用列表上下文。其实关键在于操作符，即在Perl语法中，操作符把上下文看成怎样的情景。如操作符两边需要的都是单个操作对象：
1 + 2; 'foo' . 'bar';列表操作符期望操作的是多个元素，如print，它会取得一列元素并输出：
print reverse( 1..10 ) ."\n";在Perl中，while的条件语句是标量上下文环境，而foreach的则是列表上下文：
while(标量上下文){...}
foreach(列表上下文){...}加入要遍历某个文件句柄，对其中的每行内容进行处理，一旦发现 "__END__" 就立即停止。在while循环中，我们会依次读入一行内容进行处理，然后结束本次循环，继续读入文件句柄中的下一行：while(<STDIN>){
last if /__END__/;
...;
}
$next_line = <STDIN>;改为foreach：foreach(<STDIN>){
last if /__END__/;
....;
}
$next_line = <STDIN>; ##完蛋了，没其他内容。因为foreach的列表环境一次性把所有的内容都从STDIN中读出来了，STDIN里已经什么都没有了。一般while这样边度边处理的方式比较合适。
赋值操作决定的上下文
如果左值是一个列表，那么Perl认为右值是一个列表。如果左值是一个标量变量，右值只取标量变量部分。
如：
$n = ( 'a','b','c'); #$n为'a';
($n,$m) = ('a','b','c'); #$n为'a' $m为'b'
@arr = ('a','b','c');
@lines = <STDIN>; #读入所有行
$line = <STDIN>; #只读取一行
空上下文结果
某些情况下，Perl会告诉我们空上下文结果操作毫无意义。比如打开warnings开关时，Perl会报：Useless use of a variable in void context
如：
some_sub(@args);
grep {/foo/} @array;
1 + 2;
##上面的计算结果，没有被使用标签：
原文地址：http://blog.csdn.net/u011641885/article/details/46136155
