Problème avec les attributs body

Version imprimable

Bonjour,
j'ai lu http://perl.enstimac.fr/ModulesFr/CGI.html pourtant, lorsque je souhaite ecrire des attributs de body dans un html_start ça ne marche pas :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
#!"C:\perl\bin\perl.exe"
use CGI qw/:standard/;
$CGI::POST_MAX=1024 * 100;  # max 100K posts
$CGI::DISABLE_UPLOADS = 1;  # no uploads
my $erreur="";
my $script=new CGI;
my $action = "./result.pl";
my $method = "post";
my $encoding ="application/x-www-form-urlencoded";
my $styleForm ="border:0px;margin:0px";
print $script->header(-type=>"text/html",
-charset=>"utf-8");
print $script->start_html(-title=>"Clustering Meta-Engine 2 Perl version",
,-meta=>{http-equiv=>"Content-Type",content=>"text/html",charset=>"UTF-8"},
 
-style=>{"src"=>"mdl/mdl-css/mmc-css.css"}, -leftmargin=>"0", -rightmargin=>"0", -topmargin=>"0", -bottommargin="0" );
 
 
print div({-class=>"page", -align=>"center"},
 
br(),
a({-href=>"index.pl"}, img{src=>"./image/cme.jpg",width=>"232px",height=>"124px",border=>"0",alt=>"Conceptual Meta-Engine"}),
 
$script->start_form(-method=>$method,
                            -action=>$action,
                            -enctype=>$encoding,
                            {-style=>$styleForm}),
 
span({class=>"sstitre"},"Query me :"),
      br(),br(),
 
      $script->textfield({class=>"formulaires"},{style=>"width:385px;"},-name=>"recherche",
                           -default=>"",
                           -override=>1,
                           -size=>50,
                           -maxlength=>500),
         br(),br(),
         center($script->submit(-name=>"button_name",
                        -value=>"")),
         $script->endform,
         print br(),br(),
span ({class=>"texte_little"},"Clustering Meta-Engine 2 &copy; "), br(),br(),
$query->end_html;

en effet, apres le -style{} mes margins generent un can't modify negation in scalar assignment.
Quelqu'un peut il m'eclairer ?

10/02/2008, 13h58
Jedai

Le message devrait t'éclairer :

Citation:

can't modify negation in scalar assignment

Autrement dit tu essaie d'assigner quelque chose à une "négation" (un '-' suivi d'un identifiant, par exemple), or sur cette ligne, que voit-on :

Code:

-bottommargin="0"

:roll:

--
Jedaï

Merci bien, j'ai corrigé la syntaxe, j'avais le nez dans le guidon. Ceci dit les attributs body ne fonctionnent pas, même en essayant la proposition suivante tirée de http://www.issociate.de/board/post/4...ng_CGI.pm.html

je teste mon nouveau code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!"C:\perl\bin\perl.exe"
use CGI qw/:standard/;
$CGI::POST_MAX=1024 * 100;  # max 100K posts
$CGI::DISABLE_UPLOADS = 1;  # no uploads
my $erreur="";
my $script=new CGI;
my $action = "./result.pl";
my $method = "post";
my $encoding ="application/x-www-form-urlencoded";
my $styleForm ="border:0px;margin:0px";
print $script->header(-type=>"text/html",
-charset=>"utf-8");
print $script->start_html(-title=>"Clustering Meta-Engine 2 Perl version",
,-meta=>{http-equiv=>"Content-Type",content=>"text/html",charset=>"UTF-8"},
-style=>{"src"=>"mdl/mdl-css/mmc-css.css"},-style=>{-code=>"body:{leftmargin:0px; rightmargin:0px; topmargin:0px; bottommargin:0px;}" } );
[...]

donne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
<?xml version="1.0" encoding="iso-8859-1"?>#d'ailleurs pourquoi me met il que c'est du xml ? j'avais demandé du html moi :/
<!DOCTYPE html
	PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
	 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US"><head><title>Clustering Meta-Engine 2 Perl version</title>
