Perl中的骆驼精神(三)
Perl中读取标准输入：<STDIN>foreach (<STDIN>){ print "I saw $_";}
钻石操作符<>：它的参数来源于@ARGV数组。
先检查@ARGV数组，如果为空，则从标准输入流输入。@ARGV的值可以来自命令行，也可以自己赋值。
./programfredbarney 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)文件句柄：openCONFIG,'< 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会自动在输出的字符结束添加换行符。
页:
[1]