Perl

[PERL] [CGI] Recherche a partir de données d'un formulaire

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [PERL] [CGI] Recherche a partir de données d'un formulaire

Supermagnus

Bonjour,

Je suis en train de développer un script perl pour récupérer les données de 2 champs d'un formulaire (une adresse IP et un hostname) et les comparer avec ceux d'un fichier de base (base.routeur.txt). Si l'un des deux champs du formulaire correspond à une ligne du fichier de base alors on effectue le traitement adéquat.

Ex du fichier de base :

192.168.31.23 FGHUN-123
193.34.53.23 GHEN12-45
...

Voici le code html du formulaire :

Code :

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Page de Recherche</title>
</head>
<body bgcolor="#E0E0E0">
<h1>Récupération de configuration : </h1>
<form action="cgi-bin/script.cgi" method="post">
Hostname : <input size="30" maxlength="40" name="hostname">
Adresse IP : <input size="15" maxlength="15" name="adresse">
<input type="submit" value="Chercher"> <input name="reset" type="reset" value="Effacer">
</form>
</body>
</html>

Puis celui du script cgi en perl dont il est question (script.cgi) :

Code :

#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use POSIX 'strftime';
open (BASE, 'base.routeur.txt') || die ("Prblm d'ouverture du fichier base.routeur.txt : $!\n" );
#Lecture des champs du formulaire
read(STDIN, my $donnees, $ENV{'CONTENT_LENGTH'});
my @champs_formulaire = split(/&/, $donnees);
my ($champ, $nom, $valeur);
my %formulaire;
my (@version,@conf);
## Boucle de decodage HTML (type MIME)
foreach $champ (@champs_formulaire)
{
(my $nom, my $valeur) = split(/=/, $champ);
$valeur =~ tr/+/ /;
$valeur =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$valeur =~ s/</</g;
$valeur =~ s/>/>/g;
$formulaire{$nom} = $valeur;
}
#Boucle de traitement du fichier ligne par ligne
while (my $ligne=<BASE> )
{
chomp $ligne;
chop $ligne;
my($ipr,$hostname)=split(/ /, $ligne);
my $iprform = $formulaire{adresse};
my $hostform = $formulaire{hostname};
#si le champ @IP correspond a une @ip reconnue alors...
if ($iprform eq $ipr)
{
my $fichierver="/tftpboot/speedstream/$hostname/VERSION.TXT";
my $time = (stat $fichierver)[9];
open(VERSION,$fichierver);
@version = <VERSION>;
close(VERSION);
open(COPY,"/tftpboot/speedstream/$hostname/COPY.TXT" );
@conf = <COPY>;
close(COPY);
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>Configuration</title></head>\n";
print "<body><h1>Resultat de la recherche :</h1>\n";
print "Hostname : $hostname";
print "Adresse IP : $formulaire{adresse}";
print "Version :<pre> @version</pre>";
print "\n Syntaxe pour rÈcupÈrer la conf :\n<pre> @conf</pre>";
print "Date de la derniere modification : ";
print strftime '%a %d %b %Y @ %I:%M %p', localtime $time;
print "<a href=\"/index.html\">Retour</a>";
print "</body></html>\n";
last;
}
#de même si le hostname du routeur correspond
elsif ($hostform eq $hostname)
{
my $fichierver="/tftpboot/speedstream/$hostname/VERSION.TXT";
my $time = (stat $fichierver)[9];
open(VERSION,$fichierver);
@version = <VERSION>;
close(VERSION);
open(COPY,"/tftpboot/speedstream/$hostname/COPY.TXT" );
@conf = <COPY>;
close(COPY);
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>Configuration</title></head>\n";
print "<body><h1>Resultat de la recherche :</h1>\n";
print "Hostname : $formulaire{hostname}";
print "Adresse IP : $ipr";
print "Version :<pre> @version</pre>";
print "\n Syntaxe pour rÈcupÈrer la conf :\n<pre> @conf</pre>";
print "Date de la derniere modification : ";
print strftime '%a %d %b %Y @ %I:%M %p', localtime $time;
print "<a href=\"/index.html\">Retour</a>";
print "</body></html>\n";
last;
}
#sinon en attendant on envoi un lien retour
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>Configuration</title></head>\n";
print "<a href=\"/index.html\">Retour</a>";
print "</html>\n";
}

