Problème avec les attributs body

**mnem0** · 10/02/2008, 08h07

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 :

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
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 ?

**Jedai** · 10/02/2008, 13h58

Le message devrait t'éclairer :

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 :

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

-bottommargin="0"

--
Jedaï

**mnem0** · 10/02/2008, 15h26

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 :

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
 
#!"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 :

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

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.

**Jedai** · 10/02/2008, 15h51

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 :

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
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 &copy; " ),
  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ï

**mnem0** · 10/02/2008, 16h05

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 ^^

**Jedai** · 10/02/2008, 16h48

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ï

**mnem0** · 10/02/2008, 16h51

encore merci :), si pour l'image t'as une idée, je prends

**Jedai** · 10/02/2008, 16h54

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ï

**mnem0** · 10/02/2008, 17h16

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 :/

**Jedai** · 10/02/2008, 20h05

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ï

**mnem0** · 10/02/2008, 21h22

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 :/

**Jedai** · 10/02/2008, 21h44

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ï

**mnem0** · 10/02/2008, 22h45

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 :

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

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.

**Jedai** · 10/02/2008, 22h54

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 :

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
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ï

**mnem0** · 10/02/2008, 22h56

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

**Jedai** · 10/02/2008, 23h07

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 :

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
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ï

**mnem0** · 11/02/2008, 03h10

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

Problème avec les attributs body

Web Perl

Discussions similaires

Partager

Partager