#!/usr/bin/perl use strict; use warnings; use File::Find; if(my $m = shift){ find( sub{ /$m/i ? print"$File::Find::name\n" : 0 }, @INC); } else { print "Please enter a single search string as an argument!\n"; }
In reply to Module Finder by innominate
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |