Re: efficiently printing to 30 files


Just another Perl shrine
	PerlMonks

Re: efficiently printing to 30 files

by kelan (Deacon)

on Mar 06, 2003 at 22:23 UTC ( [id://241018]=note: print w/replies, xml )

Need Help??

in reply to efficiently printing to 30 files

Well first, the directory might be getting creating, but you aren't changing to it. You're trying to change to a directory called reports directly under / (root). You should change that to chdir 'reports'; (ie, leave out the leading slash). For the second part, printing to 30 files, how about this:

use IO::File;
my %files;

$files{A} = $files{B} = $files{C} = IO::File->new('> groupA.txt');
$files{D} = $files{E} = $files{F} = IO::File->new('> groupB.txt');
# etc...

for my $n (keys %emp) {
  print {$files{$n}{Org}} $emp{$n}{Emp};
  #          ^^^^^^           ^^^^^
  #     This gets the FH   And prints this to it
}

# Now close the FH's
close($file{$key}) for my $key (keys %files);
[download]

You might also want to print some kind of separator between the employee info that you print.

kelan

Perl6 Grammar Student

Comment on Re: efficiently printing to 30 files Download Code

Replies are listed 'Best First'.

Re: Re: efficiently printing to 30 files
by thor (Priest) on Mar 07, 2003 at 00:11 UTC

#!perl -w

use strict;

my %hash;
my $i = "A";
foreach ("A".."Z") {
        if ( (ord() - ord("A")) % 3 == 0) {
                $i++;
        }
        $hash{$_} = chr(ord($i) - 1);
}

foreach my $key (sort keys %hash) {
        print "$key => $hash{$key}\n";
}
__END__
A => A
B => A
C => A
D => B
E => B
F => B
G => C
H => C
I => C
J => D
K => D
L => D
M => E
N => E
O => E
P => F
Q => F
R => F
S => G
T => G
U => G
V => H
W => H
X => H
Y => I
Z => I
[download]

IO::File

thor

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom