Perl - VB - Programmation
Marsh Posté le 21-05-2001 à 00:47:34
Je pense pas. Déja le Perl est scripté et le VB compilé, Le vb est uniquement sous win32 aussi. La tu vois bien que le code utilise une classe Socket qui permet d'utiliser ensuite des méthodes. Il faudrait donc réécrire aussi cette classe ... en un mot tout refaire ... Ce n'est que mon opinion d'un point de vue VB (conné pas trop le perl).
Marsh Posté le 19-05-2001 à 19:55:12
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>