Opened by Ishka at 2004-03-29 23:29
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
Eigentlich lautet die Beschreibung des Forums zwar:
Allgemeines zu Perl
Allgemeine oder nicht andersweitig zuordenbare Fragen zu Perl, die NICHT die Webprogrammierung betreffen
aber ich will mal nicht so sein.
Ja, das gibts. Eine Session-id ist irgendeine Information, anhand derer du einen Browser wiedererkennen kannst. Folgende prinizipielle Möglichkeiten:
im Querry-String, als Post-Daten oder als Cookie.
würde zB. im Falle der ersten beiden Lösungen helfen. Weiterhelfen kann ich dir nur, wenn du mir genauer verraten wilst, was du vorhast.
Allgemeines zu Perl
Allgemeine oder nicht andersweitig zuordenbare Fragen zu Perl, die NICHT die Webprogrammierung betreffen
aber ich will mal nicht so sein.
Ja, das gibts. Eine Session-id ist irgendeine Information, anhand derer du einen Browser wiedererkennen kannst. Folgende prinizipielle Möglichkeiten:
im Querry-String, als Post-Daten oder als Cookie.
würde zB. im Falle der ersten beiden Lösungen helfen. Weiterhelfen kann ich dir nur, wenn du mir genauer verraten wilst, was du vorhast.
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}