De PERL vers ASP
age
-
age -
age -
Bonjour,
Je travaille sur un projet en de site en ASP, tout allait bien jusqu'au jour où on m'a donné un petit bout de code en PERL a réalisé en ASP, mais j'y connais rien en PERL, alors si quelqu'un a une idée...
Voici le bout de code :
#!/usr/local/bin/perl # example for standard web server
use IO::Socket; # require Socket library
$login = "login=customer_login";
$info = "parametre=customer_info";
# put all the fields together
$data = "$login&$info";
# open the socket to www.distant_server.com at port 80
$remote = IO::Socket::INET->new(Proto => "tcp",
PeerAddr => "www.distant_server.com",
PeerPort => "http(80)",);
unless ($remote) { die "cannot connect to http daemon" }
$remote->autoflush(1);
# use the GET method to do the data transaction
print $remote "GET /cgi-bin/dist.cgi?$data HTTP/1.0\n\n";
# get the response from the server
@reply = <$remote>;
print "@reply\n";
Je travaille sur un projet en de site en ASP, tout allait bien jusqu'au jour où on m'a donné un petit bout de code en PERL a réalisé en ASP, mais j'y connais rien en PERL, alors si quelqu'un a une idée...
Voici le bout de code :
#!/usr/local/bin/perl # example for standard web server
use IO::Socket; # require Socket library
$login = "login=customer_login";
$info = "parametre=customer_info";
# put all the fields together
$data = "$login&$info";
# open the socket to www.distant_server.com at port 80
$remote = IO::Socket::INET->new(Proto => "tcp",
PeerAddr => "www.distant_server.com",
PeerPort => "http(80)",);
unless ($remote) { die "cannot connect to http daemon" }
$remote->autoflush(1);
# use the GET method to do the data transaction
print $remote "GET /cgi-bin/dist.cgi?$data HTTP/1.0\n\n";
# get the response from the server
@reply = <$remote>;
print "@reply\n";
A voir également:
- De PERL vers ASP
- Windows 7 vers windows 10 - Accueil - Mise à jour
- Clavier qwerty vers azerty - Guide
- Vers quelle adresse web renvoie ce lien - Guide
- Comment exporter les photos de google photo vers l'ordinateur - Guide
- Envoyer vers - Guide
Et après je n'ai plus qu'à trouver un moyen pour passer le résultat du PERL vers mon Script ASP, en gros ?