Re^3: WURFL web browsers patch and XML::Simple

in reply to Re^2: WURFL web browsers patch and XML::Simple
in thread WURFL web browsers patch and XML::Simple

Ah, ok. So what I need to do to make it work is:

foreach my $browser ( %{$data->{devices}->{device}} ) {
  print "$data->{devices}->{device}->{$browser}->{user_agent}<br>";
}
[download]

I think that is an improvement on where I started as it goes into the heart of the data structure rather than disassembling it. However perhaps there is more that can be done?

Update:The inclusion of values in jethro's update effectively fixes the problem, the solution direct and concise.

Comment on Re^3: WURFL web browsers patch and XML::Simple Download Code

In Section Seekers of Perl Wisdom