in reply to Re: Re: Unpack for VMS binary files
in thread Unpack for VMS binary files

In that case, there are probably endian differences. VMS is little endian and I think Solaris is big endian. Use 'V2 v12' (first V is capitalized, second is not) instead. That says two longs in VAX (little endian) order followed by 12 shorts in VAX order.

---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';

[download]

Replies are listed 'Best First'.
Re: Re: Re: Re: Unpack for VMS binary files
by maderman (Beadle) on Feb 19, 2003 at 04:36 UTC
    You are god! The differences between little endian (VMS) and big endian (Solaris) and the format you provided made the difference. Many thanks... Now to try and convert VMS time to something readable (urrgg). Regards, Stacy.
[reply]
      I wrote a pure-perl VMS time to Unix time converter at one point. I can't find the original, but courtesy of google I find it quoted in a mail reply here.
[reply]
        Ahh, with the VMS time, I have two parts: 
        3918795776 9926119
4118795776 9926119
23828480 9926120
223828480 9926120
423828480 9926120

        [download]
        For the subroutine you mentioned, which is considered the low_long and high_long values? Regards, Stacy.
[reply]
[d/l]

In Section Seekers of Perl Wisdom