Hallo,

ich sammele in einem Perlprogramm eine Liste von Dateien zusammen aus denen ein Tar-Paket erzeugt werden soll. Diese werden an das tar-Programm per xargs übergeben. Ich könnte natürlich die Dateien auch erst in eine Datei schreiben und mit "tar ... -T file" arbeiten, aber irgendwie muss es doch auch möglich sein den Fehler beim "open" zu erkennen.

Folgender Code:


Folgendes Problem:
Kann z.B. die Zieldatei nicht angelegt werden sehe ich zwar eine entsprechende Meldung auf STDERR, die "# Fehlerbehandlung" wird aber nie durchlaufen und stattdessen wird "Alles ok" angezeigt.

Wie kann man bei "open" den Fehler abfangen?

Crian: Code-Tags\n\n

<!--EDIT|Crian|1133779220-->

Du hast schon richtig die Möglichen Fehler bei open() abgefangen.
Es gab auch keine.

Dein Aufruf von open() öffnet aber gar keine Datei, er öffnet stattdessen eine Pipe an das Kommando xargs. Dessen mögliche Fehler sind von hier ausgesehen zu obskur, als daß ich Dir da mehr zu sagen könnte, kenne micht mit xargs nicht aus.

Also, wie kann man die Fehler bei xargs abfangen?

Ok, danke. Ich werde dann wohl den Workaround über die Include-Datei nehmen müssen.

Nur falls es interessiert noch etwas zu xargs:
xargs wird hier verwendet um bei der Übergabe der Kommandozeilenargumente (Dateien) keine Probleme bei Dateinamen mit Leerzeichen zu bekommen. In Perl wird an die Dateien \0 angehängt, xargs -0 liest die eigenen Argumente von STDIN und teilt sie bei jedem \0 auf.

Würde man einfach die Dateinamen mit Blank separiert an das tar übergaben (z.B. system("tar czg package.tgz file1 file2 ...")) würden die Dateinamen mit Blank nicht funktionieren. Aber das umgeht man ja mit der include-Datei ebenfalls.

Oder man baut anstelle dem @filelist array einen String, z.B.

$filelist .= "'$filelist' "; # Hochkommata verwenden wegen mögl. Blanks

my $exitCode = system("tar czf $patchFile $filelist");

sollte auch gehen.

oder man fragt auch bei close(...) auf moegliche fehler ab... da muesstest du ihn eigentlich mitbekommen...

oder einfach Archive::Tar verwenden.