2010-06-22 8 views
1

J'utilise HTTP::Server::Simple::CGI pour un serveur HTTP léger. Cela me donne un objet CGI dans une fonction de rappel lorsqu'une requête HTTP est acceptée.Comment accéder aux en-têtes de requête HTTP dans HTTP :: Server :: Simple :: CGI?

Comment puis-je accéder aux en-têtes HTTP entrants, en particulier aux en-têtes non standard? Les variables d'environnement sont seulement les variables standard.

cgi->param me donne seulement les paramètres de forme.

Merci! Chris

+0

chris, j'ai substitué * attributes * pour * headers * dans votre question. Si ce n'est pas ce que vous vouliez dire, annulez mon changement. – daxim

Répondre

2

Il est dit dans the documentation:

Vous pouvez, si vous voulez vraiment, définir parse_headers() et les analyser vous-même cru.

+0

merci! tu me mets sur la bonne voie! les en-têtes de fonction me donneront les arguments sans analyser pour moi-même. salutations, chris – chris01

0

Définissez la méthode headers pour recevoir les en-têtes.

sub headers 
{ 
    my $self = shift; 
    my $headers = shift; 
    my @h = @{$headers}; 

    while (0 + @h) 
    { 
     my $k = shift @h; 
     my $v = shift @h; 

     print STDERR "header >> $k: $v\n"; 
    } 
}