Help for this page

Select Code to Download


  1. or download this
    $cmd = q[ 
perl -MIO::File -we "exit( do{ local $/; my $io=new IO::File; $io->ope
+n( $ARGV[0] ); <$io> } =~ /$ARGV[1]/ ) " ];
];
  2. or download this
    undef $/;
my $read = new IO::File;
if($read->open("< $file")) {
if(<$read> =~ /$searchString/g) {
  3. or download this
    if ( system( $cmd, $file, $searchstring) ) {