Re: Perl RE Emailadresse

Datumsansicht Baumansicht Betreffansicht Attachement-Sicht

From: Mark Seuffert (Pirates) (captain_at_pirate.de)
Date: 30. May 1999


Hai Alexander!

> Der hintere Teil muss \.(\D{2,3})$/ heissen, das bedeutet dann 2-3
> Zeichen von der Sorte.
Danke, ich benutze jetzt das Folgende (wenn es jemand brauchen kann):

sub check_emailadr {
  my ($email) = shift;
  if ($email =~/\s/) { return 0 } # don't allow whitespace, check syntax
  if ($email =~ /^([\w\-\+\.]+)@([\w\-\+\.]+)\.(\D{2,3})$/) { return 1 }
  else { return 0 }
}

-- 
 _    _   Just do it!         _ 
| |  (_)_ _ _  ___ __    ~0  |_)    Mark "Moak" Seuffert
| |__| | ' \ || \ \ /   |(_~|___|   Pirates Communication
|____|_|_||_|__//_\_\    T/_ T T    http://www.pirate.de

Ein schoener Moment leuchtet das Leben hindurch. (Altes Sprichwort)


Datumsansicht Baumansicht Betreffansicht Attachement-Sicht

Dieses Archiv wurde generiert von hypermail 2.1.2 : 11. Mar 2002 CET