<meta name="" content="" />
<style type="text/css">
<!--/* <![CDATA[ */
body:{leftmargin=0px; rightmargin=0px; topmargin=0px; bottommargin=0px;}
 
/* ]]> */-->
</style>
</head><body>

dans mon browser :/

(accessoirement rien d'autre n'est printé avec le code complet du post ci dessus, ça s'arrette à <body>, j'ai beau lire et relire, je trouve pas, le reste du html ne print pas, mais ça, c'est un autre probleme)
merci de ton aide en tout cas.

Parce que tu n'utilises pas les pragmas "strict" et "warnings", le script s'est exécuté jusqu'à rencontrer une erreur (center n'existe pas, il manquait une parenthèse...) dans le second print qui n'a donc pas été exécuté.
Par ailleurs, ce serait une foutue bonne idée de lire mon message sur le style, parce qu'une indentation correcte (avec perltidy éventuellement) et un minimum d'usage de "perl -c" (ou équivalent dans ton IDE) t'aurait permis de trouver les erreurs très rapidement.
Voici ton code corrigé, il fait ce que tu veux a priori :
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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 #!"C:\perl\bin\perl.exe" use strict; use warnings; use CGI qw/:standard/; $CGI::POST_MAX = 1024 * 100; # max 100K posts $CGI::DISABLE_UPLOADS = 1; # no uploads my $erreur = ""; my $action = "./result.pl"; my $method = "post"; my $encoding = "application/x-www-form-urlencoded"; my $styleForm = "border:0px;margin:0px"; print header( -type => "text/html", -charset => "utf-8" ); print start_html( -title => "Clustering Meta-Engine 2 Perl version", , -meta => { 'http-equiv' => "Content-Type", charset => "UTF-8" }, -style => { "src" => "mdl/mdl-css/mmc-css.css" }, -leftmargin => "0", -rightmargin => "0", -topmargin => "0", -bottommargin => "0" ), div( { -class => "page", -align => "center" }, br(), a( { -href => "index.pl" }, img { src => "./image/cme.jpg", width => "232px", height => "124px", border => "0", alt => "Conceptual Meta-Engine" } ), ), start_form( -method => $method, -action => $action, -enctype => $encoding, { -style => $styleForm } ), span( { class => "sstitre" }, "Query me :" ), br(), br(), textfield( { class => "formulaires" }, { style => "width:385px;" }, -name => "recherche", -default => "", -override => 1, -size => 50, -maxlength => 500 ), br(), br(), p( { -style => 'text-align:center' }, submit( -name => "button_name", -value => "" ) ), endform, br(), br(), span( { class => "texte_little" }, "Clustering Meta-Engine 2 © " ), br(), br(), end_html;
NB : Les erreurs des scripts CGI sont reportés dans les logs Apache.
NB2 : Tu peux très bien lancer un script CGI en ligne de commande pour voir ce qu'il va afficher, le module CGI s'en aperçoit et utilise les arguments de la ligne de commande pour les paramètres de la requète.
NB3 : Mais qu'utilises-tu donc comme IDE, la plupart t'aurait signalé le problème de la parenthèse manquante ?
--
Jedaï

10/02/2008, 16h05
mnem0

j'utilise komodo m'sieur. d'habitude j'indente tout mais là, j'avoue, y'a du laisser aller.

j'utilise strict et warnings d'habitude hein, seulement là, l'utilisation de ces pragmas faisait probleme donc j'ai viré :
Can't locate strict.pm in @INC (@INC contains: .) at C:/Program Files/xampp/cgi-bin/index.pl line 2.\r
[Sat Feb 09 05:20:44 2008] [error] [client 127.0.0.1] BEGIN failed--compilation aborted at C:/Program Files/xampp/cgi-bin/index.pl line 2.\r

ca donnait ca dans le log apache

