rekursion klappt nicht - #62815 (Allgemeines zu Perl)

murphy

2006-02-09 23:27

User since
2004-07-19
1776 Artikel
HausmeisterIn

Datei- und Verzeichnishandles haben globalen Gültigkeitsbereich. Du solltest statt

Code: (dl )

opendir(CURDIR, ".") or die "could not open directory! \n";

entweder

Code: (dl )

1
2

local *CURDIR;
opendir(CURDIR, '.') or die "could not open directory: $!\n";

oder

Code: (dl )

opendir(my $curdir, '.') or die "could not open directory: $!\n";

verwenden.

Im letzteren Fall musst du dann natürlich auch im Rest der Verzeichnislesefunktion die lexikalische Variable $curdir statt des Verzeichnishandles CURDIR verwenden.

When C++ is your hammer, every problem looks like your thumb.