论坛 › Perl › perl 解析xml-Biotech

xxggmmxx 发表于 2018-8-31 09:04:05

perl 解析xml-Biotech

　　example: 1.xml
　　
　　
　　edream2.1-feature-interactive-timescape-widget
　　edream2.1-feature-interactive-timescape-widget
　　
#!/usr/bin/perl -wuse XML::Simple;use Data::Dumper;my $xml = new XML::Simple;my $data = $xml->XMLin("1.xml"); print Dumper($data); if(exists $data->{branch}){      my @array = ref($data->{branch}) ? @{$data->{branch}} : ($data->{branch});      print @array;} #-------------------------------------------------------------------------------------#!/usr/bin/perl -w use XML::Simple;use Data::Dumper;my $xml=XML::Simple->new(ForceArray => 1); my $data=$xml->XMLin("1.xml");print Dumper($data);while(my($a,$b)=each %$data) {   if( ref($b))    {       foreach my $i(@$b)      {          print "$a\t$i\n";      }    }else{   print "$a\t$b\n";} } PS:有时候xml结构很复杂，所以不一定就是简单的hash，shuzu格式。。所以需要使用ref来判断返回的值是array，还是hash，还是空白 查看： ref语法perldoc -f ref                  SCALAR                   ARRAY                   HASH                   CODE                   REF                   GLOB                   LVALUE                   FORMAT                   IO                   VSTRING                   Regexp

查看完整版本: perl 解析xml-Biotech