admin2 wrote:
How can I suppress the first "Use of uninitialized value in pattern
match (m//)" warning message. code and output are below.
Don't suppress a message, but fix the problem.
my @files = <*> unless /.mbox^/;
This is the only pattern match in your script, so that is the line with
the problem, don't you think? Line number 6, as the message told you.
You could probably change it to
my @files = grep !m{[.]mbox\z}, <*>;
(untested)
--
Ruud
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
