Help language development. Donate to The Perl Foundation
P5hex - Implement Perl 5's hex() / ord() built-ins
use P5hex; # exports hex() and ord()
print hex '0xAf'; # prints '175'
print hex 'aF'; # same
$val = oct($val) if $val =~ /^0/;
This module tries to mimic the behaviour of the hex
and oct
functions of Perl 5 as closely as possible.
hex EXPR
hex Interprets EXPR as a hex string and returns the corresponding
value. (To convert strings that might start with either 0, "0x",
or "0b", see "oct".) If EXPR is omitted, uses $_.
print hex '0xAf'; # prints '175'
print hex 'aF'; # same
Hex strings may only represent integers. Strings that would cause
integer overflow trigger a warning. Leading whitespace is not
stripped, unlike oct(). To present something as hex, look into
"printf", "sprintf", and "unpack".
oct EXPR
oct Interprets EXPR as an octal string and returns the corresponding
value. (If EXPR happens to start off with "0x", interprets it as a
hex string. If EXPR starts off with "0b", it is interpreted as a
binary string. Leading whitespace is ignored in all three cases.)
The following will handle decimal, binary, octal, and hex in
standard Perl notation:
$val = oct($val) if $val =~ /^0/;
If EXPR is omitted, uses $_. To go the other way (produce a number
in octal), use sprintf() or printf():
$dec_perms = (stat("filename"))[2] & 07777;
$oct_perm_str = sprintf "%o", $perms;
The oct() function is commonly used when a string such as 644
needs to be converted into a file mode, for example. Although Perl
automatically converts strings into numbers as needed, this
automatic conversion assumes base 10.
Leading white space is ignored without warning, as too are any
trailing non-digits, such as a decimal point ("oct" only handles
non-negative integers, not negative integers or floating point).
Elizabeth Mattijsen liz@wenzperl.nl
Source can be located at: https://github.com/lizmat/P5hex . Comments and Pull Requests are welcome.
Copyright 2018 Elizabeth Mattijsen
Re-imagined from Perl 5 as part of the CPAN Butterfly Plan.
This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.