You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
437 B
34 lines
437 B
14 years ago
|
#!/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: $!";
|
||
|
14 years ago
|
my @cleaned = ();
|
||
|
|
foreach my $line (<DAT>) {
|
||
|
|
$line =~ s/\s*$//;
|
||
|
|
$cleaned[++$#cleaned] = $line;
|
||
|
|
}
|
||
|
|
|
||
|
|
print join("|", @cleaned) . "\n";
|
||
|
14 years ago
|
|
||
|
|
close(DAT);
|
||
|
|
|
||
|
|
|
||
|
|
1;
|
||
|
|
__END__
|