Perl中的骆驼精神(三)

jane27

　　Perl中读取标准输入：<STDIN>
　　foreach (<STDIN>)  { print "I saw $_";}
　　钻石操作符<>：它的参数来源于@ARGV数组。
　　先检查@ARGV数组，如果为空，则从标准输入流输入。@ARGV的值可以来自命令行，也可以自己赋值。
　　./program  fred  barney betty     #@ARGV的值便是命令行后的三个文件。
　　while (<>)   {  chomp;   print "It's was $_ that I saw";}
　　
　　Perl中的标准输出：print。输出多项时，可以通过加"，"来隔开，各自用双引号括起。
　　用print输出数组时。print @array;  #会输出@array中所有元素，以空格分隔。相当于数组内插。
　　用printf格式化输出。%g/%d/%s/     printf  “The items are:\n”.("%10s\n"x@items), @items;  #定义多个%s
　　注意print加括号时是显式的函数调用，是列表上下文，返回列表。不加括号时，返回标量0/1。
　　print <>;     将输入直接输出。
　　
　　文件句柄：代表Perl进程与I/O之间联系的名称，而不是说一个文件的名称，
　　Shell中的文件I/O流：      ./program  <dino  >wilma          #表示从文件dino输入，输出到wilma，Perl程序仍然是输入STDIN,
　　输出到STDOUT。剩下的部分由Shell来处理。
　　netstat  |  ./your_program    2>/tmp/my_errors   #对STDERR重定向。
　　
　　裸字(bareward)文件句柄：  open  CONFIG,  '< dino';     #打开dino文件作为输入，文件句柄的操作符叫CONFIG。
　　Perl中默认打开的文件句柄是输入。'>'输出，'>>'追加在某个已经存在的文件后。注意将文件用单引号括起来。
　　close CONFIG;                    #关闭文件句柄
　　
　　使用标量变量的文件句柄：一般先用词法变量my来定义。
　　my  $rocks_fh;
　　open $rocks_fh,  '>', 'file.txt';               #一般用后缀_fh来表示文件句柄。
　　
　　在Perl中可以使用die和warning来，分别结束当前Perl进程，和输出warning到STDERR。
　　die "Cannot create LOG flie：$!"      #$!表示进行系统调用时的返回值。Perl默认会将Perl文件名和行号加在log中。
　　die "Cannot create LOG flie：$! \n"     #加了换行符后，Perl不会再加入文件名和行号。  
　　
　　使用文件句柄来输入时：直接在<>括号中加入句柄名。
　　while (<PASSWD>)   {......}      
　　使用文件句柄来输出时：在print/printf 后加入文件句柄名。但是不要加逗号，否则会当做需要输出字符串的字数的一部分。或者直接用
　　花括号{}将文件句柄的名字括起来。
　　print  {LOG}  "HAHA";   
　　
　　改变默认的文件句柄，使用select关键字。 select LOG;   select STDERR;
　　从Perl5.10开始，可以使用say来代替print。say会自动在输出的字符结束添加换行符。