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
============================================================================