Discussion :

[djibril]

Depuis un certain temps, je m'aperçois d'un probleme etrange au cas ou vous aurez la réponse.
Dans mes scripts CGI, si je mets :

Code :

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

1
2
3
4
5
6
#!/usr/bin/perl
use warnings;
use strict;
use Carp;
use CGI;
...

Il ne fonctionne pas et le navigateur me demande de telecharger le script.

Si je fais

Code :

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

1
2
3
4
5
#!/usr/bin/perl -w
use strict;
use Carp;
use CGI;
...

pas de soucis, une idée?

[Jedai]

Je n'ai jamais observé ce comportement, tu as essayé d'exécuter ton script en dehors de l'environnement CGI pour voir si tu avais des warnings ? Peut-être que le pragma active un peu plus de warnings que le flag.

--
Jedaï

[djibril]

voici un exemple :

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
 1 #!/usr/bin/perl
  2 use warnings;
  3 use strict;
  4 use Carp;
  5 use CGI;
  6
  7 my $cgi = new CGI;
  8 print $cgi->header();
  9 print $cgi->start_html();
 10 print &date();
 11 print $cgi->end_html();
 12
 13 #
 14 #Retourne la date.
 15 sub date {
 16   my @tab_date =localtime(time);
 17   my $jour = $tab_date[3];
 18   $jour = "0".$jour if ($jour<10);
 19   my $mois = ($tab_date[4]+1);
 20   $mois = "0".$mois if ($mois<10);
 21   my $annee =  ($tab_date[5]+1900);
 22   my $heure = $tab_date[2];
 23   $heure = "0".$heure if ($heure<10);
 24   my $minute = $tab_date[1];
 25   $minute = "0".$minute if ($minute<10);
 26    my $sec= $tab_date[0];
 27   $sec = "0".$sec if ($sec<10);
 28 return "$jour/$mois/$annee";
 29 }

dans fichier log

[Wed Nov 21 19:09:55 2007] [error] [client 192.168.100.55] (2)No such file or directory: exec of '/usr/lib/cgi-bin/test.pl' failed
[Wed Nov 21 19:09:55 2007] [error] [client 192.168.100.55] Premature end of script headers: test.pl

[djibril]

Je n'ai jamais observé ce comportement, tu as essayé d'exécuter ton script en dehors de l'environnement CGI pour voir si tu avais des warnings ? Peut-être que le pragma active un peu plus de warnings que le flag.

--
Jedaï

En dehors, en ligne de commande pas de soucis, pas d'erreurs
Et en plus, si je ne mets ni use warnings, ni -w, il telecharge aussi le script

[djibril]

Et beh j'ai résolu le problème.
C'était dû au fait qu'il y avait des \r\n dans mon fichier, vu que je l'ai transferé d'un windows vers un linux.
Pour le voir, faire sous linux la commande od -c toto.pl
Ensuite un petit coup de perl et hop c'est ok via

Code :

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

perl -pi -e 's/\r\n/\n/' test.pl

voilà