Dejar pasar desde o hasta una linea

Por Saiyine  el 2004-01-28 00:00:00 - Secciones:  PERL  - Enlace permanente: 388

Necesitaba un par de scripts que permitiesen volcar un fichero a partir de la linea que contuviese mi correo, y que dejase de escribir al llegar a la linea con el token TABLE, asi que, dicho y hecho. Estos scripts cogen la entrada standard y la copian, el primero a partir de la linea que cumpla con una expresión regular que le pasamos como parametro, y el segundo hasta una linea igualmente marcada. Aqui os pongo el mencionado primer script, dejarpasardesde:

#!/usr/bin/perl $aceptado="no"; foreach $linea (<STDIN>) { if ($linea =~ /$ARGV[0]/) { $aceptado="si"; } if ($aceptado eq "si") { print "$linea"; } }

Y, por supuesto, su gemelo, dejarpasarhasta:

#!/usr/bin/perl $aceptado="si"; foreach $linea (<STDIN>) { if ($linea =~ /$ARGV[0]/) { $aceptado="no"; } if ($aceptado eq "si") { print "$linea"; } }

Keith Amling (25/09/2005, 13:11) The second can be replaced with sed '/foo/,$d' and the first with sed -n '/foo/,$p'

189 

Anonimo (2006-02-01 17:12:00) quiero que me ayudes a hacer una calculadora ip en php mi nombre es geiner y mi correo es geiner_13@hotmail.com