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 1:48 PM
> Subject: Re: [PERL] konvertere tekststreng til hex
>
>
>
> > Nezar Nielsen wrote:
>
> ....
>
> > > > Er der en eller anden, der kan fortælle mig, hvordan jeg hurtig
> > > > konvertere en tekststreng til hexidecimal præsentation.
> ....
>
> > > 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;
> > ?
>
>
> Yep:
>
> $input =~ s/([^a-zA-Z0-9])/uc('%'.unpack("H*", $1))/eg;

Skidt med det. jeg tager dem alle:-)

Du er en guru. Tak for hjælpen:-))

MVH Christian