wenn die Kundennummer grundsätzlich kürzer ist, als die plz, dann kannst du ja sagen, daß alle 5-Stelligen Ziffen Postleitzahlen sind, damit bist du schonmal weiter. Ansonsten kannst du dir sicher irgendwo ne Liste mit Posleitzahl, Ort zulegen und daran die plz festmachen.
Und wenn du soweit bist, kannst du versuchen eine Liste aller gültigen Nachnamen runterzuladen (notfalls selbst erstellen aus den vorhandenen Wörtern) und damit Vornamen und Nachnamen unterscheiden. Aber wie du das ganze Problem automatisiert lösen kannst, weiß ich leider auch nicht.
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}
Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
![[Homepage]](/battie/theme/default/homepage.gif)
Schrift
use strict; use warnings;
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
