Team Fortress 2 Source Code as on 22/4/2020
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.

12 lines
184 B

  1. $infile = shift;
  2. $outfile = shift;
  3. open INFILE, "<$infile";
  4. @infile = <INFILE>;
  5. close INFILE;
  6. open OUTFILE, ">$outfile";
  7. while( shift @infile )
  8. {
  9. print OUTFILE $_;
  10. }
  11. close OUTFILE;