in reply to Re: perl find module
in thread perl find module

Hi, Thanks for the reply. I am trying to fit in the below code, to search a file with the extension .master. Here how do i specify the directory which contains the master file.

use strict; use File::Find; if ($ARGV[0] eq "") { $ARGV[0]="."; } find (sub { if ($File::Find::name =~ /\.master$/i) { print "Found $File::Find::name\n"; } }, @ARGV);