Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re: Hex Question(s)

by kyle (Abbot)
on Mar 27, 2008 at 17:03 UTC ( #676798=note: print w/replies, xml ) Need Help??

in reply to Hex Question(s)

I think you could do what you want if you create $theHex as an object and use overload. A quick example:

package Number::HexString; use overload '""' => sub { sprintf '0x%x', ${$_[0]} }, '0+' => sub { ${$_[0]} }, 'fallback' => 1; sub new { my $class = shift; my $number = 0+shift; return bless \$number, $class; } package main; my $theHex = Number::HexString->new( 1501299200 ); print "$theHex plus 1 is ", $theHex + 1, "\n"; print 'The number ', $theHex+0, " is '$theHex'\n"; __END__ 0x597c0200 plus 1 is 1501299201 The number 1501299200 is '0x597c0200'

This really seems like overkill, however, and you may have to fiddle with it a while before it does what you really want.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2020-02-21 15:48 GMT
Find Nodes?
    Voting Booth?
    What numbers are you going to focus on primarily in 2020?

    Results (96 votes). Check out past polls.