Re: Reemplazar caracteres por hexadecimal en Perl

Article View: chile.comp.programacion

Article #1330

Back to chile.comp.programacion Previous Next

#1330

From: Chano
Date: Tue, 26 Sep 2006 21:54

30 lines
1936 bytes

Chano <chano@lj.nospam.cl> escribio:
>   Necesito reemplazar en un string cada uno de los caracteres por un código hexadecimal.
> Pensaba poner el listado de equivalencias en un hash y luego usar una expresion regular de 
> reemplazo para hacerlo... pero me quedé en el hash y se me fue en collera la exp regular.

> %hash=( 'a' => '+61',
> 	'b' => '+62',
> 	...
> 	'z' => '+7A'
> 	);

> s/$string/??????/

>   Alguna idea?

  Bueno, lo resolvi de la siguiente manera

 $string =~ s/([\$,\@,\#,\!,\",\%,\',\(,\),\*,\+,\,,\-,\.,\/,\:,\;,\<,\=,\>,\?])/$hash{$1}/g ;

  Con eso, para cada caracter que este en la lista y que encuentre en $string, buscara su equivalente en 
$hash y lo reemplazara.

-- 
Chano
jgarrido[@]dcc.uchile.cl

Technical Details

Message-ID: <efc7ho$f8u$1@localhost.localdomain>

Path:

arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!news4.google.com!news.glorb.com!news.kjsl.com!news.nivel5.cl!news.cec.uchile.cl!not-for-mail

References: <efbvjj$3g4$1@localhost.localdomain>

Show Full Headers

Complete Article Headers

X-Google-Thread: 1593cb,5bb18c6b72accfca
X-Google-Attributes: gid1593cb,public
X-Google-Language: SPANISH,ASCII
Path: arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!news4.google.com!news.glorb.com!news.kjsl.com!news.nivel5.cl!news.cec.uchile.cl!not-for-mail
From: Chano <chano@lj.NOSPAM.cl>
Newsgroups: chile.comp.programacion
Subject: Re: Reemplazar caracteres por hexadecimal en Perl
Date: Tue, 26 Sep 2006 21:54:00 +0000 (UTC)
Organization: Chano Records Inc.
Lines: 30
Sender: Jose Miguel Garrido Urzua <jgarrido@cipres.cec.uchile.cl>
Distribution: world
Message-ID: <efc7ho$f8u$1@localhost.localdomain>
References: <efbvjj$3g4$1@localhost.localdomain>
Reply-To: Chano <chanorecords@gmail.com>
NNTP-Posting-Host: cipres.cec.uchile.cl
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-Trace: localhost.localdomain 1159307640 15646 200.9.100.5 (26 Sep 2006 21:54:00 GMT)
X-Complaints-To: news@localhost.localdomain
NNTP-Posting-Date: Tue, 26 Sep 2006 21:54:00 +0000 (UTC)
X-Nick: Chano
User-Agent: tin/1.4.5-20010409 ("One More Nightmare") (UNIX) (SunOS/5.8 (sun4u))

Reply to Parent Message