in reply to Reg expression on day
If you only want to get rid of the leading zero on the day this would work:
If you want to get rid of the leading zeros on both the month and the day this would work:s!/0?(\d+)/!/$1/!
s!0?(\d+)/0?(\d+)!$1/$2!
use strict; for ('12/09/2003', '12/10/2003', '01/01/2004') { my $date = $_; print "Before: $date\n"; $date =~ s!/0?(\d+)/!/$1/!; print "Leading zero off of day: $date\n"; $date = $_; $date =~ s!0?(\d+)/0?(\d+)!$1/$2!; print "Leading zero off of month and day: $date\n\n"; } __END__ Before: 12/09/2003 Leading zero off of day: 12/9/2003 Leading zero off of month and day: 12/9/2003 Before: 12/10/2003 Leading zero off of day: 12/10/2003 Leading zero off of month and day: 12/10/2003 Before: 01/01/2004 Leading zero off of day: 01/1/2004 Leading zero off of month and day: 1/1/2004
--
flounder
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Reg expression on day
by boo_radley (Parson) on Dec 23, 2003 at 18:29 UTC |
In Section
Seekers of Perl Wisdom