Thread regexp in function chain/pipe: geht '$var =~ s/1/2/;' auch angenehmer?
(5 answers)
Opened by samsara at 2003-09-13 02:07
Das war kein Problem, nur eine Frage. samsara wollte halt nicht eine Subroutine extra schreiben, die es bereits vorgefertigt gibt. Nachdem es diese aber nicht gibt (zumindestens meines Wissens) tut er das auch nicht. Damit ist die Frage beantwortet.
sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t] "if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep !$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1} |