Opened by Free Faq at 2004-07-27 19:17
User since
2003-08-04
771 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
771 Artikel
HausmeisterIn
[quote=Free Faq,28.07.2004, 16:31][...]
Müsste mal ausprobieren, ob man das auch irgendwie mit keys oder values eines Hashes verwenden kann. Werd das aber selbst mal Probieren, wenn ichs nciht schaffe, meld ich mich den schon noch :)[/quote]
kann man. Du kannst da drin sogar beliebigen Code ausführen. Und ab perl 8.6.irgendwas kannst du auch im matchingteil Code ausführen, wobei der ann jedesmal ausgeführt wird, wenn geschaut wird, ob das da gerade passt.
Bei dem e-Flag wird halt das links mit dem Rückgabewert von rechts ersetzt. Bei zwei es hinten dran, wird der dann nochmal evalt. $var=~s#<(.*?)>#$1#eeg würde zum Beispiel allen Code in $var ausführen, der in <> (in $var) steht ;)
Müsste mal ausprobieren, ob man das auch irgendwie mit keys oder values eines Hashes verwenden kann. Werd das aber selbst mal Probieren, wenn ichs nciht schaffe, meld ich mich den schon noch :)[/quote]
kann man. Du kannst da drin sogar beliebigen Code ausführen. Und ab perl 8.6.irgendwas kannst du auch im matchingteil Code ausführen, wobei der ann jedesmal ausgeführt wird, wenn geschaut wird, ob das da gerade passt.
Bei dem e-Flag wird halt das links mit dem Rückgabewert von rechts ersetzt. Bei zwei es hinten dran, wird der dann nochmal evalt. $var=~s#<(.*?)>#$1#eeg würde zum Beispiel allen Code in $var ausführen, der in <> (in $var) steht ;)
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}
"":"\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}