however, once your script is do in 1 hour

All the more reason to use the right tools.

#! /usr/bin/perl

use strict ;
use warnings ;

use XML::Simple ;
use Data::Dumper ;

my $xml = qq{
    <message><file>D:\linkctltr.cxx</file><line>68</line><type>Note</t
+ype>
    <codee>970</codee><desc>Use outside of a typedef</desc></message>
} ;

my $data = XMLin( $xml ) ;
print Dumper( $data ) ;
[download]

_______________
D a m n D i r t y A p e
Home Node | Email