एक साथ stdout और फ़ाइल को प्रिंट करने के लिए

Question

मेरे पास कई प्रिंट स्टेटमेंट्स के साथ एक पर्ल स्क्रिप्ट है। क्या कोई तरीका है जिसके द्वारा मैं इन सभी प्रिंट विवरणों को एक फ़ाइल में निर्देशित कर सकता हूं और प्रिंट स्टेटमेंट को डुप्लिकेट किए बिना एक साथ stdout भी कर सकता हूं?

Answer 1

आप File::Tee का उपयोग कर सकते हैं।

use File::Tee qw(tee); 

tee STDOUT, '>>', 'some_file.out'; 

print "w00p w00p"; 

तो File::Tee उपलब्ध नहीं है, यह आसानी से एक पाइप लाइन के साथ नकली है:

open my $tee, "|-", "tee some_file.out"; 
print $tee "w00p w00p"; 
close $tee;