Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Deleting lines prior to a date!

by Hue-Bond (Priest)
on May 09, 2006 at 14:16 UTC ( [id://548213]=note: print w/replies, xml ) Need Help??


in reply to Deleting lines prior to a date!

How about using the range operator?

$ cat foolog TICKETHELP###,########,1234567###,2004,1,2,35.00###,2004-5-2 17:44:44, +TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Ma +rck TICKETHELP###,########,1234567###,2005,3,4,16.00###,2005-3-8 17:44:44, +TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Ma +rck TICKETHELP###,########,1234567###,2006,5,6,23.00###,2006-1-3 17:44:44, +TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Ma +rck TICKETHELP###,########,0933456###,2005,7,8,33.00###,2005-5-7 17:44:44, +TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Ma +rck TICKETHELP###,########,1234567###,2005,9,10,87.00###,2005-5-4 17:44:44 +,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John M +arck TICKETHELP###,########,1984567###,2005,11,12,32.00###,2005-3-8 17:44:4 +4,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John +Marck TICKETHELP###,########,1234567###,2005,13,14,67.00###,2006-5-2 17:44:4 +4,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John +Marck TICKETHELP###,########,1223698###,2000,15,16,79.00###,2000-1-1 17:44:4 +4,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John +Marck TICKETHELP###,########,1299n67###,2001,17,18,26.00###,2001-5-5 17:44:4 +4,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John +Marck $ perl -ne 'print if /2005,9,10/ .. eof' foolog TICKETHELP###,########,1234567###,2005,9,10,87.00###,2005-5-4 17:44:44 +,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John M +arck TICKETHELP###,########,1984567###,2005,11,12,32.00###,2005-3-8 17:44:4 +4,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John +Marck TICKETHELP###,########,1234567###,2005,13,14,67.00###,2006-5-2 17:44:4 +4,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John +Marck TICKETHELP###,########,1223698###,2000,15,16,79.00###,2000-1-1 17:44:4 +4,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John +Marck TICKETHELP###,########,1299n67###,2001,17,18,26.00###,2001-5-5 17:44:4 +4,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John +Marck

(Note that the years in your dates are not sorted).

Update: Oops, I didn't see the second date, that's why I mangled the data. Using the original data, it's almost the same but changing the regex:

$ perl -ne 'print if /2005-5-4/ .. eof' foolog TICKETHELP###,########,1234567###,2005,X,Y,87.00###,2005-5-4 17:44:44, +TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Ma +rck TICKETHELP###,########,1984567###,2005,X,Y,32.00###,2005-3-8 17:44:44, +TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Ma +rck TICKETHELP###,########,1234567###,2005,X,Y,67.00###,2006-5-2 17:44:44, +TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Ma +rck TICKETHELP###,########,1223698###,2000,X,Y,79.00###,2000-1-1 17:44:44, +TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Ma +rck TICKETHELP###,########,1299n67###,2001,X,Y,26.00###,2001-5-5 17:44:44, +TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Ma +rck

--
David Serrano

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://548213]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others examining the Monastery: (7)
As of 2024-03-29 08:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found