Experimenting the world of Legacy Perl

cog on 2005-06-01T11:22:00

$ tree|grep pm$|wc -l
113

Oh boy... O:-)

Well, here I go...

If I don't come back in a couple of days... call the cops ;-)

---

What shall I say?

pelagic on 2005-06-01T13:22:32

perl -MFile::Find -le 'find(sub{print $File::Find::name if /pm$/},".")' | wc -l
        2255

Re:What shall I say?

cog on 2005-06-01T13:29:49

Don't worry, those 113 files are only *ONE* of the directories in *ONE* of the tgz's they sent me :-)