Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re^2: packing and unpacking

by ungalnanban (Pilgrim)
on Mar 12, 2010 at 10:00 UTC ( #828252=note: print w/replies, xml ) Need Help??

in reply to Re: packing and unpacking
in thread packing and unpacking

I don't know the 64-bit Perl.
whether you are mentioning 64-bit processor or ...?

I am using Perl version 5.8.8

I ran the given code It shows the following error.
Invalid type 'Q' in unpack at line 9.

Replies are listed 'Best First'.
Re^3: packing and unpacking
by almut (Canon) on Mar 12, 2010 at 10:22 UTC

    You could also simply try

    my $x1 = $r << 32 | $t; printf "\nThe value is 0x%x", $x1; # 0x23400000345

    (though whether this works similarly depends of the build options of your perl)

    P.S.: What exactly do you need this for?  Maybe bigint or Math::BigInt would help.


    use bigint; my $r = 0x234; my $t = 0x345; my $x1 = $r << 32 | $t; print $x1->as_hex;


        BTW, note that using bigint indiscriminately can have a massive performance penalty.  So be sure to always localize it to exactly where you actually need it (by putting extra {...} blocks around those sections).

        #!/usr/bin/perl use strict; use warnings; use Benchmark qw(cmpthese); { use bigint; # code that needs bigint my $r = 0x234; my $t = 0x345; my $x1 = $r << 32 | $t; #print $x1->as_hex; # other stuff that doesn't... # => unnecessarily slow! sub with_bigint { my $x = 1; $x = $x * 4 / 2 - 1 for 1..1000; } } # end of bigint sub no_bigint { my $x = 1; $x = $x * 4 / 2 - 1 for 1..1000; } cmpthese (-1, { with_bigint => \&with_bigint, no_bigint => \&no_bigint, }, ); __END__ Rate with_bigint no_bigint with_bigint 11.3/s -- -100% no_bigint 4073/s 35876% --
Re^3: packing and unpacking
by spadacciniweb (Deacon) on Mar 12, 2010 at 10:14 UTC
    From perldoc -f pack:
    Q An unsigned quad value. (Quads are available only if your system supports 64-bit integer values _and_ if Perl has been compiled to support those. Causes a fatal error otherwise.)

    (($_="Mzz ojjdloobnf jt uvy5502383")=~y~b-zg2-5c96-81~a-z0-9~s)=~s~~~s; print
      I know that "perldoc -f pack"
      why it shows this error "Invalid type 'Q' "?


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://828252]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (4)
As of 2018-06-23 10:21 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (125 votes). Check out past polls.