home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Javascript / InteractiveWebDesignJavascript / Scripting / cgi1 / perl / cgi-bin / stuff.pl < prev    next >
Encoding:
Perl Script  |  2001-07-18  |  312 b   |  15 lines
  1. #!c:\perl\bin\perl
  2.  
  3. ######################
  4. # File: stuff.pl
  5. # Accepts a list of files as input arguments
  6. # Combines them into one big file
  7.  
  8. $outfile = shift(@ARGV);
  9. open (OUT, ">> $outfile") || die print "can't open $outfile: $!\n";
  10.  
  11. while (<ARGV>) { print OUT $_; }
  12.  
  13. close (OUT);
  14. print "done!\n";
  15.