> And yes, my project extends beyond the capabilities of > simply creating several text files.
Will this work:
---
use strict;
use IO::Tee;
use vars qw(@fh);
for my $i (1,2,3,4) {
push @fh, ">a$i.txt", ">b$i.txt", ">c$i.txt";
}
my $tee = new IO::Tee(@fh);
print $tee 'Hello world';
---
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
