🚀 go-pugleaf

In article <a7a76t$jqtac$1@ID-59646.news.dfncis.de>, [ Z A T O P E K ] wrote:
> $email=@ARGV[1];
> 
> ##esto es nuevo
> open (acc, '/etc/mail/access');
> while(<acc>){
> my $linea=$_;
> if(=~/$email/u/)#aqui da el error
Canvia por if(=~/$email/i) o if($linea=~/$email/i)
 (mea culpa -i ignora mayusculas y minusculas-  man perlre para mas   
informacion)
 
Si no escapas caracteres que tengan relevancia en  expresiones reculares podria 
no darte los resutados requeriodos ( en el caso de un Email no tiene mucha 
importancia)v pero buscando pepe@aqui.com te encontraria tambien pep@aqui*com 
*cualquier caracter pudiendo eliminar alguna linea interesante.
para realizar las pruebas yo lo usaria como un filtro puro leer desde entrada 
estandar y escribir en salida estandar.
**************Codigo***********
usr/bin/perl
#Este esta probado
$n = @ARGV;
if ($n != 2) {
 printf ("Uso: usrdel buzon direccionemail\n");
 exit(1);
}

$user=@ARGV[0];
$email=@ARGV[1];

my $ParaDebug = 1;

sub aviso
   {
   my $mensage =$_[0];
   if ($ParaDebug) {print "\n$mensage\n";}
   } 

aviso "\$user: $user \$email :$email";
$email =~ s/\./\\./; #creamos expresion regular man perlre
                     #omitir si queremos eliminar por expresion regular
                     #podriamos a�adir si lo queres rodeado de blancos
aviso "\$user: $user \$email :$email";

while(<STDIN>)
  {
  my $linea=$_;
  if($linea =~ /$email/i)#aqui da el error 
    {aviso "eliminado"}
  else
    {print "$linea";}
  }
--
Los programadores esta ocupados intendtado mejorar los programas a prueba de 
idiotas. Mientras tanto el universo  intenta mejorar los idiotas. El universo 
va ganando