34 lines
437 B
Perl
34 lines
437 B
Perl
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
use IO::File;
|
|
use File::Basename;
|
|
|
|
|
|
my $script = basename($0);
|
|
my $USAGE = <<USAGE
|
|
Usage: $script <infile>
|
|
USAGE
|
|
;
|
|
|
|
if (!defined $ARGV[0]) {
|
|
die $USAGE;
|
|
}
|
|
|
|
my $infile = $ARGV[0];
|
|
open(DAT, $infile) or die "$infile: $!";
|
|
my @cleaned = ();
|
|
foreach my $line (<DAT>) {
|
|
$line =~ s/\s*$//;
|
|
$cleaned[++$#cleaned] = $line;
|
|
}
|
|
|
|
print join("|", @cleaned) . "\n";
|
|
|
|
close(DAT);
|
|
|
|
|
|
1;
|
|
__END__
|