Help for this page

Select Code to Download


  1. or download this
    line number: action filename
    
  2. or download this
    9248: OPEN perl.doc
    9249: DELETE incriminating_evidence.txt
    9250: EDIT autoexec.bat
    
  3. or download this
    while (<>) {
        if ( /^(\d+):\s(?:EDIT|DELETE)\s(.*)$/ ) {
            $results{ $1 } = $2;
        }
    }