initial
This commit is contained in:
13
studiorender/ihvtestcopy.pl
Normal file
13
studiorender/ihvtestcopy.pl
Normal file
@ -0,0 +1,13 @@
|
||||
$infile = shift;
|
||||
$outfile = shift;
|
||||
|
||||
open INFILE, "<$infile";
|
||||
@infile = <INFILE>;
|
||||
close INFILE;
|
||||
|
||||
open OUTFILE, ">$outfile";
|
||||
while( shift @infile )
|
||||
{
|
||||
print OUTFILE $_;
|
||||
}
|
||||
close OUTFILE;
|
Reference in New Issue
Block a user