Thanks si_lence, Your suggestion worked, and now I can move on. Appreciate the immediate response.opendir(TARGET, ".") or die "Can't open current directory: $!"; my @targets= grep $pattern readdir TARGET; my $gzip_count = 0; foreach my $target (@targets) { my $cnt = 0; if (-M $target > $expiration) { $gzip_count++; $cnt = `gzip $target`; } }
In reply to Opendir and regex by homer
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |