請問一個笨問題 是有關(guān) xml paser hash的

ieting

想請問 我用以下程式碼 要將一個簡單的 xml paser 出來
   use XML::Simple;
   use Data::Dumper;
   $config = XMLin('./200607272300.xml');
   print Dumper($config);


檔案格式如下

<?xml version="1.0"?>
<ROWSET>
<ROW><PROCESS_ID>28727></PROCESS_ID><OPTIME>200607272300</OPTIME>...會再多</ROW>
<ROW><PROCESS_ID>28737></PROCESS_ID><OPTIME>200607272300</OPTIME>...會再多</ROW>
<ROW><PROCESS_ID>28717></PROCESS_ID><OPTIME>200607272300</OPTIME>...會再多</ROW>
</ROWSET>


不過 他出現(xiàn)如下
      $VAR1 = {
                       'ROW' => [
                                 {
                                   'PROCESS_ID' => '28727',
                                    'OPTIME' => '200607272300'
                                    ....會再多出來其他的
                                  }
                                 {
                                   'PROCESS_ID' => '28723',
                                    'OPTIME' => '200607272300'
                                      ....會再多出來其他的
                                }
                                 {
                                   'PROCESS_ID' => '28717',
                                    'OPTIME' => '200607272300'
                                     ....會再多出來其他的
                                 }
                             ]
                         };

我應(yīng)該要如何做才能 將 'PROCESS_ID'  'OPTIME'  逐筆一個<ROW></ROW>區(qū)間讀出來 做其他應(yīng)用

多謝指導(dǎo)

aaronvox

你可以把他看成一個數(shù)組 用下 @$xmlref

ulmer

Hi,

the dumper ouput is very clear to indicate that the data structure  is a reference to hashes of hashes. you can access  'PROCESS_ID'  'OPTIME' as following:
i.e.:

foreach my $row ($config->{'ROW'}) {
    print $row->{ 'PROCESS_ID'}. "\n";
    print $row->{'OPTIME'}. "\n";
}

in perldoc XML::Simple there is some methed that can be directly to fetch the nodes of xml tags.

Best,
    ulmer

ieting

那如果 我的 我要取他的 key值的我應(yīng)該如何做 key值 = PROCESS_ID        值 = $row->{ 'PROCESS_ID'}

因為會這樣子想是因為 tag 有可能會隨時變動 如果隨時便動一次 就要改一次程式

ulmer

原帖由 ieting 于 2006-8-24 15:35 發(fā)表
那如果 我的 我要取他的 key值的我應(yīng)該如何做 key值 = PROCESS_ID        值 = $row->{ 'PROCESS_ID'}

因為會這樣子想是因為 tag 有可能會隨時變動 如果隨時便動一次 就要改一次程式

why is so complex? that is simple to fetch xml's data. see demo code:

1. 
   
2. # $config->{'ROW'} returns ref. to array
   
3. foreach my $elem (@{$config->{'ROW'}}) {
   
4.     #print  ref $elem , "\n";   # $elem is ref. to hash
   
5.     #print Dumper($elem);
   
6.     # normally hash processing
   
7.     foreach my $key (keys %$elem) {
   
8.         print 'key: ' .$key. ' => value: ' . $elem->{$key} . "\n";
   
9.     }
   
10.     print "\n";
    
11. }
    

復(fù)制代碼

Best regards,
    ulmer

---------------
Just 4 Fun

[ 本帖最后由 ulmer 于 2006-8-24 16:35 編輯 ]

ieting

多謝~~
已經(jīng)解決