csgo-2018-source/studiorender/ihvtestcopy.pl
2021-07-24 21:11:47 -07:00

13 lines
184 B
Perl

$infile = shift;
$outfile = shift;
open INFILE, "<$infile";
@infile = <INFILE>;
close INFILE;
open OUTFILE, ">$outfile";
while( shift @infile )
{
print OUTFILE $_;
}
close OUTFILE;