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ï

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

Problème avec les attributs body

Web Perl

Vue hybride

Discussions similaires

Partager

Partager