Re: Como hago esto en perl? (fwd)

["Armando Montiel Caba (NetAdmin)" <amontiel en mpsnet net mx>]

Utiliza el siguiente programa para reemplazar cadenas:
--------------------------------------------------------------------------
#!/usr/bin/perl -w
print "Cadena a cambiar:";
$cadena1=<STDIN>;
chop($cadena1);
$cadena1=quotemeta $cadena1;
print "Cadena a nueva:";
$cadena2=<STDIN>;
chop($cadena2);
$cadena2=quotemeta $cadena2;
print "Nombre del archivo:";
$archivo=<STDIN>;
$comando="\057usr\057bin\057perl \055pi.bak \055e \"s\/$cadena1\/$cadena2\/g\" $archivo";
system($comando);
--------------------------------------------------------------------------
en el primer renglon le das:
\-\n (que es lo que no quieres)
y en el segundo le das enter.
en el tercero escribes el nombre del archivo a modificar, lo cual te deja
un nuevo archivo.txt y una version anterior en archivo.txt.bak

On Wed, 14 Jun 2000, 'Aztec Eagle' Turbo wrote:

> ---------- Forwarded message ----------
> Date: Wed, 14 Jun 2000 15:17:43 -0500 (CDT)
> From: 'Aztec Eagle' Turbo <turbo en cie unam mx>
> To: Linux Ayuda Mail List <linux-ayuda en nuclecu unam mx>
> Subject: Como hago esto en perl?
> 
> ¡Saludos!
> 
> Necesito procesar algunos documentos de texto (iso-8859-1)
> con perl, pero ocasionalmente algunas palabras que comien-
> zan en un renglón terminan el siguiente (como en estas lí-
> neas). ¿Cómo le hago para quitar el guión y volver a te-
> ner la palabra completa?
> 
> ---
> Ing. Héctor Daniel Cortés González <hdcg en cie unam mx>
> http://www.cie.unam.mx/W_Personal/hdcg.html
> 
> 
> 
> 

-- 
Armando Montiel Caba / Gerente de Sistemas  MPSNet / Proyectos LinuxMPSNet
Tel: (525)4-88-65-55 / SkyTel: 5536911 / ICQ:7690611  / amontiel en mpsnet net mx
Av. Coyoacan #734 / Col. del Valle / C.P. 03100 / Fax: (525)4-88-65-00
http://www.hazclick.com/ La primera Red de Servicios en Internet


-- 
Para desuscribirse, mande correo a: ayuda-unsubscribe en linux org mx
Para comandos adicionales, envíelo a: ayuda-help en linux org mx