das $data[0] =~ /\{/ and $notfound = 0 and last finde ich etwas irritierend.
das suggeriert, dass, wenn die regex erfolgreich ist, $notfound = 0 gesetzt wird und mit last aus der schleife herausgesprungen wird.
letzteres ist aber nicht der fall, denn der returnwert von $notfound = 0 ist 0, weshalb das last nicht ausgeführt wird.
du brauchst es aber auch gar nicht, da ja der schleifenkopf while ($notfound) enthält.

wenn dann würde man es besser so schreiben:
$notfound = 0, last if $data[0] =~ /\{/
dann ist das last nicht abhängig von der zuweisung davor.

Editiert von pq: typo
Last edited: 2012-01-26 13:05:35 +0100 (CET)