Problem mit Hash (Allgemeines zu Perl)

[thread]14403[/thread]

Problem mit Hash

Leser: 19

Articles: hide open all | hide show old branches

+8 replies
fliXR

2009-12-20 23:19
User since
2009-12-19
4 Artikel
BenutzerIn
Hallo zusammen,

mache gerade meine ersten Erfahrungen mit Perl und probiere ein wenig herum.
Code: (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

#!/usr/bin/perl use strict; use warnings; use Net::FTPSSL; my @ret; my %dirlist; my $i = 0; my $win_ftp = "192.168.0.3"; my $homeftp = Net::FTPSSL->new ("$win_ftp", Port => 6500, Encryption => CLR_CRYPT, Croak => 1, ); $homeftp->login('test','test'); @ret = $homeftp->nlst('',''); for (@ret) { %dirlist = ( "$i" => "$_", ); print $dirlist{$i}; $i++; }
Mit
Code: (dl )

print $dirlist{$i};
kann ich mir in der for Schleife jedes einzelne Element ausgeben. Versuche ich allerdings explizit mittels
Code: (dl )

print $dirlist{"5"}
auf ein Key aus dem Hash zuzugreifen bekomme ich folgenden Fehler:

Use of uninitialized value $dirlist{"1"} in print at ./ftp.pl line 23.

Wäre nett, wenn mir jmd. erklären könnte womit das zusammenhängt?! Habe mir vorher auch $i ausgeben lassen und dann eine Zahl davon eingetragen. Hat aber nichts gebracht.

Vielen Dank schon mal

Gruß fliX
- +7 replies
- pktm
  
  2009-12-20 23:58
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  Hallo!
  
  Mittels
  
  Code: (dl )
  
  1 2 3
  
  %dirlist = ( "$i" => "$_", );
  
  definierst du jeweils den gesamten Hash, nicht nur den Eintrag an der Stelle $i. Wenn du das tun willst, musst du schreiben:
  
  Code: (dl )
  
  $dirlist{$i} = "mein wert";
  
  Eventuell hier ein Verbesserungsvorschlag für dein Skript (ungetestet):
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
  
  #!/usr/bin/perl use strict; use warnings; use Net::FTPSSL; my %dirlist = (); my $win_ftp = "192.168.0.3"; my $homeftp = Net::FTPSSL->new ("$win_ftp", Port => 6500, Encryption => CLR_CRYPT, Croak => 1, ); $homeftp->login('test','test'); my @ret = $homeftp->nlst('',''); my $i = 0; for my $val (@ret) { $dirlist{$i} = $val; print $dirlist{$i}; $i++; }
  
  Grüße, pktm
  http://www.intergastro-service.de (mein erstes CMS :) )
  - +2 replies
  - murphy
    
    2009-12-21 01:34
    
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    Eine echte Verbesserung wäre es auch, statt eines Hashes einfach ein Array zu benutzen, wenn die Schlüssel nur aufeinanderfolgende ganze Zahlen sind!
    When C++ is your hammer, every problem looks like your thumb.
    - pktm
      
      2009-12-21 11:11
      
      User since
      2003-08-07
      2921 Artikel
      BenutzerIn
      
      murphys Worte in Code:
      
      Code: (dl )
      
      1 2 3
      
      # bei deinem code ist das hier das Selbe: print $dirlist{$i}; # Hash-Zugriff, geschweifte Klammern print $red[$i]; # Array-Zugriff, eckige Klammern
      
      http://www.intergastro-service.de (mein erstes CMS :) )
  - +4 replies
  - murphy
    
    2009-12-21 15:00
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    Am Rande bemerkt kann man die Umwadlung eines Arrays in einen Hash auch etwas einfacher¹ schreiben. Statt
    
    2009-12-20T22:58:30 pktm
    [...]
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    my %dirlist = (); [...] my $i = 0; for my $val (@ret) { $dirlist{$i} = $val; print $dirlist{$i}; $i++; }
    
    [...]
    
    ginge auch
    
    Code (perl): (dl )
    
    my %dirlist = map { $_ => $ret[$_] } $[..$#ret;
    
    ¹ Für geeignete Definition von "einfach" bzw. passenden persönlichen Geschmack ;-)
    When C++ is your hammer, every problem looks like your thumb.
    - +3 replies
    - fliXR
      
      2009-12-21 19:01
      
      User since
      2009-12-19
      4 Artikel
      BenutzerIn
      
      Hallo zusammen,
      
      vielen Dank für die Antworten. Leider bin ich immer noch nicht genau auf den Trichter gekommen was da genau passiert (also warum meine Variante nicht funktioniert). Die anderen Sachen sind für mich nachvollziehbar aber würde schon gerne wissen was bei meinem eigentlich passiert. In der Shell konnte man das ganz leicht mit set -x sehen, der debug mode von Perl ist leider etwas gewöhnungsbedürftig. Gibt es noch eine andere Möglichkeit als perl -d um das zu debuggen?
      
      Problem ist dieser Codeschnipssel:
      
      Code: (dl )
      
      1 2 3
      
      %dirlist = ( "$i" => "$_", );
      
      Nach meinem Verständnis habe ich ein Hash %dirlist und bei jedem Schleifendurchlauf erstelle ich Keys und Values. Key ist immer das $i also, 0,1,2,3... und Value = die Directory. Warum kann ich dann wenn er durchgelaufen ist nicht auf die einzelnen Keys mittels $dirlist{"1"} z. B. zugreifen?
      
      Dank euch schon mal
      
      Bye
      - +2 replies
      - pq
        
        2009-12-21 19:15
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        es wurde doch schon gesagt, dass du mit einer zuweisung an %dirlist den gesamten hash neu definierst und somit alle einträge löschst.
        vielleicht solltest du dich genau auf aussagen beziehen, damit wir wissen, was genau du nicht verstanden hast, denn pauschal nochmal dieselbe frage zu stellen, hilft da auch nicht.
        desweiteren wurde dir gezeigt, wie du stattdessen neue keys hinzufügst.
        
        edit: zur vernschaulichung:
        
        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
        
        use strict; use warnings; use Data::Dumper; my %hash = ( a => 1, ); print Dumper \%hash; $hash{b} = 2; print Dumper \%hash; %hash = ( c => 3, ); print Dumper \%hash; # ausgabe __END__ $VAR1 = { 'a' => 1 }; $VAR1 = { 'a' => 1, 'b' => 2 }; $VAR1 = { 'c' => 3 };
        
        Last edited: 2009-12-21 19:20:14 +0100 (CET)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        fliXR
        
        2009-12-21 19:18
        
        User since
        2009-12-19
        4 Artikel
        BenutzerIn
        
        2009-12-21T18:15:22 pq
        es wurde doch schon gesagt, dass du mit einer zuweisung an %dirlist den gesamten hash neu definierst und somit alle einträge löschst.
        vielleicht solltest du dich genau auf aussagen beziehen, damit wir wissen, was genau du nicht verstanden hast, denn pauschal nochmal dieselbe frage zu stellen, hilft da auch nicht.
        desweiteren wurde dir gezeigt, wie du stattdessen neue keys hinzufügst.
        
        Na, mir war nicht ganz klar, dass ich durch die Zuweisung das komplette Hash lösche. Nu passts, dankeschön :)
        
        Gruß fliX

View all threads created 2009-12-20 23:19.