XML::Simple help request

[Owen Cook]

I am trying to get email addresses out of a Sylpheed address book. The
output of Dumper is;

$VAR1 = {
          'attribute-list' => [
                              {}
                            ],
          'first-name' => '',
          'uid' => '158149473',
          'cn' => 'Julie Jumper',
          'address-list' => [
                            {
                              'address' => [
                                           {
                                             'email' => '[EMAIL PROTECTED]',
                                             'uid' => '158149474',
                                             'remarks' =[1]> '',
                                             'alias' => ''
                                           }
                                         ]
                            }
                          ],
          'last-name' => '',
          'nick-name' => ''
        };

I cannot get my head around extracting the 'email' it seems be be buried
deep inside an array and a hash

Here is an attempt;

#!/usr/bin/perl

use XML::Simple;
use Data::Dumper;
use strict;

my $xml = new XML::Simple (KeyAttr=>[], ForceArray => 1);

my $data = $xml->XMLin("ab6.xml");

foreach my $d (@{$data->{person}}) {
      print $d->{cn};    #<- that works
        print "\t";
      print $d->{"address-list"} # <-need to get down to address and email.
                                 # most attempts failed but some gave a
                                 # hash reference
        print "\n";

}

TIA for any assistance/clues


-- 
Owen


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>