in reply to XML Parsing

You should read the documentation for XML::Parse which tells you that that is what you will get.

To solve your actual problem try using XML::TreeBuilder. Here's some code to get you started:

use strict; use warnings; use XML::TreeBuilder; my $xml; my $results; $xml = XML::TreeBuilder->new; $xml->parse(do{local $/; <DATA>}); my @elements = $xml->look_down('Name', 'Column_Type'); for (@elements) { next if $_->as_text () ne 'F635 Median'; print $_->parent ()->as_text(); } __DATA__ <?xml version="1.0" encoding="UTF-8"?> <entries> <enumeration ID="10" Name="Array_1_Measurement Column Metadata +" > <attribute Name="Column_Type" >F635 Median</attribute> <attribute Name="Data_Type" >INTEGER</attribute> <attribute Name="Origin" >Feature</attribute> <attribute Name="Quantitation_Type" >MeasuredSignal</attri +bute> <attribute Name="Scale" >LINEAR</attribute> <attribute Name="LabelledExtract" >-</attribute></enumerat +ion> <enumeration ID="1" Name="Array_1_Measurement Data" > <attribute Name="Gene" >AAC1</attribute> <attribute Name="F635 Median" >325</attribute> <attribute Name="B635 Median" >103</attribute></enumeratio +n> <enumeration ID="2" Name="Array_1_Measurement Data" > <attribute Name="Gene" >AAC3</attribute> <attribute Name="F635 Median" >389</attribute> <attribute Name="B635 Median" >115</attribute></enumeratio +n> </entries>

Prints:

F635 Median INTEGER Feature MeasuredSignal LINEAR -

DWIM is Perl's answer to Gödel

Replies are listed 'Best First'.
Re^2: XML Parsing
by MonkPaul (Friar) on Dec 15, 2005 at 13:49 UTC
    Thankyou for your reply,
    That is just what i was after. I was looking to get the values for genes based on some experimental data.

    Seems like a perfect place to start now.
    MonkPaul.