Re: Matching Date

I am trying to fix some display issues with dates, but for some reason I can't figure it out why my code isn't working on today's date, here is what I have, I just can't see where the problem is, and why today's date is matching on L1, since I have to digits starting the first part of the date value,

First, I had some difficulties reading your code. Thus I reformatted it, with no substantial modification:

my $date = "10/13/2006";
if ($date=~/(\d{1})\/(\d{2})\/(\d{4})/) {
    $date="0".$1."\/".$2."\/".$3;
    print "<br>L1 - $date<br>";
    
} elsif ($date=~/(\d{2})\/(\d{1})\/(\d{4})/) {
    $date=$1."\/0".$2."\/".$3;
    print "<br>L2 - $date<br>";
} else {
    $date=~/(\d{1})\/(\d{1})\/(\d{4})/;
    $date="0".$1."\/0".$2."\/".$3;
    # no print here?!?    
}
[download]

So it seems that you want to "normalize" month and day to two digits. Then I would switch logic altogether:

my $date = "10/13/2006"; my ($m,$d,$y)=split m(/), $date; $date=join '/', (map sprintf('%02d', $_), $m, $d), $y;
[download]

Update: I don't have the slightest idea of what I was thinking of, but I was reinventing the wheel myself, using awkward logic to implement something that sprintf offers out of the box in the first place:

my $date = "10/13/2006";
$date=sprintf '%02d/%02d/%d', split m(/), $date;
[download]

Of course this does not do full validation of the initial $date but that's something you can add easily once you have $m, $d and $y. So I don't know why your code "doesn't work" for today's date, but the lesson is, I hope: do not reinvent the wheel!

Comment on Re: Matching Date Select or Download Code

Replies are listed 'Best First'.
Re^2: Matching Date by kwaping (Priest) on Oct 13, 2006 at 14:41 UTC
This is an alternate version of blazar's solution, which may be slightly easier for new Perl programmers (and possibly future maintenance programmers) to understand: `#my $date = "$mon/$mday/$year"; my $date = "10/13/2006"; my ($mon,$mday,$year) = split('/',$date); $mon = sprintf("%02d",$mon); $mday = sprintf("%02d",$mday); $date = "$mon/$mday/$year";` [download] Also, I'd like to point the OP to Date::Calc and Date::Format. --- It's all fine and dandy until someone has to look at the code.	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Matching Date
by kwaping (Priest) on Oct 13, 2006 at 14:41 UTC

blazar

#my $date = "$mon/$mday/$year";
my $date = "10/13/2006";
my ($mon,$mday,$year) = split('/',$date);
$mon = sprintf("%02d",$mon);
$mday = sprintf("%02d",$mday);
$date = "$mon/$mday/$year";
[download]

Date::Calc

Date::Format

---
It's all fine and dandy until someone has to look at the code.

[reply]
[d/l]