Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Implement Arithmetic Shift Right for signed number in perl

by IamAwesom3 (Initiate)
on Apr 22, 2013 at 23:27 UTC ( [id://1030000]=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
        my $Rm = "0xAAAAAAAA";
    use integer;
    my $Rd = hex($Rm) >> 31;
    printf "Rd = 0x%x\t Rb = 0x%x\n",$Rd, hex($Rm);
  2. or download this
    Rd = 0x1         Rb = 0xaaaaaaaa

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: perlquestion [id://1030000]
Approved by davido
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2024-04-24 22:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found