Hmmm... I'm confused here, UICs are displayed in octal, but 327686 is 1200006
in octal ([12,6]) and 00050006 in hex.
It's pretty easy to do these manipulations with strings. Of course, There's
More Than One Way To Do It applies...
$uic = 327686;
$octal_uic = sprintf "%lo",$uic;
($highword, $lowword) = $octal_uic =~ /(\d*)(\d\d\d\d\d)/;
print "[$highword,",oct($lowword),"]\n";
Hack alert, the use of oct() in the last line is just to trim leading zeros,
don't
be confused! It already was in octal, it was just a string 00006.
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Sent: Friday, September 01, 2000 10:22 AM
> To: [EMAIL PROTECTED]
> Subject: RE: Quadword conversion of UIC in VMS::User
> Importance: High
>
>
> Oops, make that longword vice quadword. It returns a longword.
>
> Dale A. Whittemore
> Lockheed Martin EIS
> Phone: 303-977-5008
> Pager: 720-521-8942
> [EMAIL PROTECTED]
>
>
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Sent: Friday, September 01, 2000 8:06 AM
> To: [EMAIL PROTECTED]
> Subject: Quadword conversion of UIC in VMS::User
>
>
> How do I convert the quadword returned for the UIC.
> Here is the snippet of code I am using to get the quadword:
>
> use VMS::User;
>
> $UserName = "DALEW"
> $uairef = VMS::User:user_info($UserName);
> $uic = $uairef->{UIC};
> print "UIC ==> ",$uic,"\n";
>
>
> My uic is [5,6], and this code returns:
> UIC ==> 327686
>
> I want it to display the [5,6]
>
> Thanks
>
> Dale A. Whittemore
> Lockheed Martin EIS
> [EMAIL PROTECTED]
>
