Help for this page

Select Code to Download


  1. or download this
    FILE2

AAA
...
  text7
  text8
EOCCC
  2. or download this
    FILE1

SEGMENT1
...
  text6
  text7
  text8
  3. or download this
    FILE3

P201
...
  text7
  text8
EOP588
  4. or download this
    use strict;
my @jobs = (
      'file2.txt|AAA|EOAAA',
...
   print "-" x 30, "\n\n";
   undef @lines;
}
  5. or download this
    Opening file: 'file2.txt'
   beg:   'AAA'   end:   'EOAAA'
   first: 'AAA'
...
  text4
EOP333
------------------------------
  6. or download this
    if ((/$beg/ .. /$end/) or (/$beg/ .. eof())) {