Discussion :

[Shyboy]

Bonsoir,

je cherche à écrire un script qui me permette de traiter et afficher les recherches initiées à partir d'un formulaire html dans un fichier texte et celà en perl...


mais je sais pas trop comment faire.. pour lier le formulaire et le fichier de traitement de la requete..

pourriez vous m'aider?

[Jedai]

Ta question manque trop de détails, pour ma part je ne comprend pas ce que tu veux faire ni quel est ton problème. Tu parles de "lier le formulaire et le fichier de traitement de la requete.." ? De quel type de requète s'agit-il ? Le "fichier de traitement de la requête" désigne-t-il un programme, une base de donnée, un fichier texte contenant des renseignements ?

Ton problème est-il "Comment faire des entrées-sorties en Perl" ? Dans ce cas va voir la FAQ.
Sinon nous avons besoin de plus de détails.

--
Jedaï

[Shyboy]

slt jedai ,

tu vas bien?

j'ai travaillé un peu la question, en fait , en ce moment je cherche à lister les information d'un fichier texte pour voir ce que j ai en stock.

voilà mon script qui déconne un peu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#!/usr/bin/perl
use strict; 
use warnings;
 
 
use CGI;
 
 
my $page = CGI::new();
 
print $page->header(),
      $page->start_html();
print "<h2><div align='center'> Liste des articles \u00e0 la vente</div></h2><br>";
 
open(fic,part.txt");
$i=0;
while(my $lignes=<FIC>){
    chomp($ligne);
my ($marque,$modele,$km,$num,$annee)= split /;/, $line;
 
 
 
print" <h3>lecture de fichier \"$file\" ligne par ligne<br />recuperation de chaque donn\u00e9e</h3>";
print"<table border=\"1\">\n<tbody>\n";
print"<tr><th>Numero</th><th>marque</th><th>mod\u00e8le</th><th>kilom\u00e9trage</th><th>moteur</th><th>ann\u00e9e</th></tr>\n";
 
$i++
}
fclose(FILE);
print"</tbody></table> ";

dur dur...

[Jedai]

Là tu imprimes le début de ta table dans la boucle (donc à chaque ligne...) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
#!/usr/bin/perl
use strict;
use warnings;
 
use CGI;
 
my $page = CGI::new();
 
print $page->header(),
      $page->start_html();
 
print "<h2><div align='center'> Liste des articles \u00e0 la vente</div></h2><br>";
 
my $nom_fichier = 'part.txt';
open my $fichier_liste_art, '<', $nom_fichier
    or die "N'arrive pas à ouvrir $nom_fichier : $!\n";
 
print "<h3>lecture de fichier \"$nom_fichier\" ligne par ligne<br />recuperation de chaque donn\u00e9e</h3>";
print "<table border=\"1\">\n<tbody>\n";
print "<tr><th>Numero</th><th>marque</th><th>mod\u00e8le</th><th>kilom\u00e9trage</th><th>moteur</th><th>ann\u00e9e</th></tr>\n";
 
while( my $ligne = <$fichier_liste_art> ){
 
    chomp($ligne);
    my ($marque,$modele,$km,$num,$annee)= split /;/, $ligne;
 
    print "<tr><td>$num</td><td>$marque</td><td>$modele</td><td>$km</td><td></td><td>$annee</td></tr>\n";
 
}
 
close $fichier_liste_art
    or die "N'arrive pas à fermer $nom_fichier : $!\n";
 
print "</tbody></table> ";
print $page->end_html();
 
__END__

Mais la prochaine fois que tu posteras un script fais en sorte qu'il n'y ait plus de fautes de syntaxe ou d'incohérence dans les noms de variable (on sent le copier-coller), sinon je n'aiderais pas.

--
Jedaï