subject:"perl script code"

Re: perl script code

2004-06-18 Thread Bill Campbell

On Fri, Jun 18, 2004, JJB wrote: >I have this > > > #("Scan line for word abuse,"); > > if ((/([EMAIL PROTECTED])\s/) || (/([EMAIL PROTECTED])\s/)) > { > if (${1} eq "[EMAIL PROTECTED]>") { $abuse_email = >"[EMAIL PROTECTED]"; next; } > if (${1} eq "[EMAIL PROTECTED]>") {

perl script code

2004-06-18 Thread JJB

I have this #("Scan line for word abuse,"); if ((/([EMAIL PROTECTED])\s/) || (/([EMAIL PROTECTED])\s/)) { if (${1} eq "[EMAIL PROTECTED]>") { $abuse_email = "[EMAIL PROTECTED]"; next; } if (${1} eq "[EMAIL PROTECTED]>") { $abuse_email = "[EMAIL PROTECTED]"; next;