8 Jun
2003
8 Jun
'03
19:39
Hallo, [Nachtrag] On Sun, 08 Jun 2003, David Haller wrote:
Folgende Moeglichkeiten hast du:
if(/^From: /) { my $var = ""; unless (/\) { $var .= $_; } else { if(/\<([^>]+)/) { $var = $1; } } print $var; } [und Varianten]
Wenn du evtl. Leerzeichen entfernen willst, dann muesste folgende ungetestete(!) RE in allen Varianten funktionieren. /\<\s*([^>]+)\s*\>/ -dnh -- Linux is like a teepee: No windows, no gates, an Apache inside.