[MOD flagornerie ON]
merci de ta patience, tu es une creme, je vais tester ça.
[MOD flagornerie OFF]

juste un truc : l'image n'apparait pas, j'ai testé avec plusieurs browsers, pourtant c'est le bon path :/

merci pour tout ^^
10/02/2008, 16h48
Jedai

Une astuce pour que ce soit plus agréable pour toi c'est d'utiliser CGI::Pretty durant la phase de développement du site, le source HTML produit est nettement (très nettement) plus lisible. Il suffit d'utiliser CGI::Pretty au lieu de CGI, la seule différence c'est la sortie générée.

--
Jedaï
10/02/2008, 16h51
mnem0

encore merci :), si pour l'image t'as une idée, je prends
10/02/2008, 16h54
Jedai

Citation:

Envoyé par mnem0

juste un truc : l'image n'apparait pas, j'ai testé avec plusieurs browsers, pourtant c'est le bon path :/

Non, c'est pas le bon path (ou pas une bonne image parce que je viens de tester et chez moi ça marche), tu es sûr que tu n'as pas mis './image' au lieu de '../image' ? Généralement pour './image', on met plutôt 'image' de toute façon.

--
Jedaï
10/02/2008, 17h16
mnem0

ben je vais te dire, j'ai meme placé l'image dans le repertoire du script et juste mis src=>"cme.jpg" ça marche toujours pas :/
10/02/2008, 20h05
Jedai

Bon apparemment avec certaines configurations, ça ne marche pas de mettre les images dans le répertoire du script, mets le dans images à la racine du site et dit au script d'afficher "/images/cme.jpg", comme ça tu es garanti que ça marche (tant que tu mets les bonnes permissions).

--
Jedaï
10/02/2008, 21h22
mnem0

c'est du windoze, y'a toutes les permissions :) c'est open bar. j'ai testé avec un repertoire image dans mon repertoire cgi-bin : marche pas :/
10/02/2008, 21h44
Jedai

Citation:

Envoyé par mnem0

c'est du windoze, y'a toutes les permissions :) c'est open bar. j'ai testé avec un repertoire image dans mon repertoire cgi-bin : marche pas :/

J'ai dit à la racine du site (répertoire www ou htdocs, selon la conf de ton serveur) pas dans cgi-bin.

--
Jedaï

nickel, j'ai mis le css avec l'image, j'ai dit que le style se trouve au bon endroit seulement mon textfield et le span qui contient query sont pas centrés, que ce soit avec le code que tu as corrigé ou cette version :
Code:

1 2 3 4 5 6 7 8 9 10 11 span( { class => "sstitre", -align => "center" }, "Query me :" ), br(), br(), textfield( { class => "formulaires" }, { style => "width:385px;",align=>'center' }, -name => "recherche", -default => "", -override => 1, -size => 50, -maxlength => 500 ),
Merci de ta patience encore une fois.

Avec le path "/images/cme.jpg" que je t'ai mis ? Tu fais une fausse manipulation quelque part, mais sans être sur ton serveur, je vais avoir du mal à corriger...

Je répète : tu mets exactement ce script dans cgi-bin :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
#!"C:\perl\bin\perl.exe"
use strict; use warnings;
use CGI qw/:standard/;
$CGI::POST_MAX        = 1024 * 100;    # max 100K posts
$CGI::DISABLE_UPLOADS = 1;             # no uploads
my $erreur    = "";
my $action    = "./result.pl";
my $method    = "post";
my $encoding  = "application/x-www-form-urlencoded";
my $styleForm = "border:0px;margin:0px";
 
print header(
    -type    => "text/html",
    -charset => "utf-8"
);
 
