#!/usr/bin/perl
#time,localtime,gmtime
require "$ENV{'JUTIL_HOME'}/jtime.pm";

my $atime = 0;
print "1.time:$atime\n";
my @timearray = localtime($atime);
print "  localtime:",join(',',@timearray)."\n\n";

$atime = time;
print "2.time:$atime\n";
my @timearray = localtime($atime);
print "  localtime:",join(',',@timearray)."\n\n";

@timearray = (6,5,4,3,2,6);
print "3.timearray:",join(',',@timearray)."\n";
$atime = timelocal(@timearray);
print "  timelocal:$atime\n";
@timearray = localtime($atime);
print "  localtime:",join(',',@timearray)."\n\n";

@timearray = (6,5,4,3,2,2006);
print "4.timearray:",join(',',@timearray)."\n";
$atime = timelocal(@timearray);
print "  timelocal:$atime\n";
@timearray = localtime($atime);
print "  localtime:",join(',',@timearray)."\n\n";

print "5.jtime:$atime\n";
@timearray = jlocaltime($atime);
print "  jlocaltime:",join(',',@timearray)."\n";
$atime = jtimelocal(@timearray);
print "  jtimelocal:$atime\n";

@timearray = jtimeread("2006.9.8","10:11:30");
print "  jtimeread:",join(',',@timearray)."\n";
@timearray = btimeread("20060908101130");
print "  btimeread:",join(',',@timearray)."\n";