Think about this code in context of redirecting STDOUT, STDERR:

#!/usr/bin/perl

use strict;
use warnings;

use POSIX qw(:errno_h ceil floor :sys_wait_h);

my @run = ( ‘ls’, ‘-al’ );
my $pid = fork();
die “Unable to fork $!” unless defined($pid);
if (!$pid) { # child
open(LOG,”>”, “foo-log.log”);
#close(STDERR);
#close(STDOUT);
#open STDERR, “>>&LOG”;
#open STDOUT, “>>&LOG”;
*STDERR = *LOG;
*STDOUT = *LOG;
print LOG “PRINT TO LOG\n\n”;

exec { $run[0] } @run;
die “Unable to execute: $!”;
}
waitpid($pid, WNOHANG);

and output is shown on terminal not in log file:

but when running this:

#!/usr/bin/perl

use strict;
use warnings;

use POSIX qw(:errno_h ceil floor :sys_wait_h);

my @run = ( ‘ls’, ‘-al’ );
my $pid = fork();
die “Unable to fork $!” unless defined($pid);
if (!$pid) { # child
open(LOG,”>”, “foo-log.log”);
close(STDERR);
close(STDOUT);
open STDERR, “>>&LOG”;
open STDOUT, “>>&LOG”;
#*STDERR = *LOG;
#*STDOUT = *LOG;
print LOG “PRINT TO LOG\n\n”;

exec { $run[0] } @run;
die “Unable to execute: $!”;
}
waitpid($pid, WNOHANG);

Everything is ok, maybe you know why:

*STDERR = *LOG;
*STDOUT = *LOG;

doesn’t work?

Start the timer.

Burn one at both ends. Burn the other at one end.

When the first is completely burned, start burning the other end of the second.

When the second is burned completely, 45 minutes have elapsed.

I don’t follow that. Semantically, a table should be entitled ‘chairs’ if it’s a collection of individual chair records, no? A table being entitled ‘chair’ doesn’t make much sense, imo.