Standard Streams और In-memory Files

use strict;
use warnings;

print STDOUT "normal output\n";
print STDERR "an error message\n";

my $buffer = '';
open(my $mem, '>', \$buffer) or die "Cannot open in-memory file: $!";
print $mem "line one\n";
print $mem "line two\n";
close $mem;
print "buffer holds ", length($buffer), " characters\n";

open(my $read, '<', \$buffer) or die "Cannot read in-memory file: $!";
while (my $line = <$read>) {
    chomp $line;
    print "got: $line\n";
}
close $read;

# Output:
# normal output
# buffer holds 18 characters
# got: line one
# got: line two

1. STDERR की बजाय STDOUT पर errors print करना
2. यह भूल जाना कि STDIN एक line को इसकी newline समेत पढ़ता है
3. string पढ़ने से पहले एक in-memory write handle close करना भूल जाना

• STDIN, STDOUT, और STDERR हमेशा available हैं
• print default से STDOUT में जाता है
• Warnings और die messages STDERR में जाते हैं
• एक string को file की तरह इस्तेमाल करने के लिए एक scalar reference open करें