in reply to find and delete file in Drive
You can use File::Find to find the file and unlink to delete it.
There are several examples in both sets of documentation that will get you there.
UPDATE
Other Notes:
Use strictures and warnings.
Indent your code (at least for us)
Don't use chop. Use chomp
Use a real array and push
# ex my @drives; # you want an array foreach (<FSUTIL>) { chomp; # don't use chop push(@drives, $_); } close(FSUTIL);
grep
One dead unjugged rabbit fish later...
One dead unjugged rabbit fish later...
|
---|
In Section
Seekers of Perl Wisdom