while frage (gelöst) - #151993 (Allgemeines zu Perl)

mark05

2011-09-01 09:35

User since
2010-01-05
129 Artikel
BenutzerIn
[default_avatar]

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 )

$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 )

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

geloest

Code: (dl )

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