Cookie-Hash ist leer (CGI) (gelöst) (Allgemeines zu Perl)

[thread]15576[/thread]

Cookie-Hash ist leer (CGI) [gelöst]

Leser: 16

Articles: hide open all | hide show old branches

+10 replies

GwenDragon

2010-10-27 14:14

User since
2005-01-17
14748 Artikel
Admin1

Ich versuche gerade die Macke eines fremden Moduls im Zusammenhang mit Perls CPAN:

CGI in einem CMS zu entwirren.

Relevanter Ausschnitt:

Code (perl): (dl )

package cookies;

use CGI qw/:standard/;

my %cookies = ();

sub start {
  foreach ( cookie() ) {
    my %hash = cookie($_);
    $cookies{$_} = \%hash;
  }
  1;
}

sub get {
  my($name) = @_;
  return $name ? $cookies{$name} : \%cookies;
}

1;

start() wird immer auomatisch am Anfang nach einem require/import aufgerufen.
Mich irritiert nur der Code in Zeile 9.
Liefert die Methode CGI::cookie wirklich einen Hash zurück (oder war das 2003 mal so)?

Später wird das Cookie woanders so referenziert:

Code (perl): (dl )

1
2
3

if ($cookie = &cookies::get("url") ) {
  $pref_url ||= $cookie->{"url"};
}

//EDIT: Typo bei Parameter
Aus irgendeinem Grund liefert in Zeile 2 bei undefinierter $pref_url und gesetztem Cookie names url der Hash keinen Wert. SO wird er wohl im oben genannten Modul doch nicht korrekt gefüllt.

Sieht jemand, wo das Problem ist?
Last edited: 2010-10-27 14:34:49 +0200 (CEST)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+2 replies
kristian

2010-10-27 14:26

User since
2005-04-14
684 Artikel
BenutzerIn

cookie gibt einen hash bzw. hashref zurück wenn einer als value gesetzt wurde.
im code wird ein cookie namens "comments" abgefragt. dessen value ist ein hash und einer der hask-keys sollte "url" sein.
- GwenDragon
  
  2010-10-27 14:35
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Entschuldigung, da habe ich was falsches als Parameter angegeben, gerade oben verbessert.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
+7 replies

GwenDragon

2010-10-27 15:29

User since
2005-01-17
14748 Artikel
Admin1

Der Ersteller nahm an, dass über den dereferenzierten Hash und den Schlüssel auf den Wert zugreifen kann.

Testskript:

Code (perl): (dl )

use strict;
use warnings;

package cookies;

use Data::Dumper; $Data::Dumper::Indent = 1; $Data::Dumper::Useqq = 1;        
use CGI qw/:standard/;

my %cookies = ();

sub start {
  foreach ( cookie() ) {
    my %hash = cookie($_);

        print '### Debug ### 
Cookie: 
', Dumper(%hash), 
'######
';    

        $cookies{$_} = \%hash;
  }
  1;
}

sub get {
  my($name) = @_;
  return $name ? $cookies{$name} : \%cookies;
}

1;

package main;

use CGI qw/:standard/;
use Data::Dumper; $Data::Dumper::Indent = 1; $Data::Dumper::Useqq = 1;        

sub say {
        print "@_", "\n";
}

$ENV{HTTP_COOKIE} = 'url=%2Fcms%2Fadmin%2F12%2F; user=test';

cookies::start;

my $c = cookies::get();
say Dumper $c;

my $z = cookies::get('url');
say Dumper $z; 
say 'URL ist ', $z->{'url'}; 

1;

Ausgabe:

Code: (dl )

Odd number of elements in hash assignment at C:\TEST\test.pl line 13.
Odd number of elements in hash assignment at C:\TEST\test.pl line 13.
Use of uninitialized value in join or string at C:\TEST\test.pl line 39.
### Debug ### 
Cookie: 
$VAR1 = "test";
$VAR2 = undef;
######
### Debug ### 
Cookie: 
$VAR1 = "/cms/admin/12/";
$VAR2 = undef;
######
$VAR1 = {
  "url" => {
    "/cms/admin/12/" => undef
  },
  "user" => {
    "test" => undef
  }
};

$VAR1 = {
  "/cms/admin/12/" => undef
};

URL ist

