Help for this page

Select Code to Download


  1. or download this
    open (FILE '<filename');
    $_ = join('',<FILE>);
    close (<FILE>);
    my ($result) = m!$match(?:.*?$/){$Nth}(.*?$/)!s;
    print $result;
    
  2. or download this
    open (FILE '<filename');
    $_ = join('',<FILE>);
    ...
      print $1;
    #  pos = length ($match) + length ($`);
    }