Автор Тема: XML::SIMPLE  (Прочитано 4958 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн DartSidius

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 309
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
XML::SIMPLE
« : 29 Июля 2010, 02:30:33 »
Есть 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";
                  }
               }
         }
      }
   }
}

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28