Time,TemperatureF,DewpointF,PressureIn,WindDirection
2007-01-23 00:01:00,43.3,34.9,30.14,North,359,7,8,72,0.00,,,0.00,Wunderground
v.1.13,
2007-01-23 00:06:00,43.2,34.8,30.14,North,354,11,11,72,0.00,,,0.00,Wunderground
v.1.13,
2007-01-23 00:12:00,43.2,34.8,30.14,North,1,6,9,72,0.00,,,0.00,Wunderground
v.1.13,
2007-01-23 01:11:00,42.9,34.8,30.13,North,1,5,6,73,0.00,,,0.00,Wunderground
v.1.13,
2007-01-23 01:17:00,42.9,34.8,30.12,NNW,346,3,7,73,0.00,,,0.00,Wunderground
v.1.13,
2007-01-23 01:23:00,43.1,35.0,30.12,North,359,5,11,73,0.00,,,0.00,Wunderground
v.1.13,
2007-01-23 02:14:00,43.2,34.1,30.10,North,0,16,16,70,0.00,,,0.00,Wunderground
v.1.13,
2007-01-23 02:19:00,43.2,34.1,30.09,North,0,6,13,70,0.00,,,0.00,Wunderground
v.1.13,
2007-01-23 02:24:00,43.2,33.7,30.09,North,349,8,14,69,0.00,,,0.00,Wunderground
v.1.13,
2007-01-23 03:04:00,43.2,34.1,30.11,North,0,7,12,70,0.00,,,0.00,Wunderground
v.1.13,
2007-01-23 03:09:00,43.2,34.1,30.11,North,0,10,17,70,0.00,,,0.00,Wunderground
v.1.13,
.
.
.
2007-01-23 23:00:00,41.9,40.3,30.15,NNE,13,5,7,94,0.08,,,0.35,Wunderground
v.1.13,
2007-01-23 23:05:00,41.9,40.3,30.16,NW,318,0,6,94,0.09,,,0.36,Wunderground
v.1.13,
2007-01-23 23:10:00,41.9,40.3,30.16,North,0,3,6,94,0.10,,,0.37,Wunderground
v.1.13,
2007-01-23 23:15:00,41.9,40.3,30.16,North,3,7,8,94,0.12,,,0.38,Wunderground
v.1.13,
What I am trying to accomplish is pull the first temp for each hour. I have
tried various combinations of regex and none seem to correctly on hr:min:sec.
foreach $var (@testfile) {
if ($var =~ /00:[0-1][0-5]:00/) {
print $var;
# print ("\n$hour:$minute:00\n");
$hour ++;
$minute=0;
#print ("\n$hour:$minute:00\n\n");
}
else {
$minute ++;
}
}
So, I'm bowing to the experts.
Regards,
John
