Perl Learning (3_2) —— 标量上下文与列表上下文

2011-01-22 wcdj

?

同一个表达式，出现在不同的地方会有不同的意义。除非你知道上下文（context），否则一定没办法确认它的含义。
所谓上下文：指的是表达式所在的位置。
42 + something # 这里的something必须是标量 sort something # 这里的something必须是列表 @people=qw(wcdj gerry yj); @sorted=sort @people;# 列表上下文：wcdj,gerry,yj $number=42+@people;# 标量上下文：42+3，得45 print "$number/n";# 45 @list=@people;# 得到三个人的名单列表 $cnt=@people; print "$cnt/n";# 得到人数3

(1) 在标量上下文中使用产生列表的表达式
(2) 在列表上下文中使用产生标量的表达式

注意：强制指定标量上下文
@name=qw(wcdj gerry yj); print @name,"/n";# wcdjgerryyj print scalar @name,"/n";# 3，强制指定标量上下文

(3) 列表上下文中的<STDIN>
<STDIN>在标量上下文中会返回输入数据的下一行。
<STDIN>在列表上下文中会返回所有剩下的行，直到文件结尾为止。返回的每一行都会成为列表中的某个元素。
例如：
@line=<STDIN>;# 在列表上下文中读取标准输入 chomp(@line);#去掉所有的换行符 print "@line/n";
更常见的写法是：
chomp(@line=<STDIN>);# 读入所有的行，换行符除外

问题：
写一个程序，读入一些数字（每行一个），直到文件结尾为止。然后，根据每一个数字，输出如下名单中相应的人名（请将这份名单写到程序里）。比方说，如果输入的数字是1、2、3，那么输出的人名将会是wcdj、gerry和yj。

@line=<STDIN>;# 在列表上下文中读取标准输入 chomp(@line);#去掉所有的换行符 print "@line/n"; @name=qw{wcdj gerry yj}; foreach (@line) { #print "num=$num/n"; print "$name[$_-1]"; }