use strict; use warnings; my $name = 'user_supplied.txt'; my @errs = grep {$_ !~ /\.log$/ and $_ ne $name} glob(".* *"); print do{local $" = "\n"; "@errs\n"};
In reply to Re: File searching *
by BillKSmith
in thread File searching *
by michael99
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |