Perl Perl 移除 whitespaces 的问题

Tina217 · 发布于 2012年8月02日 · 178 次阅读
96

刚接触perl几个月,绝对的新手 我想从命令行读取指定的text文件,把其中的空白行删除。 以下是我的代码,不知道问题出在哪里,空白行始终存在啊

#!/perl -w use strict; use Getopt::Long; use Path::Class; use List::MoreUtils 'apply';

my $filelist = q{}; GetOptions('filelist=s' => \$filelist); my @array = file($filelist)->slurp( chomp => 1 ); foreach(@array){$_ =~ s/\n* \s* \z//g;} print @array;

共收到 2 条回复
96
scmroad · #1 · 2012年8月02日

能否把你的txt文件的一部分上传上来?

也许是你的文件的空白行中不是空白,有空格之类的

96
scmroad · #2 · 2012年8月02日

[code]$_ =~ s/\n* \s* \z//g [/code]换成[code]$_ =~ s/\s*\n//mg;[/code]试试

需要 登录 后方可回复, 如果你还没有账号请点击这里 注册