[eside-ghost] Procesar un archivo de texto

[Álvaro Uría (Fermat)]

-----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-----