#!/usr/bin/perl -w
# $Id: bench_parser_stream_extract,v 1.2 2003/09/19 18:52:26 mrodrigu Exp $
use strict;
use simple_benchmark; # to get memory size
use XML::Parser;

use Getopt::Long;

my( $in_file);
GetOptions( 'in_file=s' =>\$in_file); 
$in_file ||= 'test.xml';

my $p = new XML::Parser(Style => 'Stream', Pkg => 'main');
$p->parsefile( $in_file);

my $in_msg = 1;

sub StartTag { 
    $in_msg++ if $_[1] eq 'message';
}

sub Text {
    print $_ if $in_msg;
}

sub EndTag {
    if ($_[1] eq 'message') {
        $in_msg--;
        print "\n";
    }
}