Please Help for perl Script

[maxman1]

HI Guru,
I am newbabe in perl, Could you please help me out.
I am having a file withComma (,) seprater data records. Like below 2 lines
01/09/2008 00:00:00,[phone],http://wap.mysite.com/news/world/ind...00-Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)

01/09/2008 00:00:02,[phone],http://wap.mysite.com/news/business/....xx,LGE-CX5450 UP.Browser/6.2.2.3.d.1.103 (GUI) MMP/2.0

--------------------------------------
I would like to replace first filed of the line date (01/09/2008) with adding 5 month in existing date and rest of the data should be same.using perl scripts

Input File:
01/09/2008 00:00:00,[phone],http://wap.mysite.com/news/world/ind...00-Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)

Result file I need:
01/02/2009 00:00:00,[phone],http://wap.mysite.com/news/world/ind...00-Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)


Note: date in Input file: 01/09/2008 changed to 01/02/2009 means that scripts should add 5 month into exsiting date in file.

Looking for your response asap.

Thanks
Max

[gpraghuram]

To add 5 months to a date you can make use of time functions.
You can first get the tick count for the date in the input.
Add 30 * 5* 86400
then convert the tick back to normal date.

I think there is a date calculator also in unix , which i have used some time back(but i dont remember the command name)

Raghu

[numberwhun]

@maxman1

To do this, you are going to have to disect each line and pull out the date, then use something like the date::calc module from cpan in order to do the modification.

Why not give this a try and then post your code here if you get stuck.

Regards,

Jeff