XML::SIMPLE

[DartSidius]

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

 
- http://10.20.77.118/ReportServer?%2fRedX_Reports%2fCustomerProfiles&rs%3aCommand=Render&rs%3aFormat=XML&rs%3aSessionID=ogt2yi55oziwbt45zlspbt55&rc%3aSchema=True" Name="CustomerProfiles" xmlns:p1="http://www.w3.org/2001/XMLSchema-instance" xmlns="CustomerProfiles">
-
-
-
-
-
-
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
-
 
 
 
 


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


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";
                  }
               }
         }
      }
   }
}