Re: XML Parsing question


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re: XML Parsing question

by deMize (Monk)

on Jul 08, 2010 at 18:30 UTC ( [id://848747]=note: print w/replies, xml )

Need Help??

in reply to XML Parsing question

With HTML::Strip

    #!/usr/local/bin/perl
    use strict;
    use warnings;
    
    use HTML::Strip;
   
    main();    
    
    sub main{
       my $xml = qq{
       <HIT>
          <FIELD NAME="body">
             <sep /> 
             Self-Archiving E-mail Messages in 
             <key>Outlook</key> 
             The following e-mail self-archiving 
             <sep /> 
             create an Archive folder/.pst file. See 
             <key>Outlook</key> 
             2003 .pst file Management for instruction 
             <sep /> 
             your messages. Select your 
             <key>Files</key> 
             (This refers to your primary... 
             <sep /> 
          </FIELD>
       </HIT>
};
       my $hs       =  HTML::Strip->new();       
       my $text     =  $hs->parse($xml);
       print $text;
    }
[download]

Demize