You mean like this?
foreach $file(@files){
open(OUTFILE,">$file");
print OUTFILE $data;
}
-Original Message-
From: Helen Dynah [mailto:[EMAIL PROTECTED]]
Sent: Friday, April 05, 2002 12:32 PM
To: [EMAIL PROTECTED]
Subject: Array of file paths.
Hi again,
I have an array of
# loop through the file list assigning each name to $filename
foreach my $filename (@files) {
# open the file named $filename for overwrite.
open FILE, ">$filename" or die "Could not open $filename: $!\n";
# print data to the file
print FILE "data";
# close the file
close FILE;
}
-
