I am rather a neophyte when it comes to perl. Where would I insert this
module?
Thanks,
Jack
At 05:47 PM 2/4/00 -0800, Clay Irving wrote:
>On Fri, Feb 04, 2000 at 01:47:35PM -0800, ramon via lepton wrote:
>
>> Does anyone have a working email validator for majordomo lists?
>
>I use the Perl module Email::Valid to weed out obvious bad addresses:
>
>#!/usr/local/bin/perl
>
>use Email::Valid;
>
>$input_file = "foo.txt"; # Input file
>$good_addresses = "good.txt"; # File to store good addresses
>$bad_addresses = "bad.txt"; # File to store bad addresses
>
>open F, "$input_file" or die "$!\n";
>open G, ">$good_addresses" or die "$!\n";
>open R, ">$bad_addresses" or die "$!\n";
>
>while ($address = <F>) { # Read the list of Email addresses
> chomp $address;
> $address =~ s/^\s+//; # Remove spaces in the Email address
> $valid = new Email::Valid;
> if ($valid->address( -address => $address)) {
> print G "$address\n"; # The address is valid
> } else {
> print R "$address\n"; # the address is not valid
> }
>}
>
>--
>Clay Irving
>clay@skechers.com
Follow-Ups:
References:
|
|
