lines2one 将文件压成一行

今天要处理一个文件，这个文件有许多行，处理起来不如一行来得爽，所以，就想写个脚本
来将文件整成一行，然后处理，这其实很简单，就是一行行的读文件，然后只送一个'\n'
就好了，下面是源代码
#!/usr/bin/perl
my $in = $ARGV[0];
die "Usage: lines2one.pl \n" if(@ARGV < 1);
open RH, $in or die "ERROR: $!";
my @lines = ; chomp @lines;
close RH or die "ERROR: $!";
for(my $i = 0; $i < @lines; $i ++){
    print $lines[$i]," ";
}
print "\n";
下面是截图
多行文件 bar.pl

调用处理的命令演示

处理的结果 aa