#!/usr/bin/perl

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

my $xml_parser = XML::Simple->new();

for my $icon_link_xml (
    '<icon-link>http://www.nws.noaa.gov/weather/images/fcicons/sct.jpg</icon-link>',
    '<icon-link xsi:nil="true"/>',
    '<icon-link foo="bar"/>',
    '<icon-link foo="bar">http://www.nws.noaa.gov/weather/images/fcicons/sct.jpg</icon-link>',
    ) {

    my $xml = <<"EOXML";
<?xml version='1.0' ?>
<dwml xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <data>
    <parameters>
      <conditions-icon>
        <name>Conditions Icons</name>
        $icon_link_xml
        <icon-link>http://www.nws.noaa.gov/weather/images/fcicons/nra30.jpg</icon-link>
      </conditions-icon>
    </parameters>
  </data>
</dwml>
EOXML

    # print "$xml\n";
    
    my $data = $xml_parser->XMLin($xml);
    
    # print Dumper $data;

    my $icon_link = $data->{'data'}{'parameters'}{'conditions-icon'}{'icon-link'};
    
    print Dumper $icon_link;

    # use the next entry, for example
    my $idx = ref($icon_link->[0]) eq "HASH" ? 1 : 0;
    my $weatherIconURL = $icon_link->[$idx];

    # or skip entirely
    #next if ref($icon_link->[0]) eq "HASH";

    print "=> \$weatherIconURL: $weatherIconURL\n\n";
}

__END__
$VAR1 = [
          'http://www.nws.noaa.gov/weather/images/fcicons/sct.jpg',
          'http://www.nws.noaa.gov/weather/images/fcicons/nra30.jpg'
        ];
=> $weatherIconURL: http://www.nws.noaa.gov/weather/images/fcicons/sct.jpg

$VAR1 = [
          {
            'xsi:nil' => 'true'
          },
          'http://www.nws.noaa.gov/weather/images/fcicons/nra30.jpg'
        ];
=> $weatherIconURL: http://www.nws.noaa.gov/weather/images/fcicons/nra30.jpg

$VAR1 = [
          {
            'foo' => 'bar'
          },
          'http://www.nws.noaa.gov/weather/images/fcicons/nra30.jpg'
        ];
=> $weatherIconURL: http://www.nws.noaa.gov/weather/images/fcicons/nra30.jpg

$VAR1 = [
          {
            'content' => 'http://www.nws.noaa.gov/weather/images/fcicons/sct.jpg',
            'foo' => 'bar'
          },
          'http://www.nws.noaa.gov/weather/images/fcicons/nra30.jpg'
        ];
=> $weatherIconURL: http://www.nws.noaa.gov/weather/images/fcicons/nra30.jpg


##</code><code>##

    $weatherIconURL = $data->{'data'}{'parameters'}{'conditions-icon'}{'icon-link'}[0]{content};