Perl中的输入输出流(三)

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来表示文件句柄。

close $rocks_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会自动在输出的字符结束添加换行符。