procmail
[Top] [All Lists]

Re: what regexps work?

1997-04-11 05:52:00
On Thu, 10 Apr 97 15:24 EDT, 
process(_at_)qz(_dot_)little-neck(_dot_)ny(_dot_)us 
(Eli the Bearded) wrote:
Perhaps I am missing something fundamental... is there an
easy way to *use* perl or egrep instead of the * line in 
a recipe?
<...>
I can't get this to work, though:

     :0:
     * ? perl -e ' \
     $val=0; \
     while (<STDIN>) { \
      if ( /^$/ ){ $val && exit 0; exit 1; } \
      $val += /^From:.*[ <]([^\(_at_)]+)\@(\1|[^.]{13,})\.(com|net)([ 
]|$)/i; \
     } '
     $JUNK

Somewhere along the way something seems to be doing varible
interpolation on it.

I tried this exactly as shown and had no problem executing it. 
According to the verbose log, what is being executed is precisely
the script as written above. 
  A hopefully useful side comment: Anything the script prints on
STDERR will end up in the log. (That's how I could verify that it was
doing what I thought it was doing.)

/* era */

-- 
Defin-i-t-e-ly. Sep-a-r-a-te. Gram-m-a-r.  <http://www.iki.fi/~era/>
 * Enjoy receiving spam? Register at <http://www.iki.fi/~era/spam.html>

<Prev in Thread] Current Thread [Next in Thread>