En Perl, comment puis-je envoyer des paramètres CGI sur la ligne de commande?

Normalement je obtenir les données à partir d'une page web, mais je veux l'envoyer à partir de la ligne de commande pour faciliter le débogage.

Pour obtenir les données que je fais quelque chose comme:

my $query = new CGI;
my $username = $query->param("the_username");

cela ne semble pas fonctionner: 

$ ./script.pl the_username=user1

EDIT:

Fait les travaux ci-dessus. Le if déclaration qui a vérifié $username était mauvais (à l'aide de == au lieu de eq).

  • Avez-vous des use CGI; dans votre script (notez la majuscule)? Êtes-vous à l'aide de $query = new CGI; print $query->param("the_username") ou autre chose?
  • Là, j'ai corrigé certains de la syntaxe. oui, j'ai utiliser des CGI;
InformationsquelleAutor slicedtoad | 2011-09-13
  1. 6

    Que j'ai découvert il y a longtemps, en effet, vous pouvez passer des paramètres de chaîne de requête à un script à l'aide de CGI.pm. Je ne recommande pas ce que la méthode de débogage (mieux avoir reproductibles trucs enregistrés dans des fichiers qui sont ensuite dirigés vers la STDIN du script), cependant, il fonctionne:

    #!/usr/bin/env perl

use warnings; use strict;

use CGI;

my $cgi = CGI->new;

my $param_name = 'the_username';

printf(
    "The value of '%s' is '%s'.\n",
    $param_name, $cgi->param($param_name)
);

    De sortie:

    $ ./t.pl the_username=yadayada 
La valeur de 'the_username' est 'yadayada'.
    • Merci, votre droit. j'étais juste en utilisant une syntaxe incorrecte lors de la vérification si il a été envoyé.
    InformationsquelleAutor Sinan Ünür
  2. 7

    CGI lit les variables à partir de l'entrée standard.

    Voir cette partie du CGI.pm de la documentation:

    http://search.cpan.org/dist/CGI/lib/CGI.pod#DEBUGGING

    • Merci, cette page est très utile.
    • Ouais, c'est presque comme un manuel sur la façon de faire de CGI avec Perl 😉
    InformationsquelleAutor Nate C-K