Opened by Gast at 2009-12-20 19:10
ich denke, ich verstehe noch nicht mal die Aufgabenstellung ...
Code (perl): (dl
)
1 2 3 4 5 6 7 8
$k='(\s+\w+ )'; $re=qr#(?:$k;$k|;$k|$k;)#; $\="\n"; print " AAA ;" =~ $re; print " BBB ; CCC ;" =~ $re; print " ; DDD " =~ $re;