#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Carp; 
use Getopt::Long; 
use File::Find::Rule; 
use Data::Dumper; 
 
my ($pattern, $dir, $str, $file); 
GetOptions ( 
            'd=s' => \$dir, 
            'p=s' => \$pattern, 
            's'   => \$str, 
            'f'   => \$file, 
); 
 
 
unless ($dir and $pattern and ($str or $file)) { 
    croak usage(); 
} 
 
print Dumper ($pattern, $dir, $file, $str); 
 
-d $dir or croak "Directory not found. Terminating $!"; 
print "Now scanning $dir for '$pattern'\n"; 
 
 
if ($file) { 
    find_files($dir, $pattern); 
} 
else { 
    parse_files($dir, $pattern); 
} 
 
########################################################### 
 
sub find_files { 
 
    return; 
} 
 
sub parse_files { 
     
    return; 
} 
 
sub usage { 
    print "Usage: $0 -d <dir> -o <option> -s -f\n\n", 
    "Example: $0 -d . -o 'some *? option' -f\n\n"; 
 
    return; 
}

#! /usr/bin/perl -w 
   use strict; 
   use warnings; 
   use Getopt::Long; 
   use File::Find; 
   use Data::Dumper; 
 
   my ($pattern, $dir, $str, $file); 
 
   GetOptions ( 
     'd=s' => \$dir, 
     'p=s' => \$pattern, 
     's'   => \$str, 
     'f'   => \$file, 
     ); 
   die usage() unless ($dir and $pattern and ($str or $file)); 
 
   $pattern = quotemeta($pattern); 
 
   print Dumper ($pattern, $dir, $file, $str); 
 
   -d $dir || die "Directory not found. Terminating $!"; 
   print "Now scanning $dir for \"$pattern\"\n"; 
 
   if ($file) { 
       find_files($dir, $pattern); 
   } 
   else { 
       parse_files($dir, $pattern); 
   } 
 
#---------------------------------------------------------------------------------- 
 
   sub find_files { 
       find(sub { 
                if (/$pattern/) { 
                   print "$File::Find::name found\n"; 
                   } 
                return; 
                } , $dir) 
       } 
 
   sub parse_files { 
       find(sub { 
                 my $file_name = $_; 
                 open(FILE,$file_name) || die "Failed to open $file_name $!"; 
                 while (<FILE>) {(/$pattern/i) && print "$file_name => $_"}; 
                 close(FILE); 
                 return 
                } , $dir) 
       } 
 
   sub usage { 
       print "Usage: $0 -d <dir> -o <option> -s -f\n\n", 
       "Example: $0 -d . -o 'some *? option' -f\n\n"; 
 
       return;