[Cologne-pm] Sachen, die die Welt nicht braucht, brauchen Deine Hilfe

A. Pagaltzis pagaltzis at gmx.de
Sat Apr 12 05:54:52 CDT 2003


* A. Pagaltzis <pagaltzis at gmx.de> [2003-04-11 16:00]:
> # use strict;
> # use warnings;
> # #use Net::Nslookup;
> # 
> # my @a = (1 .. 9, 'a' .. 'z', undef); 
> # my @b = (1 .. 9, '-', 'a' .. 'z', undef); 
> # my @c = (1 .. 9, 'a' .. 'z', undef); 
> # 
> # my ($a, $b, $c) = (0)x3;
> # 
> # while($a < @a) {
> #   my $name = "$a[$a]$b[$b]$c[$c].de";
> # 
> #   print(
> #       "$name ",
> #       nslookup(host => $name, type => "A") ? "exists" : "not found",
> #       "\n",
> #   );
> # 
> #   $c++;
> #   $b++, $c = 0 if not defined $c[$c];
> #   $a++, $b = 0 if not defined $b[$b];
> # }

Fehler: entweder

while(defined $a[$a])

oder

my @a = (1 .. 9, 'a' .. 'z'); 

wobei ich der Orthogonalität wegen eher ersteres bevorzuge.

-- 
Gruss,
Aristoteles



More information about the Cologne-pm mailing list