Perl语言学习笔记 5 输入与输出

1、读取标准输入 chomp($line = <STDIN>); 2、判断是否读到文件末尾 defined($line = <STDIN>); 3、读取文件内容 while(<STDIN>){ print $_; #恰好while的默认变量为$_，因此在此处可以使用; } foreach (<STDIN>){ print $_; } while与foreach的差别：while一次读取一行，foreach一次读取全部，然后对列表进行循环，最好用while； 4、钻石操作符：<> 根据调用参数，从指定地方读取数据，例如：./my_program file1 file2 file3，依次从file1、file2、file3一行一行地读取数据； while(<>){ chomp; print $_; } <>的参数来自@ARGV数组，可以对@ARGV进行处理，控制<>的执行； 5、标准输出 print print @arry; #把数组的元素打印出来 print "@arry"; #打印出一个字符串，数组内插 print在数组内插是会在元素之间加入空格； print (2+3)*4; #会输出5，print认为紧跟其后的括号为函数调用，= (print (2+3))*4 6、printf 格式化输出 %g：自动选择浮点、整数或指数； %d：整数，%5d：不到5位前边补充空格，超过5位自动延伸； %s：字符串，%5s：不足前边补齐，超过自动扩展，%-5s：左对齐； %f：浮点数，四舍五入； %%：输出% 输出数组：printf "the item are :n".("%10sn" x @items),@items; 7、打开与关闭文件句柄 open CONFIG,"dion"; #打开一个输入流 open CONFIG,"<dino"; #打开一个输入流 open BEDROCK,">fred"; #打开一个输出流 open LOG,">>logfile"; #追加写入 5.6版本以后：open CONFIG,"<","dino"、open CONFIG,">",">>","dino" 返回值为是否成功（1/0）,要检查是否open成功打开！ close CONFIG; #关闭文件句柄 建议文件句柄用大写； 8、处理严重错误和警告 if(!open LOG,">>loggile"){die "acn't open file :$!";} die会终止程序的运行，warn不会终止程序运行，其他与die用法一致； $!：显示系统服务请求的错误； 信息尾部加上换行符，则不显示错误的行号和文件名，例：die "Not enough argumentsn"; 9、使用文件句柄 <CONFIG>，与<STDIN>用法相同； 写入： print CONFIG "input info"; printf CONFIG "your name is %s",$name; 10、改变默认的文件输出句柄 select CONFIG; #使用完毕，切换回<STDOUT> 11、$| = 1; #每次操作结束立即刷新缓冲区 12、Perl保留的特殊文件句柄：STDIN、STDOUT、STDERR、DATA、ARGV、ARGVOUT 复用标准的文件句柄：open STDERR,">>err_log"; 13、使用say输出 从perl 5.10以后可以使用; 除输出带换行符的字符串外，其他与print一样; 输出到文件句柄：say CONFIGFILE “hello”;