3836 connectés

FORUM HardWare.fr

Programmation

Perl - VB

Recherche :

Dernière réponse
Sujet : Perl - VB
karlkox	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).

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

karlkox

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).

DJERO

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>