writing to unknown number of files

[rotems]

Hi,

I have a problem.

I need to open unknown number of files for writing.
In order to solve the problem I tried to open files in an array,
where each node in the array is a pointer to a file.
I succeed in opening the files and close all the files,
but I can't write to them.

Please help me!

Thanks,
Rotem.

This is the code:
-----------------------------------
open the files (works):
----------------------------------
while ($currFile < $totalFiles)
{
# open data file
open($dataFilesList[$currFile], ">$currFile");
$currFile++;
}
--------------------------------------------------
write to the files (doesn't work):
--------------------------------------------------
while ($currFile < $totalFiles)
{
print $dataFilesList[$currFile] ("bla bla");
$currFile++;
}

This is the error:
Not a CODE reference at ./script.pl line 263, <INPUT_FILE> line 1

------------------------------------
close the files (works):
------------------------------------
while ($currFile < $totalFiles)
{
# close data file
close($dataFilesList[$currFile])
$currFile++;
}

[KevinADC]

Look into using the IO::File module for this task.

[docsnyder]

you are using $currFile and $totalFiles as numbers:

while ($currFile < $totalFiles)
...
$currFile++
...

But, when opening files

open($dataFilesList[$currFile], ">$currFile");

you use $currFile as a filename.

This can't work.

Greetz, Doc

[KevinADC]

you are using $currFile and $totalFiles as numbers:


you use $currFile as a filename.

This can't work.

Greetz, Doc

It could work, $currFile is just the index number of the array element $dataFilesList[$currFile]. If the array element were a proper filehandle then it could work. It's just not necessary to do it that way.

[rotems]

Hi All,
Thanks for your suggestions.
This was the solution I found:

while ($currFile < $totalFiles)
{
$file=$dataFilesList[$currFile];
print $file ("bla bla");
$currFile++;
}

Regards,
Rotem.

[KevinADC]

this doesn't work?

while ($currFile < $totalFiles)
{
print $dataFilesList[$currFile] ("bla bla");
$currFile++;
}