Help for this page

Select Code to Download


  1. or download this
    open (FIND_CMD, "find /home/modules |");
chomp (my @findArr = <FIND_CMD>);
  2. or download this
    my $pattern = '.pm$';
my $FilePattern = "sub user_method";
...
foreach my $File ( @findArr )
{
   next if ( $File !~ m/$pattern/ );
  3. or download this
       system ("grep -iHl \"$FilePattern\" \"$File\" >> $ResultFilePath ")
+;
  4. or download this
    #!/usr/bin/perl

...
}

__END__
  5. or download this
    #!/usr/bin/perl  -ln

...
/sub user_method/ and (print $ARGV), last while <> ;

__END__