Opened by DS at 2003-09-01 21:31
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
Was hälst du davon, dir nen Bot zu schreiben, der Webseiten nach Wörtern durchsucht? Lass ihn ein Startwort in Google eingeben, nimm die ersten 100 Treffer, Liste sie auf, nimm ein Wort aus der Liste such weiter usw...
Dabei solltest du natürlich die Webseiten cachen, damit du keine mehrmals aufrufst, zudem solltest du irgendwie verifizieren, ob das deutsche Webseiten sind.
Dabei solltest du natürlich die Webseiten cachen, damit du keine mehrmals aufrufst, zudem solltest du irgendwie verifizieren, ob das deutsche Webseiten sind.
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}