Get et readParse

Version imprimable

Get et readParse

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?8O
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 #!/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

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:

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ï

01/06/2008, 17h40
zn415

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

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?
01/06/2008, 17h59
Jedai
Citation:

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.

Citation:

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:

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:

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ï