Perl XML::Simple

smaida · 05-25-2004, 10:34 PM

Hi,

How would I loop through and access the following data:

Code:

$VAR1 = {
          'site' => [
                    {
                      'website' => 'http://www.site1.com',
                      'status' => '200',
                      'vpn' => 'no'
                    },
                    {
                      'website' => 'http://www.site2.com',
                      'status' => '200',
                      'vpn' => 'no'
                    },
                    {
                      'website' => 'http://www.site3com',
                      'status' => '200',
                      'vpn' => 'yes'
                    }
                  ]
        };

I need to perform a set of actions on each set of data.

The data is created using XML::Simple and the output above was from data::dumper.

Thanks,
Shawn

aluser · 05-25-2004, 11:02 PM

Code:

for my $record (@{$VAR1->{site}})  {
    my $website = $record->{website};
    my $status = $record->{status};
    my $vpn = $record->{vpn}
    # do stuff with $website, $status, and $vpn
}

That's untested.

smaida · 05-26-2004, 04:20 AM

Hi Aluser,

Thanks alot. That works great.

Shawn