Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: dialup spam removal with Net::POP3 (program repair shop)

by Aristotle (Chancellor)
on May 31, 2003 at 17:21 UTC ( #262091=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub make_rx_from {
        open my $fh, "<", shift or warn("Can't open fromgood $!\n"), retur
    +n;
    ...
    my @badwords     = make_rx_from "badwords";
    my @frombad      = make_rx_from "frombad";
    my @fromgood     = make_rx_from "fromgood";
    
  2. or download this
    HEADER: foreach my $line (@$messref) {
        # detects first blank line go do body check of first 10 body lines
    ...
            last HEADER;
        }
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://262091]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (2)
As of 2023-02-06 02:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (33 votes). Check out past polls.

    Notices?