Perl-Script Write Files to Resultfile

Das Script liest ausgehend von einem Startverzeichnis rekursiv alle Dateien und Verzeichnisse und schreibt diese in ein File im Startverzeichnis. Wird kein Argument angegeben, wird als Startverzeichnis das aktuelle Verzeichnis verwendet. Andererseits kann man mit dem Parameter „--from“ gezielt jedes beliebige Verzeichnis angeben. Der Output, die Liste aller Dateien und Verzeichnisse, wird am aktuellen Verzeichnis in eine Datei mit den Namen write_files_JJJJMMTT_HHMMSS.out geschrieben (JJJJ – Jahr, MM – Monat, TT -Tag sowie HH – Stunde, MM – Minute, SS – Sekunde).