The mailing list for listmasters using Sympa

[Fil <address@concealed>]

Better still: show lines which don't match


%%%%%%%%%%%%%%%%%%% BEGIN import_list.pl
#!/usr/bin/perl
$v=0;
$n=0;
while(<>){
    $n++;
    if (($email,$name) = /([^ ]+\@[^ ]+)\s*(.*)/){
        $v++;
        print "email $email\n";
        print "gecos $name\n";
        print "reception mail\nvisibility conceal\n\n";
    } else {
        print STDERR "ERROR line $n:".$_;
    }
}
print STDERR "Seen $v addresses in $n lines\n";
%%%%%%%%%%%%%%%%%%%