perl学习笔记5

 @backwards = reverse qw /yabba dabba doo /;

 $fred = @backwards; # 3
 ($fred) = @backwards; # doo

 

@betty = (); #将数组置空的正确方法

 @rocks = qw(talc quartz jade obsidian);
 print @rocks, "\n"; # talcquartzjadeobsidian
 print scalar @rocks, "\n"; # 4

 

<STDIN>在标量context 中返回输入的下一行。

在列表context 中，它将返回这个输入文件的所有剩余部分。

@lines = <STDIN>; #将输入读入列表context 中

如果输入来源于键盘，那文件结束符(end-of-file)是怎样输入的呢？

 

在Unix 或者类似的系统中，包括linux, Mac OS X，通常可以输入CTRL +D。

在DOS/WINDOWS 系统中，使用CTRL +Z。

 

 @rocks = <STDIN>; # 读入所有的行
 chomp @rocks; # 去掉所有的换行符
 print "'@rocks' \n";

 

子程序的参数存放在@_数组变量中，参数1：$_[0]，参数2：$_[2]…

 sub max{
 my($m,$n); # 新的，私有变量
 ($m,$n)=@_; # 赋值
 if($m>$n){$m}else{$n}
 }

 

重写max方法，让它可以使用任意参数：

 sub max{
   my($max_so_far)=shift @_;
   foreach(@_){
     if($_>$max_so_far){
       $max_so_far=$_;
     }
   }
   $max_so_far;
 }

 

use strict; #迫使采用更严格的检测

命令perldoc strict将为你找到相应的文档。