printf('%u', ord($foo));

##</code><code>##

                       #  C     Perl
                       #  ----  ----
printf('%u', 4);       #     4     4
printf('%u', '4');     #    52     4
printf('%u', 0x12);    #    18    18
printf('%u', '\x12');  #    18     0*

* - warns "isn't numeric"