Re: PERL, IP et APACHE

Page principale

Répondre à ce message
Auteur: Yves Perrey
Date:  
À: guilde
Sujet: Re: PERL, IP et APACHE
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.