Help for this page

Select Code to Download

Select or download this

$ perl -E 'say oct "0x47"; say hex "0x47"'
71
71

Select or download this

$ perl -E 'say "0x47_not_hex" =~ /^0x/ ? "is hex" : "is NOT hex"'
is hex
$ perl -E 'say "0x47_not_hex" =~ /^0x[0-9a-fA-F]+$/ ? "is hex" : "is N
+OT hex"'
is NOT hex