source-engine/studiorender/ihvtestcopy.pl

13 lines
184 B
Perl
Raw Permalink Normal View History

2020-04-23 00:56:21 +08:00
$infile = shift;
$outfile = shift;
open INFILE, "<$infile";
@infile = <INFILE>;
close INFILE;
open OUTFILE, ">$outfile";
while( shift @infile )
{
print OUTFILE $_;
}
close OUTFILE;