#######################################################################
 
use strict;
use XML::Parser;
 
my $in_title=0;
 
my $parser= new XML::Parser( Style => 'Stream');
 
if( $ARGV[0]) { $parser->parsefile( $ARGV[0]); }   # parse the file
else          { $parser->parse( \*STDIN);   }
 
exit;
 
sub StartTag                                       # called for all star tags                                                 { my( $p, $gi, %att)= @_;
    if( ($gi eq 'bktlong') || ($gi eq 'bktshort'))
      { print "<$gi ";                             # will be closed in Text
        $in_title=1;                               # triggers Text processing  
      }
    else
      { print $p->recognized_string(); }           # else just print
  }
 
sub Text                                           # called for each string
  { if( $in_title)                                 # if in title
      { my ($title_no, $title_text)=               # separate the num from
            (/\A(\d+)\.?\s*(.*)\Z/);               # the rest of the text
        print "num=\"$title_no\">";                # close the title tag
        print "<num>$title_no</num>$title_text";   # print the num alement
        $in_title=0;                               # not in title anymore
      }
    else
      { print ; }                                  # else just print
  }

syntax error at C:\Documents and Settings\t\Bureau\t\xml.pl line 30
, near "sub StartTag                                       # called for all star
 tags                                                 { my( $p, $gi, %att)= @_;
    if"
Execution of C:\Documents and Settings\t\Bureau\t\xml.pl aborted du
e to compilation errors.

 
<?xml version="1.0" encoding="iso-8859-1" ?>
<xml>
 <file name="file1">
  <groups>
   <group>Groupe1</group>
  </groups>
  <segments>
   <segment >Seg1</segment>
   <segment >Seg2</segment>
  </segments>
 </file>
 
 <file name="file2">
  <groups>
   <group>Group2</group>
  </groups>
  <segments>
   <segment >Seg1</segment>
   <segment >Seg2</segment>
   <segment >Seg3</segment>
  </segments>
 </file>
</xml>
 

Unrecognised option: ForceArray at C:\Documents and Settings\x\Bureau\x\x.pl line 9