#! /usr/bin/perl
use strict;
use warnings;
=head1
print "\n---------------------------------test_---------------------------\n";
if(!open LOG, ">> Z/logfile"){
die "can't create logfile: $!";
}
print "\n---------------------------------test_---------------------------\n";
=cut
=head1
print "\n---------------------------------1st_use_FD_read_/etc/passwd_---------------------------\n";
unless(open PASSWD, "/etc/passwd"){
die "How did you get logged in? ($!)";
}
while(<PASSWD>) {
chomp;
print $_;
print "\n";
}
print "-----over----\n---------------------------------1st_use_FD_read_/etc/passwd_---------------------------\n";
close PASSWD;
=cut1
=head1
print "\n---------------------------------write_2_file_---------------------------\n";
unless(open MYLOG, ">> logfile"){
die "err open logfile: $!";
}
my $done = 1;
my $total = 3;
print MYLOG "Captain's log, stardate 3.14159\n";
printf STDERR "%d percent compete.\n", $done/$total *100;
printf (STDERR "%d percent compete.\n", $done/$total *100);
printf STDERR ("%d percent compete.\n", $done/$total *100);
select MYLOG;
printf ("%d percent compete.\n", $done/$total *100);
select STDOUT;
print "\n---------------------------------write_2_file_---------------------------\n";
close MYLOG;
=cut
=head1
print "\n---------------------------------flush_buffer_---------------------------\n";
unless(open MYLOG, ">> logfile"){
die "err open logfile: $!";
}
$| = 1;
print MYLOG "flush buffer immediately after write.\n";
close MYLOG;
print "\n---------------------------------flush_buffer_---------------------------\n";
=cut
=head1
print "\n---------------------------------redirect_STDERR_---------------------------\n";
unless(open STDERR, ">> mySTDERR"){
die "err open STDERR (>> mySTDERR): $!";
}
printf (STDERR "%d percent compete.\n", 1/3 *100);
print "\n---------------------------------redirect_STDERR_---------------------------\n";
=cut
print "\n---------------------------------_---------------------------\n";
#you should always check the return value of open, since the rest of the
#program is relying upon its success.