Actuellement le script fonctionne mais mal, en effet je trouve ma méthode peut pratique et je suis persuadé de pouvoir faire plus simple, c'est pourquoi je demande de l'aide ou des idées pour améliorer tout ça.

Aussi comme le fichier de base est lu ligne par ligne chaque if est traiter ligne par ligne, c'est à dire que si je recherche une @IP qui ce trouve à la ligne 50, j'obtient ceci : Et si rien ne correspond ceci :

Donc voilà si quelqu'un peu me débloquer ou me donner 2/3 idées, j'ai pensé à un tableau de Hashage mais je sais pas comment l'initialiser avec les valeurs du fichier de base.

Merci :hello:

Message édité par Supermagnus le 28-05-2006 à 18:12:05

Publicité

Supermagnus

:bounce:

Message cité 1 fois

burgergold

5$? va chez l'diable!

Supermagnus a écrit :

:bounce:

j'ai pas tout lu mais...

Pour récupérer les arguments, tu serais pas mieux avec ca?

Code :

use strict;
use CGI;
use POSIX;
my $base_router_file = 'base.routeur.txt';
my $cnt;
$cnt .= "Content-type: text/html\n\n";
$cnt .= '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">';
$cnt .= '<html><head><title>Configuration</title></head>';
$cnt .= '<body><h1>Resultat de la recherche :</h1>';
$cnt .= 'Hostname :__HOSTNAME__';
$cnt .= 'Adresse IP :__IPR__';
$cnt .= 'Version :<pre>__VERSION__</pre>';
$cnt .= 'Syntaxe pour récupérer la conf :<pre>__CONF__</pre>';
$cnt .= 'Date de la derniere modification :__TIME__';
$cnt .= '<a href="/index.html">Retour</a>';
$cnt .= '</body></html>';
open (BASE, '< ' . $base_router_file)
while (my $line = <BASE> ) {
chomp($line);
my ($ipr, $hostname) = split(/ /, $line);
if ($ipr eq $q->param('adresse') || $hostname eq $q->param('hostname')) {
#my $ctime = (stat($fichierver))[9];
#open(VERSION, '< ' . $fichierver);
#my @version = <VERSION>;
#close(VERSION);
#open(COPY,'< /tftpboot/speedstream/' . $hostname . '/COPY.TXT');
#my @conf = <COPY>;
#close(COPY);
#$cnt =~ s/__TIME__/$time/;
#$cnt =~ s/__VERSION__//;
#$cnt =~ s/__HOSTNAME__//;
#$cnht =~ s/__IPR__//;
}
}
close(BASE);

---------------
http://www.boincstats.com/signature/user_664861.gif

FORUM HardWare.fr

Programmation

Perl

[PERL] [CGI] Recherche a partir de données d'un formulaire

Sujets relatifs
[MATH] Tracer une ligne a partir d'un angle	Envoyer les données d'une boitre de sélection dans un JavaScript ?
[Java] expression régulière : extraction à partir d'un motif	plobeme de "réflexion" pour la structure d'une base de données
[Access 2003] Fusionner 2 valeurs en SQL lors d'un import de données	Utiliser Fmod pour acquérir des données sonores
génération de fichier XML à partir d'une base de données SQL ??	[Recherche - Info] Création d'un soft pro
envoyer un mail apres une recherche
Plus de sujets relatifs à : [PERL] [CGI] Recherche a partir de données d'un formulaire

Page générée en 0.057 secondes