GoFuckYourself.com - Adult Webmaster Forum - View Single Post - How To take one HTML file and duplicate it into 20 copies all named differently?

prodiac · 04-17-2005, 01:36 AM

Quote:

Originally Posted by prodiac

Code:

#!/usr/local/bin/perl
 
$file_orig = "_somefile.html";
$files = "filename_list.txt 
 
open (FILE, $files);      
@allfiles=<FILE>;     
close(FILE);   
 
foreach $name (@allfiles) {
 chop($name);
 system("/bin/cp $file_orig $name");
 }
 
exit;

There was a mistake on the following line:

Code:

$files = "filename_list.txt

It should be:

Code:

$files = "filename_list.txt";