On 8/31/07, Somu <[EMAIL PROTECTED]> wrote:
> use strict;
> use warnings;
> use File::Find;
> sub rm();
> my $count=0;
> my @dir = ("F://Hindi/RHTDM");
> find(&rm,@dir);
>
> sub rm(){$count++
> my ($fname)= $_;
> if($fname=~ /mp3/){print "$count $fname"}
> }PLEASE!!! Before coming to this list and complaining about something that someone gave you, PLEASE edit my code responsibly!!! Look for this line: find(&rm,@dir); and change it to THIS (which is the original code...): find(\&rm, @dir); -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
