Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
$log_file = "/home/privera/perl/logfile";
...
print "Testing 1.2.3...\n";
close(STDOUT);
<lines to try below...>
  2. or download this
    open(STDOUT, ">&SAVEOUT");       
print STDOUT "I'm done\n";       
close(STDOUT);
  3. or download this
    open(STDOUT);
print "I'm done\n";
close(STDOUT);
  4. or download this
    print on closed filehandle main::STDOUT at write2.pl line 7.