Re: email validator

[Clay Irving <clay @ skechers . com>]

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