while frage (gelöst) (Allgemeines zu Perl)

[thread]16678[/thread]

while frage [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+7 replies
mark05

2011-09-01 09:35
User since
2010-01-05
129 Artikel
BenutzerIn
hi
also ich habe hier eine einfache text datei die ich einlese und via anonymen
array uebergebe.

das siehen dann so aus ( nur dier ersten zeilen als beispiel )
via dumper
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

$VAR1 = \{ 'returncode' => 'readfile_done', 'returndata' => [ '# options', '# $Date: 2011/08/30 14:07:25 $ $Author: root $ $Revision: 2.53 $', '# ', '# ab OpenBSD 4.1 ist keep state default fuer die regeln', '# wenn man regeln haben wie die nicht stateful sind muss die option no state gesetzt werden', '#', '######', '# WikiRef 10', '# fw1 interfaces', 'include "/etc/fw/pf.interfaces"', '', '# WikiRef 20', '# allgemeine parameter',
soweit so gut ....

nun hatte ich ein problem und habe es geloest jedoch verstehe ich nicht
warum ?

problem
Code: (dl )

1 2 3 4 5

my $z=0; while ( ${$content}->{'returndata'}->[$z] ) { print ${$content}->{'returndata'}->[$z],"\n"; $z++; }
geloest
Code: (dl )

1 2 3 4 5

my $z=0; while ( defined ${$content}->{'returndata'}->[$z] ) { print ${$content}->{'returndata'}->[$z],"\n"; $z++; }
sollte sich die while schleife nicht identisch verhalten ?

warum stop die erste while schleife an der zeile ohne inhalt ?

holger
- +6 replies
- topeg
  
  2011-09-01 10:02
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  0, '', undef sind immer unwahr.
  Bei defined(...) ist es nur dann unwahr wenn der Wert undef ist.
  
  Häufig ist es aber besser mit exists zu testen, denn mit einem Test auf defined wird ein Eintrag angelegt wenn er nicht existiert. Das kann unter Umständen woanders zu Fehlermeldungen führen
  
  Code (perl): (dl )
  
  while( exists(${$content}->{'returndata'}->[$z]) )
  
  oder man macht es so
  
  Code (perl): (dl )
  
  1 2 3
  
  for ( @{${$content}->{'returndata'}} ) { print "$_\n"; }
  
  oder so
  
  Code (perl): (dl )
  
  1 2 3
  
  for my $z (0..$#{${$content}->{'returndata'}} ) { print ${$content}->{'returndata'}->[$z]."\n"; }
  - +4 replies
  - mark05
    
    2011-09-01 11:10
    User since
    2010-01-05
    129 Artikel
    BenutzerIn
    
    hi
    danke topeg das habe ich verstanden ;)
    
    eine frage hinterher .
    
    ist
    
    Code: (dl )
    
    1 2 3
    
    for my $z (0..$#{${$content}->{'returndata'}} ) { print ${$content}->{'returndata'}->[$z]."\n"; }
    
    adequat zu
    
    Code: (dl )
    
    1 2 3
    
    foreach my $z (0..$#{${$content}->{'returndata'}} ) { print ${$content}->{'returndata'}->[$z]."\n"; }
    
    ?
    
    holger
    - payx
      
      2011-09-01 11:16
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Hallo mark05,
      
      perldoc perlsyn:
      
      The foreach keyword is actually a synonym for the for keyword, so you can use foreach for readability or for for brevity.
      
      HTH
      Grüße
      payx
    - +2 replies
    - topeg
      
      2011-09-01 11:19
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Bei perl4 gab es noch einen großen Unterschied, da for nicht das Selbe konnte wie foreach. Bei perl5 sind beide Ausdrücke äquivalent.
      - mark05
        
        2011-09-01 11:37
        
        User since
        2010-01-05
        129 Artikel
        BenutzerIn
        
        hi
        
        danke .... fuer die antworten ..
        
        holger
  - pq
    
    2011-09-01 11:47
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    2011-09-01T08:02:00 topeg
    Häufig ist es aber besser mit exists zu testen, denn mit einem Test auf defined wird ein Eintrag angelegt wenn er nicht existiert.
    
    das stimmt nicht.
    
    Code: (dl )
    
    1 2 3 4 5 6 7
    
    $ perl -wE' my $foo = { bar => [1,2,3]}; say 1 if defined $foo->{bar}->[42]; say for @{ $foo->{bar} }' 1 2 3
    
    da wird gar kein eintrag angelegt.
    autovivification wird immer wieder missverstanden.
    wenn ich $foo->{blubb}->[123] abfrage, wird der key blubb in $foo angelegt. das aber auch unabhängig davon, ob ich exists oder defined verwende.
    die autovivification entsteht dadurch, dass ich mit $foo->{blubb}->[123] in $foo->{blubb} ein array erwarte und es gleichzeitig dereferenziere, als sei es schon da. und in dem moment legt perl es für mich an.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    my $foo = { bar => [1,2,3] }; exists $foo->{bar}->[42]; # legt gar nix an defined $foo->{bar}->[42]; # legt gar nix an # genauso mit einem hash of hashes $foo = { bar => { a => "b" } }; exists $foo->{bar}->{boo}; # legt gar nix an defined $foo->{bar}->{boo}; # legt gar nix an
    
    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

View all threads created 2011-09-01 09:35.