Rob Dixon <rob.di...@gmx.com> writes: > On 27/08/2013 23:06, John W. Krahn wrote: >> Harry Putnam wrote:
[...] >>> (Simplified for discussion, from a longer script) >>> >>> my $rsync = 'rsync'; >>> my $tmplog = 'one.log'; >>> my $tmplog2 = 'two.log'; >>> open(LOG,">>$tmplog")or die "Can't open $tmplog : $!"; >>> open(LOG2,">>$tmplog2")or die "Can't open $tmplog2: $!"; >>> print LOG "kdkdkdkd Output from:\n$rsync cmdflgs"; >>> print LOG2 "kdkdkdkd Output from:\n$rsync cmdflgs" >>> close(LOG); >>> close(LOG2); >>> >>> Is there some smooth way to write to more than one log? >> my %logs = ( >> 'one.log' => undef, >> 'two.log' => undef, >> ); >> >> for my $name ( keys %logs ) { >> open my $FH, '>>', $name or die "Cannot open '$name' because: $!"; >> $logs{ $name } = $FH; >> } >> >> for my $log_FH ( values %logs ) { >> print $log_FH "kdkdkdkd Output from:\n$rsync cmdflgs"; >> } > > Nice John Yes very nice... thank you John > It compacts neatly to [...] snipped neatly compacted code Nicely compacted... thank you Rob. Thanks to all other posters.. lots of good input. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/