Hello,

First of all Thanks for your answers.

I am very new programming in Perl, so I have beginners problems.  

Ok, my problem:
I read from one file some file names, after I would like to open them assigning dynamically theirs fileHandlers in a one hash, and then to access the file using the name as a key of the hash.
I tried, but couldn't do.


#This code does not work. It is only an idea what I want to do.
#But I have not be able to do it

open fh, "<FileList.txt" or die "Couldn't open file: FileList.txt $!";
@Files = split (/\n/,<fh>);

%FilesHash = ();
#e.g
#%FilesHash = ( File1 => fh1, File2 => fh2);

foreach $file (@File)
{
    open <fh> "+>$file";
    $FilesHash{$file} = fh;
}


$Xfile = "File01.txt"

if( exists($FilesHash{$Xfile}) )
{
    #print <fh> "String to copy\n";      
    print $FilesHash{$Xfile} "String to copy\n";
}


thanks in advance,

Carlos

You can only store scalars in a hash .... and a file handle, unusually, is not a scalar. You'll have to use a typeglob.

There's an example of using Typeglobs to handle a whole lot of file handles at the same time at http://www.wellho.net/resources/ex.php4?item=p301/splitter

---