Intégration CSS et CGI

**Olivier Regnier** · 29/07/2011, 01h57

Bonjour

Je tente via une fonction d'intégrer un style CSS dans mon script CGI dont voici le 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
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
#!"C:\xampp\perl\bin\perl.exe"
 
use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
 
$CGI::POST_MAX=1024*100;
$CGI::DISABLE_UPLOADS=1;
 
my $cgi=new CGI;
 
# variables layout
my $charset='';
my $lang='';
my $title='';
my $distribution='';
my $resource_type='';
my $description='';
my $keywords='';
my $shortcut_icon='';
 
&style_sheet;
 
# css layout
sub style_sheet {
  print <<EOS;
  <style type="text/css" media="screen">
  body {
    color:#666666;
  }
  </style>
EOS
}
 
# skeleton layout
print $cgi->header(-charset=>$charset),
    $cgi->start_html(
        -lang=>$lang,
        -title=>$title,
        -meta=>{
            'distribution'=>$distribution,
            'resource-type'=>$resource_type,
            'description'=>$description,
            'keywords'=>$keywords},
        -head=>[Link({-rel=>'shortcut icon',-href=>$shortcut_icon})],
        -style=>{-type=>'text/css',-media=>'screen',-code=>$style_sheet}),
    $cgi->end_html();

J'appelle la fonction au démarrage du script, mais j'ai un trou de mémoire pour renseigner le champ suivant:

Code :

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

-code=>$style_sheet

Cela m'indique le message d'erreur suivant:

Global symbol "$style_sheet" requires explicit package name at C:/xampp/cgi-bin/generic.cgi line 46.

Un petite aide serait la bienvenue, en vous remerciant par avance

**djibril** · 29/07/2011, 02h55

Tu n'as pas déclaré la variable avec my !

**Olivier Regnier** · 29/07/2011, 10h05

Oups, je l'avais oublié, merci, mais du coup en la déclarant cela me génère un autre message d'erreur:

Error message:
malformed header from script. Bad header= <style type="text/css" media: generic.cgi

Le code modifié:

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
#!"C:\xampp\perl\bin\perl.exe"
 
use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
 
$CGI::POST_MAX=1024*100;
$CGI::DISABLE_UPLOADS=1;
 
my $cgi=new CGI;
 
# variables layout
my $charset='';
my $lang='';
my $title='';
my $distribution='';
my $resource_type='';
my $description='';
my $keywords='';
my $shortcut_icon='';
my $style_sheet;
 
# call functions
&style_sheet;
 
# css layout
sub style_sheet {
print <<EOS;
<style type="text/css" media="screen">
body {
color:#666666;
}
</style>
EOS
}
 
# skeleton layout
print $cgi->header(-charset=>$charset),
    $cgi->start_html(
        -lang=>$lang,
        -title=>$title,
        -meta=>{
            'distribution'=>$distribution,
            'resource-type'=>$resource_type,
            'description'=>$description,
            'keywords'=>$keywords},
        -head=>[Link({-rel=>'shortcut icon',-href=>$shortcut_icon})],
        -style=>{-code=>$style_sheet}),
    $cgi->end_html();

Je ne comprends plus

**djibril** · 29/07/2011, 13h26

Tu te mélanges les pinceaux. Tu est en train de créer une balise <style> avant même la balise <html>, CGI te dit que ton HTML n'a pas de sens

.

Voici un exemple d'écriture :

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
  print $cgi->header(
    -lang => "fr-en",
    -head => meta(
      { -http_equiv => "content-type",
        -content    => "text/html; charset=ISO-8859-1",
      },
      { -http_equiv => "PRAGMA",
        -content    => "NO-CACHE",
      },
    ),
  );
  print $cgi->start_html(
    -title => $titre,
    -style => { "src" => $feuille_css },
    -script =>
        { -language => "JAVASCRIPT", -src => $feuille_javascript },
  );

**Olivier Regnier** · 29/07/2011, 16h09

Code :

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

1
2
3
4
print $cgi->start_html(
-style => { "src" => $feuille_css },
    -script =>{ -language => "JAVASCRIPT", -src => $feuille_javascript },
  );

Si j'ai bien compris, ce code propose deux méthodes pour mettre en place la feuille de style ?

Soit la méthode "src" soit Javascript ?

**djibril** · 29/07/2011, 18h01

non, je t'ai mis un vieux code que j'ai retrouvé chez moi. j'y mettais le javascript et css, mais tu peux enlever le javascript si tu veux.

Intégration CSS et CGI

Web Perl

Vue hybride

Discussions similaires

Partager

Partager