use strict;
use XML::Rules;
use Text::CSV_XS;
use FileHandle;

my $csv = Text::CSV_XS->new({eol => "\n"});
my $parser = XML::Rules->new(
	rules => [
		_default => 'content',
		HOUR_DATA => sub {
			$csv->print( $_[4]->{parameters}, [
				map {$_[1]->{$_}} qw(
					LOCATION_NAME EFFECTIVE_DATE HOUR
					CLC DPT HUM DBT WDR WSP HIX WCH
				)
			]);
			return;
		}
	]
);

open my $FH, '>&STDOUT';
print $FH "# relation, date, time, CloudCoverPct, DewPointF, Humidity, TempF, WindDirection, WindMPH, HeatIndexF, WindChillF\n";

$parser->parse( \*DATA, $FH);

__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<WEATHER_DATA>
<HOUR_DATA>
<LOCATION_NAME>KCNU</LOCATION_NAME>
<CLC>20</CLC>
<DPT>73</DPT>
<HUM>82</HUM>
<HIX>84</HIX>
<DBT>79</DBT>
<WCH>79</WCH>
<WDR>210</WDR>
<WSP>17</WSP>
<EFFECTIVE_DATE>08/20/2007</EFFECTIVE_DATE>
<HOUR>14:00</HOUR>
<TIME_GENERATED>08/20/2007 09:45:00</TIME_GENERATED>
</HOUR_DATA>
<HOUR_DATA>
<LOCATION_NAME>KCOU</LOCATION_NAME>
<CLC>100</CLC>
<DPT>71</DPT>
<HUM>87</HUM>
<HIX>79</HIX>
<DBT>75</DBT>
<WCH>75</WCH>
<WDR>190</WDR>
<WSP>13</WSP>
<EFFECTIVE_DATE>08/20/2007</EFFECTIVE_DATE>
<HOUR>14:00</HOUR>
<TIME_GENERATED>08/20/2007 09:45:00</TIME_GENERATED>
</HOUR_DATA>
</WEATHER_DATA>