Perl文件句柄相关的常见变量
对应的官方手册:http://perldoc.perl.org/perlvar.html#Variables-related-to-filehandles 默认情况下:
注意:输出的分隔符只适用于print,不适用say。 例如: 1.指定输出行分隔符 { my $ = "n"; print "new line1"; print "new line2"; print "new line3"; # 可以指定多个字符:$ = "YYY" } 上面将换行输出各行。 2.指定输出字段分隔符 { my $,="-"; print "new field1","new field2","new field3","n"; # 可以指定多个字符:$,= "YYY" } 上面将输出: 3.数组输出字段分隔符 #!/usr/bin/perl { $"="x"; @arr=qw{perl python shell}; print "@arr","n"; } 上面将输出:"perlxpythonxshell"。 4. #!/usr/bin/perl # 打开文件,看行号 open LOG1,"<","test.log"; while(<LOG1>){ print "Line $.: $_"; } print "---------------------n"; close LOG1; # 关闭上面的文件句柄后,再打开一次文件句柄,行号重置 open LOG2,"test.log"; while(<LOG2>){ print "Line $.: $_"; } print "---------------------n"; close LOG2; # 从<>读内容,行号一直变大 while(<>){ print "Line $. from $ARGV: $_"; } 5. 例如,以下是test1.log文件的内容: a b x c d x e 以下是15.plx的源代码: $/="x"; while(<>){ print "Line $.: $_","n"; } 执行的结果: 注意换行符"x"也会保留在行中。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |