Re: Problem in Date::Manip.pm

[Joaquin Ferrero <explorer@aprosi.net>]

El Martes, 30 de Agosto de 2005 12:11, saravanakarthik m escribió:
> hi debian,
> Thank u for u replay.
> actualy i expect the date from 1st century.........not 21st century ie
> year 0005
> month 01
> date 01
> it make problem....so kindly see this

If you only find to format

	00050101
to
	0005/01/01

you don't need any time/date module.

Make
	{
	  my ($year,$month,$day) = $indate =~ /(....)(..)(..)/;
	  $outdate = "$year/$month/$day";
	}


more, see below:

> > >ERROR: Invalid year (4)
> > >      Date::Manip::Date_FixYear(4) called at Date/Manip.pm line 3176
> > >      Date::Manip::Date_WeekOfYear(12, 25, 4, 1) called at
> > >Date/Manip.pm line 1738
> > >      Date::Manip::UnixDate(00050101, '%Y/%m/%d') called at 1.pl line 17
> > >
> > >how can i solve this problem.

I talk to the autor of Date::Manip. It say this problem is solved at 
Date::Manip v5.44, but I see that is not correct.

If you like to use the Date::Manip module, follow this steps:

1. Edit Date/Manip.pm module.
2. Search one line like this:

	$yy--;

3. Change the line to

	$yy = sprintf "%04d", $yy-1;

4. Repeat this step for other line. Date::Manip have two lines with $yy--;
5. Save and Exit for Date/Manip.pm

Now you can execute UnixDate:
$ perl -MDate::Manip -le '$x="00050101"; print UnixDate($x,"%Y/%m/%d" );'
0005/01/01

-- 
______________________________________________________________
Asesora y Proveedora de Servicios de Internet.      Aprosi.Net
jab/msn: explorer@jab.pucela.net           GPG/PGP: 0x42DDB1FE
explorer@pucela.net             http://Pucela.Net/Cultura/Cine
skype: joaquinferrero