10 Jun
2003
10 Jun
'03
05:44
Das klappt auch so weit, nur steht manchmal ein Leerzeichen davor. Wo steht ein Leerzeichen davor? Vor den ausgegebenen Adressen?
,----[ test ]- | #!/usr/bin/perl -wn | # Picks out the actual address from the "From:" line | | my($var) = ""; | | unless (/\) { $var .= $_; } else { $var .= /<([^>]+)/; } | | print $var; `---- Damit hängst Du im Fall 1 $_ an $var an, im Fall 2 hängst Du an $var an, ob der Match geklappt hat (1) oder nicht (undef).
So sollte es klappen: my ($var)= / ? /<([^>]+)/ : ($_); $var=~ s/^\s+//; -- +++ GMX - Mail, Messaging & more http://www.gmx.net +++ Bitte lächeln! Fotogalerie online mit GMX ohne eigene Homepage!