store file handles in a hash

llancet has asked for the wisdom of the Perl Monks concerning the following question:

Hi monks!

For some reason, I want to open several files for write, and seek those output handles by their name:


my %handles;

while (<IN>) {
    my $file_out = get_the_way_out($_);
    my @some_data = get_the_data($_);

    if (!exists $handles{$file_out}) {
        open my $handle,'>',$file_out or die $!;
        $handles{$file_out} = $handle;
    }

    # but this is not allowed
    say $handles{$file_out} join "\t",@some_data;
}

close $_ foreach values %handles;
[download]

How can I properly organize my handles? Thanks for a lot!

Comment on store file handles in a hash Download Code

Replies are listed 'Best First'.
Re: store file handles in a hash by Athanasius (Archbishop) on Oct 30, 2012 at 14:14 UTC
From print: If you're storing handles in an array or hash, or in general whenever you're using any expression more complex than a bareword handle or a plain, unsubscripted scalar variable to retrieve it, you will have to use a block returning the filehandle value instead... So, just change the last line in the `while` loop to: `say { $handles{$file_out} } join "\t", @some_data;` [download] Hope that helps, Athanasius <°(((>< contra mundum	[reply] [d/l]
Re: store file handles in a hash by trwww (Priest) on Oct 30, 2012 at 16:23 UTC
`$handles{$file_out}->say( join "\t",@some_data );`	[reply] [d/l]