Controllare se l'indirizzo eMail inserito è corretto o no.
[Perl - Tk]
Un classico degli esercizi
[Perl - Tk]
Codice:
#!/usr/bin/perl
use Tk;
$mw=MainWindow->new();
$mw->title("Mail Validator");
$mw->minsize(300, 100);
$mw->maxsize(300, 100);
$mw->Label(-text=>"Inserisci l'indirizzo eMail da validare:\n")->pack(-anchor=>"n");
$mw->Entry(-textvariable=>\$mail)->pack(-anchor=>"n");
$mw->Button(-text=>"Valida", -command=>sub{
$sw=MainWindow->new();
$sw->title("Mail Validator");
$sw->minsize(150, 30);
$sw->maxsize(150, 30);
if ($mail=~ /[\w,\d]+@[\w,\d]+.[a-z]{2,3}/) {
$sw->Label(-text=>"Indirizzo Mail corretto")->pack;
} else {
$sw->Label(-text=>"Indirizzo Mail non corretto")->pack;
}
})->pack(-anchor=>"s");
MainLoop;