note
grep
You can use [cpan://File::Find] to find the file and [perldoc://unlink] to delete it.
<p>There are several examples in both sets of documentation that will get you there.
<p>UPDATE
<br>Other Notes:
Use [perldoc://strict|strictures] and [perldoc://warnings].<br>
Indent your code (at least for us)<br>
Don't use [perldoc://chop]. Use [perldoc://chomp]<br>
Use a real array and [perldoc://push]
<code>
# ex
my @drives; # you want an array
foreach (<FSUTIL>) {
chomp; # don't use chop
push(@drives, $_);
}
close(FSUTIL);
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-133383">
[id://133383|grep]<br \>
<tt>One dead unjugged rabbit fish later...</tt>
</div></div>
701272
701272