24 lines
337 B
Perl
24 lines
337 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use File::Basename;
|
||
|
|
|
||
|
|
my $basename = basename($0);
|
||
|
|
my $USAGE = <<USAGE
|
||
|
|
Usage: $basename <infile> <outfile>
|
||
|
|
USAGE
|
||
|
|
;
|
||
|
|
|
||
|
|
open(INFILE, '<', $ARGV[0]) or die "$USAGE\n$!";
|
||
|
|
open(OUTFILE, '>', $ARGV[1]) or die "$USAGE\n$!";
|
||
|
|
|
||
|
|
foreach my $inline (<INFILE>) {
|
||
|
|
print OUTFILE $inline;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
1;
|
||
|
|
__END__
|