[BUB CGI] telecharge script, warnings

Version imprimable

21/11/2007, 18h05
djibril

[BUB CGI] telecharge script, warnings
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:

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:

1 2 3 4 5 #!/usr/bin/perl -w use strict; use Carp; use CGI; ...
pas de soucis, une idée?
21/11/2007, 18h47
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ï

voici un exemple :

Code:

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

Citation:

[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

21/11/2007, 19h21
djibril

Citation:

Envoyé par 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ï

En dehors, en ligne de commande pas de soucis, pas d'erreurs 8O
Et en plus, si je ne mets ni use warnings, ni -w, il telecharge aussi le script 8O
21/11/2007, 19h27
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:

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

voilà