#!/usr/bin/perl -w use strict; use warnings; use XML::Parser; my $xml; my $results; $xml = new XML::Parser(Style => 'Debug'); $xml->parsefile('info.xml'); $xml->parse('F635 Median'); #### \\ () entries || #10; entries || #9;#9; entries \\ (ID 10 Name Array_1_Measurement Column Metadata) entries enumeration || #10; entries enumeration || #9;#9;#9; entries enumeration \\ (Name Column_Type) entries enumeration attribute || F635 Median entries enumeration // entries enumeration || #10; entries enumeration || #9;#9;#9; entries enumeration \\ (Name Data_Type) entries enumeration attribute || INTEGER entries enumeration // entries enumeration || #10; entries enumeration || #9;#9;#9; entries enumeration \\ (Name Origin) entries enumeration attribute || Feature entries enumeration // entries enumeration || #10; entries enumeration || #9;#9;#9; entries enumeration \\ (Name Quantitation_Type) entries enumeration attribute || MeasuredSignal entries enumeration // entries enumeration || #10; entries enumeration || #9;#9;#9; entries enumeration \\ (Name Scale) entries enumeration attribute || LINEAR entries enumeration // entries enumeration || #10; entries enumeration || #9;#9;#9; entries enumeration \\ (Name LabelledExtract) entries enumeration attribute || - entries enumeration // entries // #### F635 Median INTEGER Feature MeasuredSignal LINEAR - AAC1 325 103 AAC3 389 115