Re: reading files to different output files.

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

Note that

print $file_handles[$i] $line;
[download]

doesn't work, you need to use curlies:

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

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re: reading files to different output files. Select or Download Code

Replies are listed 'Best First'.
Re^2: reading files to different output files. by ic23oluk (Sexton) on May 28, 2017 at 13:14 UTC
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"; }` [download]	[reply] [d/l]
Re^3: reading files to different output files. by choroba (Cardinal) on May 28, 2017 at 17:04 UTC
Or, without any modules: `my @fhs = map { open my $FH, '<', $_ or die $!; $FH } @filenames;` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^3: reading files to different output files. by LanX (Saint) on May 28, 2017 at 13:24 UTC
What exactly is your problem now? Did you try it? And what went wrong? Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Je suis Charlie!}	[reply]
Re^4: reading files to different output files. by ic23oluk (Sexton) on May 28, 2017 at 13:39 UTC
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";` [download] 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?	[reply] [d/l]
Re^5: reading files to different output files. by marinersk (Priest) on May 28, 2017 at 14:05 UTC
Re^6: reading files to different output files. by ic23oluk (Sexton) on May 28, 2017 at 15:11 UTC
Some notes below your chosen depth have not been shown here
Re^2: reading files to different output files. by ic23oluk (Sexton) on May 28, 2017 at 13:50 UTC
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";` [download] It produced three output files, each containing the command that i entered in the command line. What's missing?	[reply] [d/l]
Re^3: reading files to different output files. by Anonymous Monk on May 28, 2017 at 14:03 UTC
Why use <> if you allready have the array list?	[reply]
Re^4: reading files to different output files. by ic23oluk (Sexton) on May 28, 2017 at 14:08 UTC
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.	[reply]
Re^5: reading files to different output files. by marinersk (Priest) on May 28, 2017 at 14:19 UTC