use Symbol;
    my $N = 15;
    my @FH;
    for my $i (0..$N-1) {
        my $fh = gensym;
        open $fh, ">$i.txt" or die "Can't open $i.txt: $!";
        push @FH, $fh;
    }
[download]

Note that in Perl 5.6.0 you can just do:

    open my $fh, ">$i.txt" or die "Can't open $i.txt: $!";
[download]

Yep. It works perfectly ! Thanks

Aha, I didn't know the fact that you could use:


open my $fh, ">$i.txt" or die "Can't open $i.txt: $!";
[download]

in Perl 5.6.0.

I tried something similar on a system that ran a lower version
and I couldn't get it to work. But knowing that this works in
Perl 5.6.0, really makes life lots easier !!!

I'm a happy man ;-)

Thanks,

Leon

As an alternative to btrott's example using Symbol to create file handle references, you can also use IO::File to help you create n filehandles and push them onto an array:

#!/usr/bin/perl -w

use strict;
use IO::File;

my @file_handles;

foreach my $number (0..100) {
  my $fh = IO::File->new("> $number.txt")
    or die "Could not open file $number.txt: $!";
  push @file_handles, $fh;
}
[download]

AgentM Systems nor Nasca Enterprises nor Bone::Easy nor Macperl is responsible for the comments made by AgentM. Remember, you can build any logical system with NOR.

Historically, many unices are set to either 128 or 256. These days I believe Linux is most often at either 256 or 1024 depending on the distribution and sysadmin tinkering. AFAIK the *BSD family tend to 256. I am unaware of PC or Mac defaults and whether they can be changed. IRIX was 256, Sun was 256, HP was 256; last I checked. If you keep it reasonable, say less than 100 you seem to be ok just about everywhere but the pathological cases.

--
$you = new YOU;
honk() if $you->love(perl)

Nanook...
*grin* sorry, couldn't resist

Regards

Stefan K