Re: reading files to different output files.

[choroba]

Use an array of output file handles. You can use an array of input file handles, too.

Note that

print $file_handles[$i] $line;

doesn't work, you need to use curlies:

print {$file_handles[$i]} $line;

[ic23oluk]

is there any solution using this approach:

 
use IO::File;

my @fh;
my @file_names = ("output1.txt", "output2.txt", "output3.txt");
for (my $i=0; $i<=$#file_names; $i++){
    $fh[$i]= IO::File->new( ">$file_names[$i]" ) || die "Cannot open $
+file_names[$i]: $!.\n";
    
}

[choroba]

Or, without any modules:

my @fhs = map { open my $FH, '<', $_ or die $!; $FH } @filenames;

[LanX]

What exactly is your problem now?

Did you try it? And what went wrong?

[ic23oluk]

yes, I tried it this way:

#! /usr/bin/perl

use strict;
use warnings;
use IO::File;


my @fh;
my @file_names = ("output1.txt", "output2.txt", "output3.txt");

while ( <> ){
    for (my $i=0; $i<=$#file_names; $i++){
        $fh[$i]= IO::File->new( ">$file_names[$i]" ) || die "Cannot op
+en $file_names[$i]: $!.\n";
        print {$fh[$i]} "$_";
    }
}
print "done.\n";

this script produces three output files, each contains the input filename that the user writes into the command line. Do I have to somehow open the input files in the script?

[ic23oluk]

yes, but it didn't work. here's my entire script:

#! /usr/bin/perl

use strict;
use warnings;
use IO::File;


my @fh;
my @file_names = ("output1.txt", "output2.txt", "output3.txt");

while ( <> ){
    for (my $i=0; $i<=$#file_names; $i++){
        $fh[$i]= IO::File->new( ">$file_names[$i]" ) || die "Cannot op
+en $file_names[$i]: $!.\n";
        print {$fh[$i]} "$_";
    }
}
print "done.\n";

It produced three output files, each containing the command that i entered in the command line. What's missing?

[Anonymous Monk]

Why use <> if you allready have the array list?

[ic23oluk]

I am in very early stages and not even familiar with the basics, maybe thats why. could someone please improve my script? would be very pleased.