Bite my shiny, metal ass! [?]
¡Añademe a tus favoritos!
Contacto
Post al azar
RSS
BUSCAR
Mapa de la web
Bite my shiny, metal ass! [?]
¡Añademe a tus favoritos!
Contacto
Post al azar
RSS
BUSCAR
Mapa de la web
Por
Saiyine 
el 2003-08-05 00:00:00 - Secciones: - Enlace permanente: 393
Necesitaba un programa que eliminase las lineas repetidas de un texto, y como el uniq del UNIX es practicamente inutil, tuve que currarmelo yo (unique):
#!/usr/bin/perl @lineas = <STDIN>; foreach $linea (@lineas) { $estaba="Pono"; foreach $cadena (@repasadas) { if ($cadena eq $linea) { $estaba="Pozi"; } } if ($estaba eq "Pono") { push @repasadas, $linea; print "$linea"; } }
ACTUALIZACIÓN 23/07/2004 Usando diccionarios, _muchÃsimo_ más rápido.
#!/usr/bin/perl while (<STDIN>) { if (!(exists $lineas{$_})) { print "$_"; $lineas{$_}="1"; } }
 | Keith Amling (25/09/2005, 13:22) uniq is designed for use with sorted text. If you sort the input first it will handle it correctly, for example $ cat file c a a b a $ cat file | uniq c a b a $ cat file | sort | uniq a b c If you need the lines sorted as they were initially then uniq is useless. While I'm on the subject of uniq, don't forget uniq -c. |
 | Saiyine (25/09/2005, 23:41) Yeah, that was right the problem, I didn't wanted sort to mess with the order. Thanks for this lot of commentaries! |
Otras entradas de la web que podrian interesarte:
. . .
. . .
. . .
. . .
Página web ©2001-2011 Saiyine descargada en s, con 5908053 visitas en total, hoy (de un total de 0 previstas).
. . .