文件描述符 文件操作 <> open 文件句柄

 

#! /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.

转载于:https://www.cnblogs.com/books2read/p/11004061.html