How can I suppress the first Use of uninitialized value in pattern
match (m//) warning message. code and output are below.
code
# cat ./fix_archive.pl
#!/usr/bin/perl
use warnings;
use strict;
my @files = * unless /.mbox^/;
foreach my $file (@files) {
print $file . \n;
}
How can I suppress the first Use of uninitialized value in pattern
match (m//) warning message. code and output are below.
code
# cat ./fix_archive.pl
#!/usr/bin/perl
use warnings;
use strict;
my @files = * unless /.mbox^/;
foreach my $file (@files) {
print $file . \n;
}
