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'