Logisch, die zwei Meldungen, denn von cookie(...) wird ja kein Hash geliefert. :(

Wieso war der bloss der Meinung, dass CGI::cookie(...) für jedes Cookie ein Wertepaar Name-Wert liefert?
Last edited: 2010-10-27 15:41:14 +0200 (CEST)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+6 replies
kristian

2010-10-27 15:43
User since
2005-04-14
684 Artikel
BenutzerIn
Dein Cookie ist falsch gesetzt.
Es wird ja ein Hashref erwartet.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl use strict; use warnings; use CGI; my $q = CGI->new; my %data = ('url' => '/some/page.html'); my $cookie = $q->cookie('url' => \%data); print $cookie->as_string;
Code: (dl )

url=url&%2Fsome%2Fpage.html; path=/kristian
- +5 replies
- GwenDragon
  
  2010-10-27 17:06
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Danke.
  Ich habe vorhin auch rausbekommen, dass im Modul cookies die Zuweisung
  
  Code: (dl )
  
  my %hash = cookie($_);
  
  nur bei Cookies mit mehreren Wertepaaren klappt.
  
  Es werden aber wohl auch gültige Cookies der Form
  
  Code: (dl )
  
  url=%2Fcms%2Fpage.html; path=/
  
  verwendet.
  
  Nur wie überprüfe ich das jetzt, ob ein Cookie mehrere Wertepaare oder nur einen hat?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - kristian
    
    2010-10-27 17:56
    User since
    2005-04-14
    684 Artikel
    BenutzerIn
    
    2010-10-27T15:06:07 GwenDragon
    Danke.
    Ich habe vorhin auch rausbekommen, dass im Modul cookies die Zuweisung
    
    Code: (dl )
    
    my %hash = cookie($_);
    
    nur bei Cookies mit mehreren Wertepaaren klappt.
    
    Es werden aber wohl auch gültige Cookies der Form
    
    Code: (dl )
    
    url=%2Fcms%2Fpage.html; path=/
    
    verwendet.
    
    Nur wie überprüfe ich das jetzt, ob ein Cookie mehrere Wertepaare oder nur einen hat?
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    my $z = cookies::get('url'); if(ref($z) eq "HASH"){ }else{ }
    - +3 replies
    - GwenDragon
      
      2010-10-27 18:21
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Verstehe ich nicht, so wie du das schreibst, klappt es nicht. Denn cookies::get liefert doch immer einen Hashref. Siehe msg #142238
      start() füllt den Cookie-Hash mit einer Hashref.
      get() liefert immer eine Hashref zurück.
      
      Ich brauche ja für start() eine Unterscheidung beim Einlesen der Cookies, ob es ein Cookie ist, mit mehreren Wertepaaren oder nicht.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - kristian
        
        2010-10-27 18:33
        
        User since
        2005-04-14
        684 Artikel
        BenutzerIn
        
        Stimmt da war ich zu schnell.
        
        EDIT:
        Ich lese gerade CGI::Cookie;
        Der Rückgabewert ist entweder SCALAR oder ARRAY.
        Im Falle des Scalars ist es ggf. das erste Element eines Arrays.
        Die Abfrage ref() eq 'HASH' ist also sinnfrei.
        Man müsste die Daten generell mit
        
        Code (perl): (dl )
        
        my @data = cookie($name)
        
        abfragen und dann an hand der Anzahl der Elemente in @data entscheiden was es sein könnte.
        Last edited: 2010-10-27 19:30:57 +0200 (CEST)
      - GwenDragon
        
        2010-10-27 19:32
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Meine Änderung am Modul cookies macht genau das, was ich wollte. Mach jedenfalls das, was vom Erfinder vorgesehen war.
        
        Geht wohl noch eleganter.
        
        Code (perl): (dl )
        
        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 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71
        
        use strict; use warnings; package cookies; use Data::Dumper; $Data::Dumper::Indent = 1; $Data::Dumper::Useqq = 1; use CGI qw/:standard/; use CGI::Cookie; my %cookies = (); sub start { foreach ( cookie() ) { my %h = cookie($_); unless (exists $h{$_} ) { my (@h) = %h; @h = reverse @h; %h = ($_,$h[1]); } print '### Debug ### Cookie %h: ', Dumper(\%h), '###### '; $cookies{$_} = \%h; } 1; } sub get { my($name) = @_; return $name ? $cookies{$name} : \%cookies; } 1; package main; use CGI qw/:standard/; use Data::Dumper; $Data::Dumper::Indent = 1; $Data::Dumper::Useqq = 1; sub say { print "@_", "\n"; } my $cook1 = 'url=url&%2Fcms%2Fadmin%2Fx.cgi&test&77'; say $ENV{HTTP_COOKIE} = $cook1; cookies::start; say Dumper %cookies; my $c = cookies::get('url'); say $c->{'url'}; say $c->{'test'}; say; say '============='; $cook1 = 'url=%2Fcms%2Fadmin%2Fx.cgi'; say $ENV{HTTP_COOKIE} = $cook1; cookies::start; say Dumper %cookies; my $c = cookies::get('url'); say $c->{'url'}; say $c->{'test'}; say; 1;
        
        Danke für deine Bemühungen und Anregungen, kristian.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2010-10-27 14:14.