[perl] ayuda en remplazo: s/%0D%0A/%3CBR%3D/eg;

[Alejandra Carrillo]

> -----Original Message-----
> From: owner-perl@tlali.iztacala.unam.mx
> [mailto:owner-perl@tlali.iztacala.unam.mx]On Behalf Of Salvador Ortiz
> Garcia
> Sent: Friday, July 21, 2000 7:37 PM
> To: perl@tlali.iztacala.unam.mx
> Subject: Re: [perl] ayuda en remplazo: s/%0D%0A/%3CBR%3D/eg;
>
>
> On Fri, 21 Jul 2000, Pedro Alvarado wrote:
>
> Te falla por el modificador 'e' de 'evaluar' y %3CBR... no es evaluable.
>
> Pero, por qué pelear con el salto de línea antes de la decodificación?
>
>   $vble =~ tr/+/ /;
>   $vble =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>   $vble =~ s/\r\n/<br>/g;
>
> Aprovechando el mail,
>
> Acostubrate a usar la comilla sencilla cuando tus cadenas son constantes:
> En tu caso, en vez de pack("C",...) usa pack('C',...  , a pesar de lo
> frecuente que es el abuso de la comilla doble, incluso el la literatura
> 'oficial' (supongo por infuencia del lenguaje C).

   Aprovechando el REPLY, que es lo que significa (\S+) y $1
   en el remplazo $s =~ s/.*host=(\S+).*/$1/;

   Sé que limpia lo qua haya antes "host=" inclusive, y quita el final
   después de (\S+)

   Ciao,
   Alejandra.


--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl