Thread perl einzeiler
(12 answers)
Opened by micneu at 2011-11-02 13:57
Wie wäre es mit so einem Beispiel des Schleifenkörperls im Perl.
Zeigt nur die Domäne. Code: (dl
)
my (@arr) = $_ =~ /(.+)\.(.+)\@(.+)/; if (@arr) { print $arr[-3] } |