Quelq'un connait il ces deux langages ?
Est il possible de traduire un pt prog en perl en du VB ?
Si quelqu'un pouvait maider à traduire çà en VB ...
Merci à vous:
<script language="perlscript" runat="server">
use IO::Socket;
# procedure gestion des erreurs
sub ErrorReport(){
$Response->Write("Cannot connect!" );
$Response->end;
}
# procedure d'interogation whois
# function whois(domain,server_whois)
sub whois {
my ($domain, $server) = @_; #on recupere les parametres de la fonction
my $returnString=""; #on initialise la chaine de retour de fonction à vide
# ouverture du port WHOIS 43
my $remote=new IO::Socket::INET(
Proto => "tcp",
PeerAddr => "$server",
PeerPort => "whois(43)",
) or die ErrorReport;
# interroge le serveur WHOIS
$remote->autoflush(1);
print $remote "$domain\n" . $BLANK;
while ( <$remote> ) {
$returnString.=$_;
}
close $remote;
#retourne le résultat
$returnString;
}
</script>