Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Is the documentation for Perl 5.20 'pack' correct?

by Anonymous Monk
on Jul 07, 2015 at 00:53 UTC ( [id://1133481]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $i = ord(4);
    foreach my $c (3,2,1) { $i <<= 8; $i |= ord($c); }
    our $byteorder = join('', unpack('aaaa', pack('L!', $i)));
    s/(byteorder=)(['"]).*?\2/$1$2$Config::byteorder$2/m;
    
  2. or download this
     172 byteorder (byteorder.U):
    173         This variable holds the byte order in a UV. In the followi
    +ng,
    174         larger digits indicate more significance.  The variable by
    +teorder
    175         is either 4321 on a big-endian machine, or 1234 on a littl
    +e-endian,
    176         or 87654321 on a Cray ... or 3412 with weird order !
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1133481]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2024-03-29 04:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found