blob: d5c1224b2964caf17c623aae46f55cf532233dee (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
$infile = shift;
$outfile = shift;
open INFILE, "<$infile";
@infile = <INFILE>;
close INFILE;
open OUTFILE, ">$outfile";
while( shift @infile )
{
print OUTFILE $_;
}
close OUTFILE;
|