linux-l: perl und regexpr

[Ulrich Wiederhold]

Hallo,
* Robert C. Helling <helling at aei-potsdam.mpg.de> [010117 10:46]:
> Eine Frage noch, bevor es losgeht: Sollen jeweils die ersten oder letzten
> Vorkommen von @ bzw de zaehlen (denke zB an meine eMail-Adresse
> robert at atdotde.de)? 
Das erste @ und das letzte de .

> Ich nehme mal das erste @ und das letzte de. 
Genau

> Und meinst Du nicht vielleicht '.de'?
Ja, aber das ist doch in .* enthalten...
 
> Ich wuerde das so machen:
> 
> if($var[0] =~ /\@.*de/){
> 	$var[0] = $&;
> }
> else{
> 	warn("$var[0] is not of the assumed form!\n");
> }

Hmm, leuchtet ein. Die andere Variante ist aber einfach kürzer.
Mein Problem ist eigentlich, daß in $& in meinem Fall einfach nichts
drin ist, ebensowenig wiein $` und $´. Wenn da was drin wäre, die
Anweisung also funzen würde, würde auch das Abtrennen klappen.
Dein Variante teste ich auch mal. Allerdings würde ich es dann mit
/\Q\@.*de/i machen.

Danke.
> Soltest Du vielleicht das @ escapen?
Nö.

Gruß
Uli