Community  »  Perl: Allgemeines Forum

eMail Adresse "beschneiden"	Seitenanfang
Hallo zusammen, ich müsste ein Perl Script modifizieren daber ich habe leider nicht genug Ahnung von Perl um das hin zu bekommen. Ist aber eigentlich eine einfache Aufgabe: in der Variablen <ADRESSEN> steht ne eMail Adresse, die aber immer unterschiedlich sein kann von der genauen Syntax her. Einmal vorname.nachname@domain.tld oder <vorname.nachname@domain.tld> oder "Nachname, Vorname" <vorname.nachname@domain.tld> und ich brauche aber zwingend immer nur vorname.nachname@domain.tld wie mach ich das? Aktuell steht da halt while (<ADDRESSES>) { my($address) = split; print "Taddress\0"; } Für Hilfe wäre ich sehr dankbar! Gruß Thomas Datum: 06.11.2007-12:09
re: eMail Adresse "beschneiden"	Seitenanfang
Hallo Thomas, hoffe die folgenden Zeilen helfen dir weiter: while (<ADDRESSES>) { chomp( $_); $_ =~ /([^\<]+\@[^\>]+)/; print "$1\n"; } Gruss TommyB Datum: 06.11.2007-12:59
re: eMail Adresse "beschneiden"	Seitenanfang
niemals $1 verwenden, wenn du nicht die regex mit if geprueft hast. denn bei einem erfolglosen match enthaelt $1 den match von der vorherigen schleife. ist wahnsinnig schlechter stil, sollte man sich so frueh wie moeglich abgewoehnen. Datum: 07.11.2007-13:49