Append a leading Zero to MM-DD-YYYY Dates?

hello, currently we are getting EA dates set as 9-9-2005

instead of 09-09-2005...the lack of leading 0s is messing up my date comparision perl script...if anyone knows how to append a leading 0 to both the day and month i would really appreciate it, as im stumped.

thanks!

#!/u03/iw-home/iw-perl/bin/iwperl
use File::Find;
use TeamSite: Smiley Very Happy

CRnode;
use TeamSite: Smiley Very Happy

CRparser;

my @list = ();
my @matches = ();
$path = "Y:/default/main/fii/STAGING/daf/pdf/";
$EA = "Web Expiration Date";
$EA2 = "prod_delete";
$value = shift;
$counter = 0;
find(\&wanted, $path, $path2, $path3);

my @tm = localtime();
$tm[4]++;
$tm[5] += 1900;

# gives us a YYYYMMDD format date
my $today = sprintf("%4d%02d%02d", reverse(@tm[3..5]));

foreach $file (@list) {

if (-d $file || $file =~ ".dtd" || $file =~ ".cfg" || $file =~ ".tpl" || $file =~ ".js" || $file =~ ".gif" || $file =~ ".jpg") {next;}
# assuming EA value is in "MM-DD-YYYY" format
# get value and change to YYYYMMDD format
chomp($dateResult = qx(iwextattr -g "$EA" "$file"));
$dateResult =~ s/^(\d{2})-(\d{2})-(\d{4})$/$3$1$2/;
$cmd2 = 'iwextattr -g "'.$EA2.'" "'.$file.'"';
$deleteResult=`$cmd2`;

my($text) = $file;
my($directory, $filename) = $text =~ m/(.*\/)(.*)$/;
#check if file is named w/ project number format
if ($filename =~ m/^[G|g]{0,1}\d{5,7}\-{0,1}\d{0,2}\.\S{0,3}/) {
print "$filename $dateResult\n";
}
}

sub wanted {-f && push(@list, $File::Find::name);}

WoW Profile
TS 6.5 SP1
OD 6.0.2 SP1

Find more posts tagged with

Comments

jbonifaci

I'm not exactly sure where your problem is or why you need to append the zero. But when parsing the date, you can just do:
|^(\d{1,2})-(\d{1,2})-(\d{4})$|But if you want to transform it, you could probably do something like this:
my $date = '9-9-2005';
$date =~ s|\b(\d)\b|0$1|g;~Jeff

Migrateduser

jeff, the problem is some of the EAs are entered correctly...

01-01-2005
and some are not
1-1-2005

so i cant always apppend the zeros or it will corrupt the correct dates w/ an extra zero, throwing off the calcs. i googled it and check forums, not really sure how to do this as im not a perl expert. i wanted to ensure dates are in the correct format MM-DD-YYYY at the point of data entry, but that was shot down.

so pretty much i need perl to do this...

if MM = 1 digit
then append leading 0
else
do nothing

if DD = 1 digit
append leading 0
else
do nothing

WoW Profile
TS 6.5 SP1
OD 6.0.2 SP1

jed

You something like Date::Manip: Smiley Tongue

arseDate() and then UnixDate to get it in your desired format. You will have to do some testing, but it might be able to do the heavy lifting for you.

ParseDate

$date = ParseDate(\@args);
$date = ParseDate($string);
$date = ParseDate(\$string);

This takes an array or a string containing a date and parses it. When the date is included as an array (for example, the arguments to a program) the array should contain a valid date in the first one or more elements (elements after a valid date are ignored). Elements containing a valid date are shifted from the array. The largest possible number of elements which can be correctly interpreted as a valid date are always used. If a string is entered rather than an array, that string is tested for a valid date. The string is unmodified, even if passed in by reference.

The real work is done in the ParseDateString routine.

The ParseDate routine is primarily used to handle command line arguments. If you have a command where you want to enter a date as a command line argument, you can use Date::Manip to make something like the following work:

mycommand -date Dec 10 1997 -arg -arg2

No more reading man pages to find out what date format is required in a man page.

Historical note: this is originally why the Date::Manip routines were written (though long before they were released as the Date::Manip module). I was using a bunch of programs (primarily batch queue managers) where dates and times were entered as command line options and I was getting highly annoyed at the many different (but not compatible) ways that they had to be entered. Date::Manip originally consisted of basically 1 routine which I could pass ``@ARGV'' to and have it remove a date from the beginning.

--
Jed Michnowicz
jedm@sun.com
Content Management Engineering
Sun Microsystems

jbonifaci

Arthas, if you read my post more closely, I gave an option to add the missing 0's:
my $date = '9-9-2005';
$date =~ s|\b(\d)\b|0$1|g;This will look for any single digits and add a 0 in front of them.

~Jeff

Migrateduser

sorry our corporate web site went down and i got a bit distracted, i should have tested it first. going to try it now...thanks again for the feedback

WoW Profile
TS 6.5 SP1
OD 6.0.2 SP1

Migrateduser

get the below error:

C:\Documents and Settings\barkeed>D:\deletion_process\scripts\checkBadDaf.ipl
Use of uninitialized value in string eq at

/Interwoven/TeamSite/iw-perl/lib/Fi
le/Find.pm line 613.
Use of uninitialized value in substitution (s///) at

/Interwoven/TeamSite/iw-p
erl/lib/File/Find.pm line 613.
Use of uninitialized value in lstat at

/Interwoven/TeamSite/iw-perl/lib/File/F
ind.pm line 614.
Use of uninitialized value in concatenation (.) or string at

/Interwoven/TeamS
ite/iw-perl/lib/File/Find.pm line 667.
Use of uninitialized value in string eq at

/Interwoven/TeamSite/iw-perl/lib/Fi
le/Find.pm line 613.
Use of uninitialized value in substitution (s///) at

/Interwoven/TeamSite/iw-p
erl/lib/File/Find.pm line 613.
Use of uninitialized value in lstat at

/Interwoven/TeamSite/iw-perl/lib/File/F
ind.pm line 614.
Use of uninitialized value in concatenation (.) or string at

/Interwoven/TeamS
ite/iw-perl/lib/File/Find.pm line 667.

WoW Profile
TS 6.5 SP1
OD 6.0.2 SP1

jbonifaci

Those are warning messages from File::Find and don't appear to have anything to do with the regular expression I gave you.

Did you try the regular expression out?

~Jeff