>>>>> "Graham" == Graham Barr <[EMAIL PROTECTED]> writes:
[...]
>> 25/Mar/2004:13:02:31 -0200
>>
>> Can I convert this date to the "Generalized Time" format using the
>> convert::ASN1 module?
Graham> Try Date::Parse to turn this into a unixtime value, then Date::Format
Graham> to convert that into the string format you want.
Many Tx again to your good work and advice: it worked in 5 min:
use Date::Parse;
use Date::Format;
my $date1 = "25/Mar/2004:13:02:31 -0200";
my $template = "%Y%m%d%k%M%S";
my $time = str2time($date1);
# generalized time from ASN.1 X.208
my $gt = time2str($template, $time);
print "- date1 = $date1\n";
print "- time = $time\n";
print "- Generalized time = $gt" . "Z\n";
Well, ok, I admit: the "Z" in the end needs some improvement...
--
Claude