print start_html(
    -title => "Clustering Meta-Engine 2 Perl version",
    ,
    -meta => { 'http-equiv' => "Content-Type", charset => "UTF-8" },
 
    -style        => { "src" => "mdl/mdl-css/mmc-css.css" },
    -leftmargin   => "0",
    -rightmargin  => "0",
    -topmargin    => "0",
    -bottommargin => "0"
  ),
  div(
    { -class => "page", -align => "center" },
 
    br(),
    a(
        { -href => "index.pl" },
        img {
            src    => "/images/cme.jpg",
            width  => "232px",
            height => "124px",
            border => "0",
            alt    => "Conceptual Meta-Engine"
        }
    ),
  ),
  start_form(
    -method  => $method,
    -action  => $action,
    -enctype => $encoding,
    { -style => $styleForm }
  ),
 
  span( { class => "sstitre" }, "Query me :" ), br(), br(),
 
  textfield(
    { class => "formulaires" }, { style => "width:385px;" },
    -name      => "recherche",
    -default   => "",
    -override  => 1,
    -size      => 50,
    -maxlength => 500
  ),
  br(), br(),
  p(
    { -style => 'text-align:center' },
    submit(
        -name  => "button_name",
        -value => ""
    )
  ),
  endform,
  br(), br(),
  span( { class => "texte_little" }, "Clustering Meta-Engine 2 &copy; " ),
  br(), br(),
  end_html;

Et tu mets une image valide sous le nom cme.jpg dans le répertoire images dans le répertoire racine de ton site. Vérifie que tu as bien accès à l'image en tapant "tonsite/images/cme.jpg" dans la barre d'adresse.
Si après ça tu n'as toujours pas l'image, je ne comprend pas, et c'est sûrement un problème de configuration.

--
Jedaï

10/02/2008, 22h56
mnem0

voir mon post precedent corrigé : l'image marche mais pas les align center :/ que ce soit ta version ou la mienne. une idée ?

Généralement, se reposer sur les vieux attributs html plutôt que sur les styles CSS est de moins en moins une bonne idée :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
#!"\xampp\perl\bin\perl.exe"
use strict;
use warnings;
use CGI qw/:standard/;
$CGI::POST_MAX        = 1024 * 100;    # max 100K posts
$CGI::DISABLE_UPLOADS = 1;             # no uploads
my $erreur    = "";
my $action    = "./result.pl";
my $method    = "post";
my $encoding  = "application/x-www-form-urlencoded";
my $styleForm = "border:0px;margin:0px";
 
print header(
    -type    => "text/html",
    -charset => "utf-8"
);
 
print start_html(
    -title => "Clustering Meta-Engine 2 Perl version",
    ,
    -meta => { 'http-equiv' => "Content-Type", charset => "UTF-8" },
 
    -style        => { "src" => "mdl/mdl-css/mmc-css.css" },
    -leftmargin   => "0",
    -rightmargin  => "0",
    -topmargin    => "0",
    -bottommargin => "0"
  ),
  div(
    { -class => "page", -align => "center" },
 
    br(),
    a(
        { -href => "index.pl" },
        img {
            src    => "/images/cme.jpg",
            width  => "232px",
            height => "124px",
            border => "0",
            alt    => "Conceptual Meta-Engine"
        }
    ),
  ),
  start_form(
    -method  => $method,
    -action  => $action,
    -enctype => $encoding,
    { -style => $styleForm }
  ),
  div(
    { -style => 'text-align:center' },
    span( { class => "sstitre" }, "Query me :" ),
    br(),
    br(),
    textfield(
        { class => "formulaires" }, { style => "width:385px;" },
        -name      => "recherche",
        -default   => "",
        -override  => 1,
        -size      => 50,
        -maxlength => 500
    ),
  ),
  br(), br(),
  p(
    { -style => 'text-align:center' },
    submit(
        -name  => "button_name",
        -value => ""
    )
  ),
  endform,
  br(), br(),
  span( { class => "texte_little" }, "Clustering Meta-Engine 2 &copy; " ),
  br(), br(),
  end_html;

--
Jedaï

11/02/2008, 03h10
mnem0

Merci pour tout :D
je vais lire "de l'art de programmer en perl" je viens de le commander ^^.