Any help will be appreciated.my $maid_dir = "C:/Documents and Settings/mydir/Desktop/current/rm_fil +es"; opendir my $dh, "$maid_dir"; # directory to search my @files = readdir $dh; foreach my $f (@files){ my $size = -s $f; print $size, "\n"; print Dumper($f); if($size < 1 ){ unlink("$size"); } }
In reply to using unlink to delete files by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |