2

例如文本文件：

    说朋友并进入

使用 Perl 脚本删除空格并用回车替换

    说话
    朋友
    和
    进入
4

5 回答 5

21 
perl -p -e 's/\s+/\n/g'
于 2009-07-28T14:29:28.167 回答
3

创建一个文件 test.pl：

open my $hfile, $ARGV[0] or die "Can't open $ARGV[0] for reading: $!";
while( my $line = <$hfile> )
{
    $line =~ s/\s+/\n/g;
    print $line;
}
close $hfile;

然后像这样运行它：

perl test.pl yourfile.txt

或者，如果您不想使用文件，则可以从命令行执行所有操作，例如：

perl -p -e "s/\s+/\n/g" yourfile.txt
于 2009-07-28T14:33:08.940 回答
1

您可以使用sed

sed -e "s/[ ]/\n/g"

或任何适用于正则表达式的东西

"s/[ ]/\n/g"
于 2009-07-28T14:34:08.533 回答
1

如果要就地编辑，可以使用 -i 开关。查看perlrun以了解它是如何完成的，但是，基本上：

perl -p -i.bak -e 's/\s+/\n/g'
于 2009-07-28T16:03:17.140 回答
1 
#!/usr/bin/perl -l

use strict;
use warnings;

print join "\n", split while <>;
于 2009-07-28T18:56:55.780 回答