Opened by Gast at 2005-06-04 00:06
Hallo!
Habe keine Ahnung von Perl, möchte aber gerne ein Skript abändern.
Dieses Skript zum Formular-Versand gibt oft die Fehlermeldung einer ungültigen E-Mail-Adresse aus.
Dies liegt meines Erachtens an folgendem Abschnitt des Skripts, welches die angegebenen E-Mail-Adressen verifiziert.
Bei den mir bekannten vom Skript abgelehnten E-Mail-Adressen handelt es sich um Adressen, die ein "-" vor oder auch nach dem "@" besitzen. Eine E-Mail-Adresse mit zwei "-" nach dem @ wird hingegen akzeptiert.
1.) Kann mir jemand sagen, welche Fälle dieses Skript ausschließt?
2.) Welchen Code muss ich statt dessen einfügen, damit NUR verifiziert wird, ob ein "@" vorkommt und meinetwegen noch ob ein "." hinter dem "@" folgt?
Vielen Dank für die Hilfe!!
Thorsten
Habe keine Ahnung von Perl, möchte aber gerne ein Skript abändern.
Dieses Skript zum Formular-Versand gibt oft die Fehlermeldung einer ungültigen E-Mail-Adresse aus.
Dies liegt meines Erachtens an folgendem Abschnitt des Skripts, welches die angegebenen E-Mail-Adressen verifiziert.
Bei den mir bekannten vom Skript abgelehnten E-Mail-Adressen handelt es sich um Adressen, die ein "-" vor oder auch nach dem "@" besitzen. Eine E-Mail-Adresse mit zwei "-" nach dem @ wird hingegen akzeptiert.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
################################################
## Verify an e-mail address
################################################
sub mail_verify {
my $addr = shift;
## Format the address
my ($login, $host) = $addr =~ /^(.+)\@(.+)$/;
$login =~ s/\.//g;
$host =~ s/[\.\-]//g;
## Make sure address is valid
if (($login =~ /\W/) || ($host =~ /\W/)) { return 0; }
else { return 1; }
}
1.) Kann mir jemand sagen, welche Fälle dieses Skript ausschließt?
2.) Welchen Code muss ich statt dessen einfügen, damit NUR verifiziert wird, ob ein "@" vorkommt und meinetwegen noch ob ein "." hinter dem "@" folgt?
Vielen Dank für die Hilfe!!
Thorsten