Verifizieren einer E-Mail-Adresse - #5031 (Perl/CGI)

Keanuf

2005-06-04 01:34

User since
2005-06-02
9 Artikel
BenutzerIn

Also meine vorredner haben da recht.
Du solltest, gerade wie sich die Variablen nennen vorsicht walten lassen.
Da sich die User anscheinend per Mail Adresse einloggen dürfen.

naja wenn du es probieren willst, dann kannst du einfach folgende Zeile ändern.

Code: (dl )

1
2

    $login =~ s/\.//g;
    $host =~ s/\.//g;

Also einfach die $host variabel wie die $login variabel überprüfen lassen. Dann sollte es klappen.

Aber Obacht bitte.

Und eventuell doch schon vordefenierte Module
(links von den Vorrednern)
verwenden, diese sind einfach einzubinden
und haben sich 1000 fach bewährt.

Hoffe geholfen zu haben.
Wenn du es lokal probieren willst.

hier noch ein test Code:

Code: (dl )

#!/usr/bin/perl
use strict;


print "\n Bitte hier eine Mail Adresse eingeben :";
chomp (my $addr=<STDIN>);
print "\n Adresse = " .$addr;
my ($login, $host) = $addr =~ /^(.+)\@(.+)$/; #split('@',$addr,2)
print @_;
print "\n";
print $_;
print "\n login:".$login;
print "\n host:".$host."\n";

$login =~ s/\.//g;
$host =~ s/\.//g;
#$host =~ s/[\.\-]//g;
print " login nach bearbeitung :".$login."\n";
print " host nach bearbeitung :".$host."\n";