On Jan 26, 2008 9:38 AM, John Kufrovich <[EMAIL PROTECTED]> wrote:
> 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,
snip
> 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.
snip
Out of "2007-01-23 01:11:00,42.9," you want 01 and 42.9. The first
thing to notice is that the first time a space shows up in the data is
right before what we want. This is wonderful. It will act as our
first anchor point. We then need to capture the next two characters
(the hour) then anything up to (and including) the next match a comma,
and finally capture anything up to the next comma. So, now we need to
translate that into a regex.
our anchor point: / /
capture two characters: /(..)/
match anything up to (and including) the next comma: /.*?,/
capture anything up to (but not including) the next comma /(.*?),/
Put it all together and you get: / (..).*?,(.*?),/.
You also mentioned that you only want the first temp for each hour.
Whenever you hear the words unique, first, or last, your brain should
scream "hash!":
#! /usr/bin/perl
use strict;
use warnings;
my %seen;
while (<DATA>) {
my ($hour, $temp) = / (..).*?,(.*?),/;
print "temp was $temp at $hour\n" unless $seen{$hour}++;
}
__DATA__
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,
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
