http://www.perlmonks.org?node_id=674592


in reply to Re: regexp for directory
in thread regexp for directory

I used this on linux and it works exactly as indicated, eg. "./test.p sort" produced:
sort in /home/me/perl/*.pl: 6 -- big.II.pl 4 -- big.pl 1 -- sortoccurances.pl 1 -- example3.pl 1 -- test.pl
Nb. toolic "if ($this =~ /$bit/)" never was inside the while loop! I am sure that would be a problem. I am also sure from reading halfcountplus's other posts (ranking number of occurances) that slurping the entire file is intentional (how else could this work?). However, if i got an error, i would be suspicious too.

Perhaps if you replace the "/" with a "\" (line 20)?