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

topeg

2011-09-01 10:02

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

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";
}