`
suxing
  • 浏览: 201186 次
  • 性别: Icon_minigender_1
  • 来自: 遵义
社区版块
存档分类
最新评论

perl语言初识

    博客分类:
  • 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根据上下文取义,第一次作为标量,第二次作为列表。

 

 

 

分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics