Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Adding object identifiers corresponding to matched headers and sub-headers.

by talexb (Chancellor)
on Jan 17, 2007 at 18:43 UTC ( [id://595114] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    Header stuff
    123456|987|12
    ...
    Oranges|9
    Bananas|8
    Footer junk
    
  2. or download this
    Header stuff
    123456|987|12
    ...
    Oranges|1
    Bananas|3
    Footer junk
    
  3. or download this
    Header stuff
    123456|987|12
    ...
    Oranges|8
    Bananas|5
    Footer junk
    
  4. or download this
    #!/usr/bin/perl -w
    
    ...
          print "$data{ $thisKey }->{'footer'}\n";
        }
    }