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.
24 lines
337 B
24 lines
337 B
14 years ago
|
#!/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__
|