Hi Reiner,
wie wäre es, einfach Fehler zu vermeiden.
Meine kleine Searchengine könnte helfen:
http://rusch.dyndns.org
Wow! Das Teil gefällt mir, gute Idee für ein neues Script unter
dem Topic Webtools auf http://i-netlab.de/ ;-)
Rolf
=
#!/usr/bin/perl -w
use strict;
$_[$_]=0 for 0..7;my$i;
for my$a(grep{s@^00@@}unpack'B8'x28,join'',map{chr}split/\*+/,q{61*31*28*
32*20*40*25*63*63*9*52*58*49*18*30*47*20*2*10*4*8*63*63*1*36*2*13*30}){$i
=0;grep{$_[$i++].=$_}split //,$a;length$_[0]==8&&print pack'B8',$_ for@_;
length$_[0]==8&&grep{$_=0}@_;}print"\n";