Re: getBytes in perl ?!?
[email protected] (Paul Bijnens)
| Newsgroups | perl.unicode |
|---|---|
| Message-ID | <[email protected]> |
PerlDiscuss - Perl Newsgroups and mailing lists wrote:
>
> Do you know if there is in Perl the function "getBytes" in Java ?
> I would like to convert a "string" to bytes in perl.
>
> the idea could be :
> $mystring="Hello EveryBody. How are you ?";
> $mybytes = getBytes($mystring);
> $mybytes="0x3C3F786D6C2076657273696F6E3D22312E"; #something like
Do you mean something like this:
perl -le '$s="Smile \x{263A}"; print join("-",unpack("U*",$s))'
Unpack("U*"...) understands Unicode, and returns one number for
each character (not byte) (i.e. one large number for the smiling
face character).
Or do you want one number for each utf8-encoded byte (I.e. three
hexpairs for the smiling face character).
perl -le '$s="Smile \x{263A}"; print unpack("H*",$s)'
>
> Perl Version : 5.6.1
> Apparently, I do not have the "Encode.pm" in my libraries.
--
Paul Bijnens, Xplanation Tel +32 16 397.511
Technologielaan 21 bus 2, B-3001 Leuven, BELGIUM Fax +32 16 397.512
http://www.xplanation.com/ email: [email protected]
***********************************************************************
* I think I've got the hang of it now: exit, ^D, ^C, ^\, ^Z, ^Q, F6, *
* quit, ZZ, :q, :q!, M-Z, ^X^C, logoff, logout, close, bye, /bye, *
* stop, end, F3, ~., ^]c, +++ ATH, disconnect, halt, abort, hangup, *
* PF4, F20, ^X^X, :D::D, KJOB, F14-f-e, F8-e, kill -1 $$, shutdown, *
* kill -9 1, Alt-F4, Ctrl-Alt-Del, AltGr-NumLock, Stop-A, ... *
* ... "Are you sure?" ... YES ... Phew ... I'm out *
***********************************************************************