[eside-ghost] Procesar un archivo de texto

[DAVID RODRIGUEZ TORRONTEGUI]

Aupa,

Muchas gracias por la respuesta pero la maquina AIX 4.3 no tiene 
instalado el perl, jeje la solución no me valdría, pero me temo que 
habría que hacer un script parecido en ksh que con el awk solo no 
valdría.

De todas formas y si no es abusar, es que no tengo ni papa de perl, me 
tocara algun dia pero de momento... me podrías explicar un poco el 
script.

perl -we 'while(<>){chomp;foreach (/\d{1,12}/gs){print if(/^2693/)}}
print"\n"'

Un saludo y gracias por la ayuda.

agur.

David Rodriguez Torrontegui

dajon en euskalnet.net

----- Mensaje Original -----
De: =C1lvaro_Ur=EDa (Fermat) <fermat en movimage.com>
Fecha: Jueves, Agosto 26, 2004 5:42 pm
Asunto: Re: [eside-ghost] Procesar un archivo de texto

> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
> 
> Aupi David,
> 
> El Thu, 26 Aug 2004 16:13:41 +0200,
> DAVID RODRIGUEZ escribió:
> 
> // Aupa Ender,
> // 
> // Seguro que me he explicado mal esto es un poco cristo, mira te 
> pongo un 
> // ejemplo:
> // 
> // Tengo un fichero con esta linea, sin \n solo una linea, es un 
> fichero 
> // de 30 Mb.
> // 269300001234269000000011593000000000269300004567
> // 
> // Los registros en este ejemplo son de 12 caracteres:
> // 269300001234 | 269000000011 |593000000000 | 269300004567
> // ------------                                ------------
> // Necesito sacar los registros que empiecen por 2693 es decir, 
> necesito 
> // que el fichero final sea:
> // 269300001234269300004567
> 
> Espero que te sirva,
> 
> $ cat fichero
> 269300001234269000000011593000000000269300004567
> $ cat fichero | perl -we 'while(<>){chomp;foreach (/\d{1,12}/gs){print
> if(/^2693/)}}print"\n"'
> 269300001234269300004567
> 
> // PD: Encontraste la expresion regular para contar "FROM" en todo 
> el doc.
> 
> Yo le dejé escrito en el iRC una parida pero no estaba y no sé si 
> lo leyó.
> Ya que estamos,
> 
> $ cat fichero | perl -we
> '$i=0;while(<>){$i++while(s/from//i)}print"WARNING!\n"if($i>=100)'
> 
> Si hay más de 99 'from's, escribe "WARNING!" por pantalla :-P
> 
> Buenas de nuevo O:)
> - -- 
>  ,--.
> |  oo| wget -O - fermat.movimage.com/fermat.asc | gpg --import
> |  ~~| Key FingerPrint = 02C3 E5E5 2283 D08F 506C  3070 4713 40EF 
> 21C5 21E2
> |/\/\|
>     |_[#] Si la muerte fuera un bien, los dioses no serían 
> inmortales.- Safo.
> -----BEGIN PGP SIGNATURE-----
> Version: GnuPG v1.2.5 (GNU/Linux)
> 
> iD8DBQFBLgTVRxNA7yHFIeIRAijJAJ0WUa0P73GJlWX4gRPDisXRFDyNCgCbBudq
> INZz903QhoVrhFrukkKAD+w=
> =qJtl
> -----END PGP SIGNATURE-----
> 
------------ próxima parte ------------
_______________________________________________
eside-ghost mailing list
eside-ghost en deusto.es
https://listas.deusto.es/mailman/listinfo/eside-ghost