#!/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: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |