Opening multiple filehandlers

[leons]

Hi Monks

Can anyone tell me how I can open multiple filehandlers ?

#!/usr/bin/perl -w

my @FHlist;

open FH1, ">./1.txt";
open FH2, ">./2.txt";
open FH3, ">./3.txt";

push @FHlist,*{FH1},*{FH2},*{FH3};

foreach my $FH (@FHlist)
{
 print $FH "Don't eat the yellow snow\n";
}

print "@FHlist\n";

close FH3;
close FH2;
close FH1;

This example clearly opens 3 filehandlers ... but how can I do
this when I need to open N filehandlers ?

What I actually want to do is (see my last node) opening
a certain number of sessions to a remote host. Each session is
being handled by a new instance of the parent process ....

Anyway .... I really can't get it to work ...

HEEEEEEEEEEELP ;-)

Thanks, Leon

[btrott]

How about using Symbol:

    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;
    }

Now all of your filehandles are in @FH, and you can loop through there and do what you will with them. Will this work for you?

Note that in Perl 5.6.0 you can just do:

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

And it Just Works. You could then take out the 'use Symbol' and 'gensym' bits.

[leons]

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: $!";

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

[dkubb]

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;
}

[AgentM]

Be very careful with this! While you may have a legitimate reason for doing this, you can hardly anticipate its failures as cross-platform code. The standard DOS install allowed for 20 file descriptors system-wide! That means that opening 100 would merely crash your program. You would effectively be left with 17 or less file descriptors. On modern OSs, each program may be limited to a certain no. (minimally X by POSIX (Petruchio has my book on this)) and also the system-wide total. It might simply be better to open each file in the loop, output the info, close the filehandle and reuse it.


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.

[extremely]

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)

[stefan k]

Yeah, this is off-topic, but still:
I just wanted to give this little advice to
watch out where the huskies go

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

Regards

Stefan K