Shell Programming and Scripting

Is there a perl date conversion that will convert this type of date:

2008/100:01:56:10.000

to this type of date:

2008 04 09 01 56 10 000

I am using this right now:

sub jd2date
{
$space=" ";
$zero="0";
my ($jd) = @_;
if (($jd<1) || ($jd>782028))
{
print "julian day out of range\n";
return 1;
}
use integer;
$standard_jd=$jd+2400001;
use integer;
$temp1 = $standard_jd + 68569;
use integer;
$temp2 = (4*$temp1)/146097;
$temp3 = $temp1 - ((146097 * $temp2 + 3) / 4);
use integer;
$year = 4000 * ($temp3 + 1) / 1461001;
use integer;
$temp4 = $temp3 - 1461 * $year/4 + 31;
use integer;
$month = 80 * $temp4 / 2447;
use integer;
$day = $temp4 - 2447 * $month / 80;
use integer;
$temp5 = $month / 11;
use integer;
$month = $month + 3 - 12 * $temp5;
use integer;
$year = 100 * ($temp2 - 49) + $year + $temp5;
if (length($month)==1)
{
use integer;
$tempmonth=$zero . $month;
}
else
{
use integer;
$tempmonth=$month;
}
if (length($day)==1)
{
use integer;
$tempday=$zero . $day;
}
else
{
use integer;
$tempday=$day;
}
use integer;
$wholedate=$year . $space . $tempmonth . $space . $tempday;
return $wholedate;
}

It works with a date like this:

2008/100:01:56:10.000

to this type of date:

2008 04 09 01 56 10 000


but gives the wrong date for this type of date:

2008/009:01:56:10.000

I am getting this date:

2007 13 09 01 56 10 000

I think it might be the julian date conversion, but I can't figure it out.

Is there a way to convert this date without doing a julian date conversion?

Thanks.

Allyson

TIME::PIECE supprts strptime:

Code:

my $t = Time::Piece->strptime("2008/100:01:56:10.000",
                                "%Y/%j:%H:%M:%S");  
print $t->strftime("%Y %m %d %H %M %S 000"), "\n";

The fractional second value is

I added use Time::Piece; to the beginning of my code and am getting this error:

BatchPDS_perl.ksh /home/agwin/bin/b2.conf
Can't locate Time/Piece.pm in @INC (@INC contains: /usr/local/lib/perl5/5.8.0/sun4-solaris /usr/local/lib/perl5/5.8.0 /usr/local/lib/perl5/site_perl/5.8.0/sun4-solaris /usr/local/lib/perl5/site_perl/5.8.0 /usr/local/lib/perl5/site_perl .) at ./PDSBatch.pl line 2.
BEGIN failed--compilation aborted at ./PDSBatch.pl line 2.

Does this mean that I can't use this? Could it be somewhere else?

Thanks for the help.

Allyson

I have these:

Local.pm
gmtime.pm
localtime.pm
tm.pm

Do any of these have the subroutine that I can use instead of Time::Piece->strptime($daytime,"%Y/%j:%H:%M:%S");?

Thanks.

Allyson

I downloaded the POSIX-strptime-0.05 (that is the version we have) and now I really don't know what to do with it. I am pretty new to perl and have never installed anything like this. Any suggestions? Thanks.

Allyson

CPAN has several good introductory tutorials on installing Perl modules for system-wide use, or for your own private use.. Probably the easiest way to get started is to simply ditch the thing you downloaded, and start over in the CPAN shell. See e.g. CPAN - query, download and build perl modules from CPAN sites