Shell Programming and Scripting

This probably is related to the other question you asked, and since you've used Perl in the other one, I guess you can solve this problem by using the Date::Calc Perl module -

Code:

perl -M"Date::Calc qw(:all)" -le '$x="20100421043335"; printf("%4d%02d%02d%02d%02d%02d\n",Add_Delta_DHMS(unpack("A4A2A2A2A2A2",$x),0,0,-2,0))'

Test run:

Code:

$
$
$ perl -M"Date::Calc qw(:all)" -le '$x="20100421043335"; printf("%4d%02d%02d%02d%02d%02d\n",Add_Delta_DHMS(unpack("A4A2A2A2A2A2",$x),0,0,-2,0))'
20100421043135
$
$

tyler_durden

how do i get or start using the date cal per module

From the one-and-only stop aka CPAN (the Comprehensive Perl Archive Network, in case you didn't know).

Installing CPAN Modules

tyler_durden

Ok, that was the short answer.

I don't know what OS you are on, but if it's a Linux flavor or Windows, then it's pretty easy. CPAN, besides the website, is a Perl module as well and is packaged as an rpm or deb file for Linux. You can use your Linux flavor's package-manager program (yum, apt-get, yast etc.) to install cpan. Once it is done, log in as root and run the cpan command, which opens up the cpan shell. Installing any Perl module from there is just a matter of firing the "install <module_name>" command.

Windows is easier than that. ActiveState has its own package-manager for Perl called "ppm". It's a graphical tool and extremely easy to navigate. You fire it up with the "ppm" command. To install a module, select it from the list and click on the "Install" button. (I've never used Strawberry Perl on Windows, so can't comment on that.)

If you cannot install by either of these methods, then life would be tough. You'll have to build and compile from the sources, and I'd suggest you talk to your SysAdmin about it.

HTH,
tyler_durden