Domains prüfen unter Windows (Perl/CGI)

[E|B]

2004-02-24 18:19

User since
2003-08-08
2561 Artikel
HausmeisterIn

HiHo!
Wie kann ich unter Windows prüfen, ob eine Domain frei oder belegt ist? Unter Linux würde ich WHOIS verwenden. Wie kann ich aber jetzt mit einem Perl Script prüfen, ob eine Domain frei ist oder nicht? Ich hatte vor längerer Zeit schon einmal gefragt. Es gab aber nur die Antwort dass man ein Request an eine online bestehende Seite schickt, die Ergebnisse mit LWP holt und diese dann filtert. Gibt es denn keine bequemere Lösung? Was mache ich denn zum Beispiel, wenn die Seite nicht mehr online ist? Dann wäre das Script hinfällig.
Hoffe ihr könnt mir helfen. (Wenn möglich nur mit Modulen der Standarddistri)
Danke!

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]

Ronnie

2004-02-24 18:26

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

auch wenn es uralt ist: NetLab
es kann whois u.a.

[E|B]

2004-02-24 18:32

User since
2003-08-08
2561 Artikel
HausmeisterIn

Nein, das soll doch in mein Perl Script eingebaut werden! :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]

esskar

2004-02-24 18:35

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

ruf mal ppm auf
und mach ne search nach whois

[E|B]

2004-02-24 19:55

User since
2003-08-08
2561 Artikel
HausmeisterIn

Net::Whois, stimmt. Danke, wäre ich jetzt nicht drauf gekommen. ;)

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]

2004-03-08 22:24

User since
2003-08-08
2561 Artikel
HausmeisterIn

Ich will meine Erfahrungen mal zum Besten geben. Nach einem Wochenende hab ich endlich herausgefunden, wie man es auch ohne Modul hinbekommt.
Kurze Beschreibung:

1. LibIDN installieren (für Punycode Codierung, etcpp.)
2. ASCII zu ACE String konvertieren mit "idn -a müller.de".
3. WHOIS Anfrage stellen mit "whois -h whois.denic.de -Tdn xn--mller-kva.de" (<= ACE String)
4. Ergebnisse filtern.

Nach unendlich vielen Dokus klappts nun endlich. ;)

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]

esskar

2004-03-08 23:10

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[E|B
,08.03.2004, 21:24]...wie man es auch ohne Modul hinbekommt...
...
1. LibIDN installieren...

wer sieht den fehler?

[E|B]

2004-03-09 14:47

User since
2003-08-08
2561 Artikel
HausmeisterIn

Sorry, meinte natürlich ohne PERL Modul. ;)

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]

Crian

2004-03-09 17:17

User since
2003-08-04
5866 Artikel
ModeratorIn

[E|B
,09.03.2004, 13:47]PERL

Alarm! Alarm! Alarm!\n\n

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]

2004-03-09 19:28

User since
2003-08-08
2561 Artikel
HausmeisterIn

Wieso Alarm?

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]