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