Donc en gros mon script perl ressemblerait a ca
#!/usr/bin/perl -w
#Scriptname: script.pl
#define libraries used
use strict;
use DBI;
use Sys::Hostname;
use lib "$ENV{HOME}/common/lib/perl";
# now define the DBI connection strings
my $server='server';
my $database='db';
my $username='Khalistoo';
my $password='password';
#Define all other variables
my $variable_du_form;
# c'est pour remplacer ce system que je veux faire un formulaire
my $logfile='fichier_avec_liste_de_variable.dat';
my $outfile='resultat_a_recuperer.xls';
$I (0..$#ARGV) {print "#$ARGV[$I]#\n";} \ #le code que tu m as communique
#connect to the DB
$dbh = DBI->connect("dbi:Sybase:server=$server;database=$database", $username, $password, {AutoCommit => 1, RaiseError => 1 }) or die("Error: Unable to connect to database: $server : $DBI::errstr");
open (LOGFILE, "$logfile") or die "I couldn't get at $logfile";
open (OUT, ">>$outfile") or die "I couldn't get at $outfile";
print OUT "Valeur entree\n";
for $mid (<LOGFILE>) {
chomp($mid);
# MID
$merchant='SELECT distinct MID FROM codebook.iqe_main WHERE mid = ' . $mid . '';
$run_live->finish;
$dbh-> disconnect();
#return
print "Cheers.\n";
exit 0;
Bon bien sure le top serait de pouvoir afficher le resultat de tout ca sur la meme page, mais deja que j arrive a comprendre ce dont j ai besoin ca serait pas mal.
Donc si je ne m abuse, je fais une page html, un simple form basic, sur lequel je met
<form method="post" action="script.pl.">
et ensuite pour la commande je suis encore perdu :D.
Je comprend vite mais faut m'expliquer longuement ^^