Re: [PERL] konvertere tekststreng til hex

[Christian Hansen <sslug@sslug>]

Nezar Nielsen wrote:

> ----- Original Message -----
> From: "Christian Hansen" <sslug@sslug>
> Newsgroups: sslug.perl
> To: <sslug@sslug>
> Sent: Wednesday, November 29, 2000 12:20 PM
> Subject: [PERL] konvertere tekststreng til hex
>
>
>
> > Hej.
> >
> > Er der en eller anden, der kan fortælle mig, hvordan jeg hurtig
> > konvertere en tekststreng til hexidecimal præsentation.
> >
> > eksempelvis Ø=>%F8
>
>
> Hejsa,
>
> Hvordan får du F8 ud fra Ø? De måder jeg lige kan finde på får D8 ?

ahem:-) Du har selvfølgelig ret:-))

> perl -e 'print "%".uc(unpack("H*","Ø"))'
>
> perl -e 'print "%".uc(sprintf("%x",ord("Ø")))'

Det gør det kun på et tegn. Hvad med en hel tekststreng. Skal jeg til at 
gennemløbe hvert eneste tegn i en lykke, eller kan det lade sig gøre på 
anden, smartere vis ala.

$input =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
?

MVH Christian