HAHN Nicolas wrote:
>
> Salut à tous.
>
> Deux problèmes:
>
> - Comment connaitre l'adresse TCP/IP d'une station quelconque qui se
> connecte sur notre site web, et qui demande à accéder à une partie du
> site en appuyant sur un bouton qui démarre un scipt perl, donc en fait,
> comment en perl, obtenir l'adresse TCP/IP de la station qui a provoqué
> le lancement du script ?
Exemple rapide :
#!/usr/bin/perl
use strict;
use CGI;
my $q = new CGI;
my $remote_address = $q->remote_host();
# Apres tu en fais ce que tu en veux. Eventuellement :
print $q->header,
$q->start_html("text/plain"),
$remote_address,
$q->end_html;
Si tu te lances dans la programmation CGI en Perl, regarde attentivement
au module CGI.pm, il simplifie enormement la vie et evite accessoirement
d'ecrire des horreurs (et d'ennuyer ceux qui ont ou auront a les
maintenir le cas echeant) ;)
Il est installe par defaut dans la distrib Perl sous Linux.
Yves.
