Perl endlosschleife

[Richard-18]

Hallo,

ich habe hier ein kurzes Skript was am ende mal ein Backup-Skript werden soll.
Mein problehm ist das ganze "endet" in einer endlosschleife.

Wäre nett wenn jemand mal einen blick reinwerfen würde.

-> http://nopaste.debianforum.de/7417

[alexfupp]

Ich würde jetzt mal mutmaßen:

Du wirst irgendwo in deiner Verzeichnisstruktur einen Symlink haben der auf ein Verzeichnis weiter oberhalb verweist.

Der Tateitest -f ist auch für Symlinks true, daher sollte in dem elsif auch no auf nicht -l geprüft werden.

Hope this Helps

[Richard-18]

Ich würde jetzt mal mutmaßen:

Du wirst irgendwo in deiner Verzeichnisstruktur einen Symlink haben der auf ein Verzeichnis weiter oberhalb verweist.

Der Tateitest -f ist auch für Symlinks true, daher sollte in dem elsif auch no auf nicht -l geprüft werden.

Hope this Helps

Also das mit dem Symlink bezweifel ich, aber kontrolle ist ja bekanntlich immer besser .
Danke für denn Tip mit dem Symlink-Check.

Ich werde es heute abend gleich ausprobieren.

PS.: Und sonst hat keiner einen idee ?

[nepos]

Um die Dateien zusammenzusuchen könntest du dir eventuell auch File::Find bzw. File::Find::Rule ansehen. Damit kann man auch etwas mehr machen

[DHGE]

Ich verwende ein fertiges (Paket) Perl-Programm:

rsnapshot

[Richard-18]

Ja aber wie du schon sagtest "Fertig".
Aber ich find es manchmal erfüllender wenn man etwas selber schreibt.
Es hat 2 vorteile, du weißt was das ding macht(Zeile für Zeile ) und man lernt noch was dabei .