procmail
[Top] [All Lists]

Piping From Line to PERL Script

1997-11-23 10:09:56
Can someone tell how to pipe FROM Line through a Perl Script?  I though I
just type the name of script after the pipe symbol, but it doesn't seem to
be working.  The perl script should open a file, find a match, and then
write to another file that a match has occured.  The verbose log says it
is executing filename but nothing is ever written.

---------------

:0
* ^From:[         ]*\/[^  ].*
{
     FROM_VALUE = $MATCH
 
     :0
     * ! FROM_VALUE ?? ^^(_dot_)*(_at_)(_dot_)*,.*@
     {
 
          :0
          * FROM_VALUE ?? ^^"[^"]+"[      ]+\/[^  ].*
          * MATCH ?? ^^([^<]+[  ]+)?<\/[^>]+
          { FROM_VALUE = $MATCH }
 
          :0
          * FROM_VALUE ?? ^^[^    ]+(@[^  ]+)?[   ]*\(.*\)[       ]*$
          * FROM_VALUE ?? ^^\/[^  (]+
          { FROM_VALUE = $MATCH }
     }
        :0 fbw
        | /home/e43/booboo/test.pl {$MATCH}
 
}



============================================================================
- Liston Bias                       The best way to appreciate a loved one
  Alumnus of Oklahoma State Univ    is to imagine your life without them.
  Alumnus of Florida State Univ                       -- Anonymous
                                     
  bias(_at_)pobox(_dot_)com
  http://www.pobox.com/~bias
============================================================================

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