Help for this page

Select Code to Download

Select or download this

<response>
    <version>0.1</version>
...
        </observations>
        </history>
</response>

Select or download this

#!usr/bin/perl

...
    printf "%s: %d-%d-%d %d:%d\t", $h->attr('date'),
    $h->look_down(_tag => 'year')->as_text,$h->look_down(_tag => 'mon'
+)->as_text,$h->look_down(_tag => 'mday')->as_text,$h->look_down(_tag 
+=> 'hour')->as_text,$h->look_down(_tag => 'min')->as_text;
}