[Programación] Re: [Programación] Re: [Programación] sed--->p erl, ayuda

[Horacio Castellini]

Chas gracias lo ensallaré....

> Hola Horacio,
> 
> bueno .. esta hecho medio así nomas, sin optimizar
> la sustitución de patrones 
> y sin probar .. pero te sirve de base.
> Supongo que si fuiste al curso no tendrás problemas
> en mejorarlo.
> 
> Slds.
> Federico .-
> 
> P.D: no encontré en sed ningún significado para el
> caracter ?  (por lo menos 
> el de la FSF que viene con Linux), así que lo
> comenté ya que en Perl tiene un 
> significado especial (puede que lo del sed no sea
> así). Te aconsejo además, 
> ir probándolo linea por linea comparandolo con el
> script shell.
> 
> 
> #!/usr/bin/perl -w
> #Script de prueba pp.pl 
> 
> while (<>)
> {
>         s/=\?iso-8859-1\?//g;
>         s/q\?//g;
>         s/Q\?//g;
> 
>         s/=A1//g;
>         s/=0D//g;
>         s/Re://g;
>         s/RE://g;
> 
>         s/RV://g;
>         s/Re\[[1-9]\]://g;
>         s/=\?ISO-8859-1\?//g;
> 
>         s/\"//g;s/_//g;
>         s/=\?windows-1252\?//g;
> 
>         s/=\?utf-8\?//g;
>         s/=\?us-ascii\?//g;
>         s/\[windows-1252\]//g;
> 
>         s/=\?utf-8\?//g;
>         s/=\?us-ascii\?//g;
>         s/\[windows-1252\]//g;
> 
>         s/=\?iso-8859-15\?//g;
>         s/{Spam\?}//g;
>         s/(//g;
>         s/)//g;
> 
>         s/=E1/á/g;
>         s/=E9/é/g;
>         s/=ED/í/g;
>         s/=F3/ó/g;
> 
>         s/=F1/ñ/g;
>         s/=C3/á/g;
>         s/=FA/ú/g;
> 
>         s/\\+/\/g;    #esto supuestamente debería
> hacer lo mismo que el tr
>         print;
> }
> para probar
> 
> chmod u+x pp.pl
> ./pp.pl < data
> 
> On Friday 29 July 2005 19:18, Horacio Castellini
> wrote:
> > Hola, alguien me puede dar una mano de como
> trasformo estas sustituciones
> > en sed (stream editor) a perl? es decir como
> manejo las expresiones
> > regulares para obtener igual resultado...
> >
> > #!/bin/sh
> > zcat $1|sed 's/=?iso-8859-1?//g;s/q?//g;s/Q?//g'
> >$A
> > cat $A|sed 's/=A1//g;s/=0D//g;s/Re://g;s/RE://g'
> >$B
> > cat $B|sed
> 's/RV://g;s/Re\[[1-9]\]://g;s/=?ISO-8859-1?//g' >$A
> > cat $A|sed 's/\"//g;s/_//g;s/=?windows-1252?//g'
> >$B
> > cat $B|sed
>
's/=?utf-8?//g;s/=?us-ascii?//g;s/\[windows-1252\]//g'
> >$A
> > cat $A|sed
> 's/=?iso-8859-15?//g;s/{Spam?}//g;s/(//g;s/)//g' >$B
> > # Coloca acentos y otros...
> > cat $A|sed
> 's/=E1/á/g;s/=E9/é/g;s/=ED/í/g;s/=F3/ó/g'>$B
> > cat $B|sed 's/=F1/ñ/g;s/=C3/á/g;s/=FA/ú/g'|tr -s \
> >
> > Chas gracias Horacio...
> >
> >
> > _______________________________________________
> > Programacion mailing list
> > Programacion@lugro.org.ar
> >
>
http://www.lugro.org.ar/mailman/listinfo/programacion
> 
> _______________________________________________
> Programacion mailing list
> Programacion@lugro.org.ar
>
http://www.lugro.org.ar/mailman/listinfo/programacion
> 



	


	
		
___________________________________________________________ 
1GB gratis, Antivirus y Antispam 
Correo Yahoo!, el mejor correo web del mundo 
http://correo.yahoo.com.ar