OP
Size: a a a
OP
VG
OP
AP
VG
AP
VG
VO
VG
AP
SZ
VT
AB
AU
Y
Kl
STROUT
и STDERR
в файл?Kl
#!/usr/bin/perl
use feature qw/say/;
use autodie;
open (my $LOG, '>>', 'log.txt');
select $LOG;
*STDERR = *LOG;
say 'This should be logged.';
print STDERR "Could not open file\n";
Kl
use feature qw/say/;
use autodie;
open (my $LOG, '>>', 'log.txt');
*STDOUT = $LOG;
*STDERR = $LOG;
AP