perl语言初识
1、关于perl的第一个例子$maximum = &max(3,5,10,4,6);
sub max {
my($max_so_far) = shift @_;
foreach (@_){
if($_>$max_so_far){
$max_so_far=$_;
}
}
$max_so_far;
}
这是教程中求最大值函数，对perl的初学者绝对是一头雾水，关键点：
1)、@_ 函数max的参数列表
2)、my 定义局变量，perl默认为全局变量
3)、$_ 默认变量，foreach没有定义循环变量，就使用它
4)、返回值 函数没有return，最后一行运算值就是函数的返回值
5)、shift 数组首部pop
2、标准输入和默认变量
while(<STDIN>){
print "saw $_";
}
foreach(<STDIN>){
print "saw $_";
}
这两段都是将输入的字符打印出来，都用到了默认变量$_。
区别在于：while读入一行打印一行，foreach读入所有数据再打印。
从文件读入时就要注意了。
3、perl的上下文
my @items=qw(wilma dino pebbles);
printf "The items are:\n".("%10s\n" x @items),@items;
格式输出一行，@items出现了两次，perl根据上下文取义，第一次作为标量，第二次作为列表。
页:
[1]