Get et readParse

**zn415** · 31/05/2008, 17h25

Bonjour, j'ai quelques dificultées pour récuperer mes variables get, lorsque je fait PrintVariables(); j'obtiens bien ma variable qui se trouve dans l'url mais je n'arrive pas a la recuperer en faisant : print $in{'id'};

Quelqu'un sait t'il pourquoi?

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
 
#!/usr/bin/perl 
 
use strict;
use CGI;
 
 
print "Content-Type: text/html\n\n"; # On affiche l'en-tête HTML indispensable
print "";
print "<HTML><HEAD><TITLE>test.cgi</TITLE></HEAD>";
print "<BODY bgcolor=#ffffff>";
print "<Font color=#000000>";
print "<center><H1>Test.cgi</H1></center><br><br>";
 
require "lib/cgi-lib.pl";
 
 
 
&ReadParse(*in);
 
 
#print $in{'id'};
 
 
print PrintVariables();

A quoi sert le & devant ReadParse?

Message d'erreur:
malformed header from script. Bad header=Variable "%in" is not imported: cgiwrap

**Jedai** · 01/06/2008, 13h21

Pourquoi utilises-tu la librairie cgi-lib ? Elle est complètement dépassée, dangereusement vulnérable et abandonnée depuis plus de dix ans....

D'autant que tu charges le module CGI, qui est la façon correcte de faire du CGI en Perl actuellement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict;
use CGI qw/:standard/;
 
print header(), # On affiche l'en-tête HTML indispensable
  start_html(-title => 'test.cgi'),
  span({ -style => 'text-align:center'}, h1( 'Test.cgi' ) ),
  br(),
  p( 'id : ', param( 'id' ) ),
  end_html();
 
__END__

--
Jedaï

**zn415** · 01/06/2008, 17h40

Je suis un newbie en perl, voila pourquoi!

J'ai trouvé cette exemple sur differents sites...

Ce qu'ont dit de perl est donc vrai, plusieurs façons de faire.

Merci pour ce morceau de code

Encore un truc, si j'affiche une variable qui n'existe pas, est ce que j'aurais une erreur 500?

Si oui comment faire pour tester l'existance d'une variable en perl?

**Jedai** · 01/06/2008, 17h59

Envoyé par zn415

JCe qu'ont dit de perl est donc vrai, plusieurs façons de faire.

C'est vrai en général, mais ici ce n'est pas le cas, tu as peut-être vu cet exemple sur plusieurs sites, mais c'est uniquement parce que les sites étaient vieux ou avaient été écrits par des gens qui ne s'y connaissaient pas (et s'étaient référé à des vieux sites), comme je te l'ai dit, ça fait pratiquement dix ans qu'il est recommandé d'éviter cgi-lib.

Envoyé par zn415

Encore un truc, si j'affiche une variable qui n'existe pas, est ce que j'aurais une erreur 500?

Si oui comment faire pour tester l'existance d'une variable en perl?

Tu n'auras pas une erreur 500, juste rien du tout. Pour tester l'existence d'une variable, vérifie si elle est définie :

Code :

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

1
2
3
4
5
6
if( defined param( 'id' ) ) {
  # do something
}
else {
  # do something else
}

Un idiome courant lorsque tu veux une valeur par défaut est :

Code :

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

my $id = param('id') || 'Anonyme';

(attention ça ne marche pas si une valeur fausse (comme 0 ou une chaîne vide) peut être légitime pour ce paramètre)

--
Jedaï

Get et readParse

Web Perl

Vue hybride

Discussions similaires

Partager

Partager