domainabfrage mit perl: wie unterscheide ich ob frei oder nicht (Allgemeines zu Perl)

talis

2003-10-21 15:11

User since
2003-09-19
4 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich suche ein Perlskript, welches folgendes kann:
Abfrage, ob eine de, com, net, org vergeben ist, nun habe ich einige whois programme mir angesehen, wie erfahre ich denn wenn nun die domain nicht vergeben ist. Gibt es da schon ein fertiges Skript? Kennt jemand eins?

talis

Crian

2003-10-21 15:14

User since
2003-08-04
5866 Artikel
ModeratorIn

Also mit Abtesten der Erreichbarkeit der Seite ist es auf jeden Fall nicht getan. Ev. könntest Du eine Anfrage an DENIC schicken (per Skript) und die Antwort irgendwie auswerten...

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

havi

2003-10-21 15:15

User since
2003-08-04
2036 Artikel
BenutzerIn

Warum mit Perl ?

www.nic.(at)(de)(usw.)

Gruss

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

Crian

2003-10-21 15:18

User since
2003-08-04
5866 Artikel
ModeratorIn

Ich schätze Mal, er möchte das als Service auf einer Seite anbieten, da reicht ein einmaligfes Nachsehen nicht aus, da brauchts dann ein Skript.

*wildevermutungenanstell*

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

[E|B]

2003-10-21 15:41

User since
2003-08-08
2561 Artikel
HausmeisterIn

Hi!
Schau mal auf CGI-World.de:
http://www.cgi-world.de/cgi-bin....incheck
Zum Testen, hier klicken:
http://ebdomaincheck.cgi-world.de

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

betterworld

2003-10-21 16:11

User since
2003-08-21
2613 Artikel
ModeratorIn

user image

print "$_ gibt es".(gethostbyname($_)?"":" nicht") for qw/perl-community.de web.de uxdravil.com wau/

Ausgabe:

perl-community.de gibt es
web.de gibt es
uxdravil.com gibt es nicht
wau gibt es nicht

Problem: Wenn mit der Domain kein Hostname identifiziert ist (z.B. weil der Rechner www.domain.x und nicht nur domain.x heisst), koennte gethostbyname auch falsch sein. Ich weiss, dass es solche Faelle gibt, mir faellt nur gerade keiner ein, daher kann ich es nicht testen.\n\n

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

esskar

2003-10-21 16:16

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

man ist besser beraten, die nic's zu prüfen...
daher scheint EB's Lösung die beste... hab mir zwar nicht angeschaut, wie er es macht... deutet aber alles daruf hin, dass es richtig ist!

esskar

2003-10-21 16:20

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

@eb: hab dir gerade ne mail an webmaster@cgi-world.de geschickt!

[E|B]

2003-10-21 16:22

User since
2003-08-08
2561 Artikel
HausmeisterIn

Es sind mehrere WHOIS Server gespeichert, über die das Script dann prüft. Geht natürlich nur auf *nix Systemen.

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

[E|B]

2003-10-21 16:27

User since
2003-08-08
2561 Artikel
HausmeisterIn

[quote=esskar,21.10.2003, 14:20]@eb: hab dir gerade ne mail an webmaster@cgi-world.de geschickt![/quote]
Antwort ist schon da! :D

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]