Jasmine
Administrator
Jan 29, 2000, 9:21 AM
Post #2 of 6
(40871 views)
|
Are you referring to 10 records to 10 separate data files? If so, I've copied today's "Daily Perl FAQ" for your consideration:
<BLOCKQUOTE><font size="1" face="Arial,Helvetica,sans serif">code:</font><HR>
Question:
How do I print to more than one file at once?
If you only have to do this once, you can do this:
for $fh (FH1, FH2, FH3) { print $fh "whatever\n" }
To connect up to one filehandle to several output filehandles, it's
easiest to use the tee(1) program if you have it, and let it take
care of the multiplexing:
open (FH, "| tee file1 file2 file3");
Or even:
# make STDOUT go to three files, plus original STDOUT
open (STDOUT, "| tee file1 file2 file3") or die "Teeing off: $!\n";
print "whatever\n" or die "Writing: $!\n";
close(STDOUT) or die "Closing: $!\n";
Otherwise you'll have to write your own multiplexing print function
-- or your own tee program -- or use Tom Christiansen's, at
http://www.perl.com/CPAN/authors/id/TOMC/scripts/tct.gz, which is
written in Perl and offers much greater functionality than the
stock version.</pre><HR></BLOCKQUOTE>
If this doesn't address your questions, could you please provide more information about what you're trying to do regarding record commitment?
|
MAIN
SEARCH
WHO'S 
LOG 