Discussion :

[Shyboy]

re encore un bug qui me pourrit la vie.....qu'ai-je donc fait de mal dans ce script?

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
#!/usr/bin/perl
 
use CGI;
 
$page = new CGI;
@tabfic= ();
opendir(rep,".");
while($lg = readdir(rep)){
if($lg=~ m/\.txt$/){
chomp($lg);
unshift(@tabfic,$lg);
 }
}
 
closedir(rep);
 
print $page->header(),
       $page->start_html(),
      $page->h1("liste des fichiers txt"),
     $page->startform(-name=>"f1",
                       -method=>"POST",
                        -action=>"affich.cgi");
 
 print "<select name=\"s1\" multiple>";
 
for ($i=0;$i<=#tabfic;$i++) {
    print"<option value=\"$tabfic[$i]\"> $tabfic[$i] </option>";
}
print "</select>";
 
print $page->submit(),
      $page->end_form(),
      $page->end_html();
 
exit;

[djibril]

tu pourrais au moins nous afficher les messages d'erreurs

[Mr6]

qu'as tu fait de mal ? bah comme ca là, je dirais que tu n'a pas utilisé "use strict" et que tu ne testes pas ton opendir. Concernant ton bug, bah comme a dit djibril, c'est quoi ton bug ?

[gerald2545]

avec use strict, c'est mieux en effet
startform->start_form
dans ta boucle for : #tabfich -> $#tabfich