
Jasmine
Administrator
Jan 29, 2000, 9:21 AM
Post #2 of 6
(39061 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?
|