Miscellany

use XML::Parser;
# initialize the parser
my $parser = XML::Parser->new( 
       Handlers => {
           Start=>\&handle_start,
           Char  => \&handle_txt,
           End=>\&handle_end,
       }   
    );  

$parser->parsefile( $ARGV[0] );
my @element_stack;                 # remember which elements are open

sub handle_txt {
    my($expat, $element) = @_; 
    print $expat->original_string;
    print "\n";
}

# process a start-of-element event: print message about element
sub handle_start {
    my( $expat, $element, %attrs ) = @_; 
    # ask the expat object about our position
    my $line = $expat->current_line;
    #print "\nI see an $element element starting on line $line!\n";
    # remember this element and its starting position by pushing a
    # little hash onto the element stack
    push( @element_stack, { element=>$element, line=>$line }); 
    if( %attrs ) { 
      # print "It has these attributes:\n";
        while( my( $key, $value ) = each( %attrs )) {
          #print "\t$key => $value\n";
        }   
    }   
}
# process an end-of-element event
#
sub handle_end {
    my( $expat, $element ) = @_; 
    # We'll just pop from the element stack with blind faith that
    # we'll get the correct closing element, unlike what our
    # homebrewed well-formedness did, since XML::Parser will scream
    # bloody murder if any well-formedness errors creep in.
    my $element_record = pop( @element_stack );
    #print "I see that $element element that started on line ",
    #      $$element_record{ line }, " is closing now.\n";
}

#########################
## XML FILE

<AastraIPPhoneFormattedTextScreen destroyOnExit="yes" Timeout="10">
  <Line Size="normal" Align="center">TURP &amp; TUR, INC. 384</Line>
  <Scroll Height="2">
    <Line Size="normal" Align="left">PREM CURRENT: 977302.00</Line>
    <Line Size="normal" Align="left">AGENT TRAN: 955</Line>
  </Scroll>
  <Line>Use Middle Arrow to Scroll</Line>
</AastraIPPhoneFormattedTextScreen>

############################################
## OUT PUT I GET

=> ./parse text.xml


  
TURP 
&amp;
 TURP, INC. 384


  


    
PREM CURRENT: 977302.00


    
AGENT TRAN: 955


  


  
Use Middle Arrow to Scroll