Forum Webscript.Ru

Программирование => Perl => Тема начата: DartSidius от 29 Июля 2010, 02:30:33

Название: XML::SIMPLE
Отправлено: DartSidius от 29 Июля 2010, 02:30:33

Есть xml файл такого содержания...

 
-
-
-
-
-
-
-
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
-
 
 
 
 


Как можно из него вытянуть все данные автоматом....Пока получилось только с упражнением с кучей кэшей...примерно такого содержания


use XML::Simple;
my $ref = XMLin(\'tmp.xml\');

foreach $a (sort keys %$ref) {
   if($a=~/table*/) {
      my $new_key = $ref->{$a};
      foreach $b(sort keys %$new_key) {
         print $b;
         if($b eq "Detail_Collection") {
            my $new_key_2 = $new_key->{$b};
               foreach $c(sort keys %$new_key_2) {
                  my $new_key_data = $new_key_2->{$c};
                  foreach $d(sort keys %$new_key_data) {
                     #print "$new_key_data->{$d}\\n";
                  }
               }
         }
      }
   }
}