Article View: es.comp.os.linux.programacion
Article #10186Re: cuestion de perl
From: [ Z A T O P E K ]
Date: Wed, 20 Mar 2002 14:42
Date: Wed, 20 Mar 2002 14:42
24 lines
1400 bytes
1400 bytes
hago esto pero no me funciona me da errores al ejecutar el script:
#!/usr/bin/perl
$n=scalar(@ARGV);
if ($n != 2) {
printf ("Uso: usrdel buzon direccionemail\n");
exit(1);
}
$user=@ARGV[0];
$email=@ARGV[1];
##esto es nuevo
open (acc, '/etc/mail/access');
while(<acc>){
my $linea=$_;
if(=~/$email/u/)#aqui da el error
{}
else{
print $linea;
}
}
he marcado la linea de error. �como la tendr�a que poner?
gracias
Technical Details
Message-ID:
<a7a76t$jqtac$1@ID-59646.news.dfncis.de>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!newsfeeds.belnet.be!news.belnet.be!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!fu-berlin.de!uni-berlin.de!212.163.45.10!not-for-mailReferences:
<a79pr5$jnm1r$1@ID-59646.news.dfncis.de> <a7a5gq$c37$1@news.unizar.es>Show Full Headers
Complete Article Headers
X-Google-Language: SPANISH,ASCII X-Google-Thread: f86c8,97a7023fec9bff1d X-Google-Attributes: gidf86c8,public X-Google-ArrivalTime: 2002-03-20 06:43:43 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!newsfeeds.belnet.be!news.belnet.be!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!fu-berlin.de!uni-berlin.de!212.163.45.10!not-for-mail From: "[ Z A T O P E K ]" <boli_NOSPAM_@excite.com> Newsgroups: es.comp.os.linux.programacion Subject: Re: cuestion de perl Date: Wed, 20 Mar 2002 15:42:02 +0100 Lines: 26 Message-ID: <a7a76t$jqtac$1@ID-59646.news.dfncis.de> References: <a79pr5$jnm1r$1@ID-59646.news.dfncis.de> <a7a5gq$c37$1@news.unizar.es> NNTP-Posting-Host: 212.163.45.10 X-Trace: fu-berlin.de 1016635422 20804940 212.163.45.10 (16 [59646]) X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2600.0000 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000