Re: Can a filehandle name be dynamic?

[ELISHEVA]

in reply to Can a filehandle name be dynamic?

You can store a filehandle is a variable, so why not use an array of filehandles, e.g. open($aFiles[$i], ">>"$filename")?

Note: apparently print doesn't like print $aFiles[$i] "Some text" so you will have to assign the file handle to a scalar before using it, something like this:

use strict;
use warnings;

my @aFiles;
for (0..2) {
  my $sFile = "foo.$_";
  open($aFiles[$_], '>', $sFile) or die "$sFile: $!";
  my $fh = $aFiles[$_];  #make print happy
  print $fh "Hello World\n";
  close $fh;
}

Best, beth

[goeb]

It should work with print {$aFiles[$_]} "Hello World\n"; without the need for an extra variable.

[almut]

apparently print doesn't like print $aFiles[$i] "Some text"

Similar syntactic issues arise with

my $line = <$fh[$i]>;

The workaround here - if you don't want to use an extra intermediate variable - would be to use

my $line = readline $fh[$i];

<{$fh[$i]}> wouldn't work here.


Side note: I often see people from the Anti-Perl League get overly upset about those minor inconsistencies in the language...  But methinks, could you love someone who has no quirks whatsoever? Well, I couldn't. Ditto with programming languages ;)