Дайте линк към работещ скрипт.

Здравейте,
дайте линк към работещ скрип за търсене на свободни домейни в областа на com, net и org.
Предварително благодаря.

Za kakvo ti e sciprt ??? polzvai [линк] (ili org ili com.. neshto podobno )...
Po princip vseki site koito registrira domains mozhe da ti kazhe dali daden domain e free ili ne ..

За да го сложа при мен.

#!/usr/bin/perl
print "Content-type:text/html\n\n";

read(STDIN,$buffer,$EMV{'CONTENT_LENGTH'});
open(S,"/usr/bin/whois $buffer |");
while(<S>) {
print "$_";
}
close(S);


obshto vzeto e tova.. trqbva ti samo linux box s whois..
ima i drug variant da ne polzvash whois-a na mashinata a da prashtash na nqkoi script na daden site da vurshi taq rabota... no puk stavash zavisim ot nekuv site..

[линк]

Нищо лично, но си некадърен писач.

От моя гледна точка е така:


use strict;
use warnings;

my $dom = shift || die "missing name\n";
my $res = qx{whois $dom};

die $1 . "for '$dom'\n" if $res =~ /(no\s+whois\s+server\s+)/i;
die "$dom is free\n" if $res =~ /no\s+match|does\s+not\s+exist/i;
die "$dom is reserved\n";

Я... господинчото си даде компетентното мнение след 6 години....

Ако и ми обясниш как с твоето "кадърно" писане, твоя пример е приложим за Уеб.. евала..


Така, че бих те помолил да си запазиш "компетентното" мнение за това кое е кадърно и кое не за себе си. Едно нещо може да бъде написано по няколко начина в Perl.. Би трябвало умната ти кратуна да го знае това? Разликата е, че некадърното ми писане ще свърши работа, а твоя безполезен пример не е подходящ за Уеб приложение поради няколко неща. Предполагам, че и сам можеш да се сетиш защо.

я си ебавай майката в гроба

[линк]