Selecting A Log File : select « File « Perl






  1. Perl
  2. File
  3. select

Selecting A Log File

    

#!/usr/bin/perl
use warnings;
use strict;
my $logging = "screen"; # Change this to "file" to send the log to a file!
if ($logging eq "file") {
    open LOG, "> output.log" or die $!;
    select LOG;
}
print "Program started: ", scalar localtime, "\n";
sleep 30;
print "Program finished: ", scalar localtime, "\n";
select STDOUT;








Related examples in the same category

1.Redirects standard input and output and turns off buffering.
2.The select Function