in reply to Convert Octet String DateAndTime to printable string

I believe the following will unpack your bytestring into the date and time components as described in Grandfather's reply: 
@date = unpack 'n C6 a C2', $octets;

[download]
Suitable printf formats would be: 
$datetime = sprintf "%04d-%02d-%02d %02d:%02d:%02d", @date; # no time 
+zone

$datetime = sprintf "%04d-%02d-%02d %02d:%02d:%02d.%d%s%02d:%02d", @da
+te; # with tz info

[download]
I didn't manage to coax the displayed text into sensible values though, so the pack format might be wrong.

Can you give us the output of print join '-', unpack "C*", $octets; if it didn't work out?

Replies are listed 'Best First'.
Re^2: Convert Octet String DateAndTime to printable string
by perlchild (Acolyte) on Apr 28, 2007 at 02:13 UTC
    Thanks rhesa, that worked just like I wanted! Thanks for everyone's reply also. This is the best site I've come across in a long time. Good job!
[reply]
      Hi, I am wokring on the same problem. Could you help me also. my contact is kevin.zhang@mblox.com
[reply]
        Hi One of the varbind of snmptrap carrying date and time in Octet String. When i am trying to ocnvert it into string i got value that is not macthing the data and time. "DateAndTime (Octet String) (SIZE(8|11))"
        Here is my code


        $octets="D8 06 01 01 27 3B 00 ";

        @date = unpack 'n C6 a C2', $octets;

        $datetime = sprintf "%04d-%02d-%02d %02d:%02d:%02d", @date; # no time zone

        print $datetime

        $datetime = sprintf "%04d-%02d-%02d %02d:%02d:%02d.%d%s%02d:%02d", @date; # with tz info
        ~
        perl tt2.pl

        17464-32-48 54:32:48

[reply]
        Hi One of the varbind of snmptrap carrying date and time in Octet String. When i am trying to ocnvert it into string i got value that is not macthing the data and time. "DateAndTime (Octet String) (SIZE(8|11))" Here is my code $octets="D8 06 01 01 27 3B 00 "; @date = unpack 'n C6 a C2', $octets; ##</code><code>## $datetime = sprintf "%04d-%02d-%02d %02d:%02d:%02d", @date; # no time zone print $datetime #$datetime = sprintf "%04d-%02d-%02d %02d:%02d:%02d.%d%s%02d:%02d", @date; # with tz info ~ perl tt2.pl 17464-32-48 54:32:48 Please let me know what is the problem in my code. My id is"umkamath@in.ibm.com"
[reply]
        Hi One of the varbind of snmptrap carrying date and time in Octet String. When i am trying to ocnvert it into string i got value that is not macthing the data and time. "DateAndTime (Octet String) (SIZE(8|11))"
        Here is my code

        $octets="D8 06 01 01 27 3B 00 "; @date = unpack 'n C6 a C2', $octets; $datetime = sprintf "%04d-%02d-%02d %02d:%02d:%02d", @date; # no time zone print $datetime #$datetime = sprintf "%04d-%02d-%02d %02d:%02d:%02d.%d%s%02d:%02d", @date; # with tz info ~ perl tt2.pl 17464-32-48 54:32:48
[reply]
Re^2: Convert Octet String DateAndTime to printable string
by Anonymous Monk on Jun 05, 2008 at 07:04 UTC
    Hi
    One of the varbind of snmptrap carrying date and time in Octet String. When i am trying to ocnvert it into string i got value that is not macthing the data and time. "DateAndTime (Octet String) (SIZE(8|11))"

    Here is my code

    $octets="D8 06 01 01 27 3B 00 "; @date = unpack 'n C6 a C2', $octets; $datetime = sprintf "%04d-%02d-%02d %02d:%02d:%02d", @date; # no time zone print $datetime $datetime = sprintf "%04d-%02d-%02d %02d:%02d:%02d.%d%s%02d:%02d", @date; # with tz info ~ perl tt2.pl 17464-32-48 54:32:48
[reply]
Re^2: Convert Octet String DateAndTime to printable string
by Anonymous Monk on Jun 05, 2008 at 07:06 UTC
    Hi
    One of the varbind of snmptrap carrying date and time in Octet String. When i am trying to ocnvert it into string i got value that is not macthing the data and time. "DateAndTime (Octet String) (SIZE(8|11))"

    Here is my code

    $octets="D8 06 01 01 27 3B 00 ";

    @date = unpack 'n C6 a C2', $octets;

    $datetime = sprintf "%04d-%02d-%02d %02d:%02d:%02d", @date; # no time zone

    print $datetime

    $datetime = sprintf "%04d-%02d-%02d %02d:%02d:%02d.%d%s%02d:%02d", @date; # with tz info
    ~
    perl tt2.pl

    17464-32-48 54:32:48
    My email id:umkamath@in.ibm.com
[reply]

In Section Seekers of Perl Wisdom