perl语言初识

我是007

　　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根据上下文取义，第一次作为标量，第二次作为列表。