Perl语言学习笔记 5 输入与输出
前端之家收集整理的这篇文章主要介绍了
Perl语言学习笔记 5 输入与输出，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
@H_
502_0@
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".("%10s\n" 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 arguments\n"; 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”;
