[Cologne-pm] Sachen, die die Welt nicht braucht, brauchen Deine Hilfe
cem.sakaryali at easi.de
cem.sakaryali at easi.de
Sat Apr 12 06:06:16 CDT 2003
"A. Pagaltzis" <pagaltzis at gmx.de> schrieb am Sat, 12 Apr 2003 12:54:52 +0200:
> * 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
Ja ist mir auch aufgefallen :))
>
> while(defined $a[$a])
>
> oder
>
> my @a = (1 .. 9, 'a' .. 'z');
>
> wobei ich der Orthogonalität wegen eher ersteres bevorzuge.
>
> --
> Gruss,
> Aristoteles
> _______________________________________________
> Cologne-pm mailing list
> Cologne-pm at mail.pm.org
> http://mail.pm.org/mailman/listinfo/cologne-pm
Cem
--
--
More information about the Cologne-pm
mailing list