der folgende code sollte eigentlich eine datei duchsuchen, und wenn er auf einen string stößt, der ein dateiname ist, der in & zeichen eingeschlossen, sich selber nochmal aufrufen und den inhalt der neuen datei anstatt des strings ersetzen. soweit so gut, das geht auch, nur bricht er die while schleife ab, sobalt die funktion sich selbst aufrut. wieso?
kann mir da jemand weiterhelfen?
kann mir da jemand weiterhelfen?
Code:
sub create {
my ($self, $file) = @_;
my $content;
open FILE, $file);
while (<FILE>) {
$_ =~ s/\&(\w+)\&/$self->create($1)/ge;
$content .= $_;
}
return $content;
}