Gibt es eine Möglichkeit, perl -i nicht zum Clobbern von Symlinks zu machen?

Ein Freund von mir weist darauf hin, dass, wenn Sie dies tun:

perl -pi.bak -e 's/foo/bar/' somefile

Wenn "somefile" tatsächlich ein Symlink ist, macht Perl genau das, was die Dokumentation sagt:

Dazu wird die Eingabedatei umbenannt, die Ausgabedatei nach dem ursprünglichen Namen geöffnet und diese Ausgabedatei als Standard für print () -Anweisungen ausgewählt. Die Erweiterung, falls angegeben, wird verwendet, um den Namen der alten Datei zu ändern und eine Sicherungskopie zu erstellen [...]

Was dazu führt, dass ein neuer Symlink "somefile.bak" auf die unveränderte reale Datei verweist und eine neue, geänderte reguläre Datei "somefile" mit den Änderungen.

In vielen Fällen ist das Verfolgen des Symlinks das gewünschte Verhalten (auch wenn der korrekte Speicherort der .bak-Datei nicht eindeutig ist). Gibt es eine einfache Möglichkeit, dies zu tun, als in einem Wrapper nach Symlinks zu suchen und den Fall angemessen zu behandeln?

( sedTut das Gleiche, für das, was es wert ist.)

Ich frage mich, ob das kleine spongeAllzweck-Dienstprogramm ("Standardeingabe aufsaugen und in eine Datei schreiben") von moreutils in diesem Fall hilfreich ist und ob es dem Symlink folgt.

Der Autor beschreibt das sponge so:

Es behebt das Problem des direkten Bearbeitens von Dateien mit Unix-Tools, dh, wenn Sie nur die Ausgabe in die Datei umleiten, die Sie bearbeiten möchten, wird die Umleitung vor dem ersten Befehl in der Pipeline wirksam kommt zum Lesen aus der Datei. Schalter wie sed -iund umgehen perl -idies, aber nicht jeder Befehl, den Sie in einer Pipeline verwenden möchten, verfügt über eine solche Option, und Sie können diesen Ansatz ohnehin nicht für Pipelines mit mehreren Befehlen verwenden.

Normalerweise benutze ich einen Schwamm wie diesen:

sed '...' file | grep '...' | sponge file

Wenn Sie wissen, dass somefilees sich um einen Symlink handelt, können Sie den vollständigen Pfad zur Datei wie folgt angeben:

perl -pi.bak -e 's/foo/bar/' $(readlink somefile)

Auf diese Weise bleibt der ursprüngliche Symlink erhalten, da die Ersetzung jetzt direkt mit der ursprünglichen Datei erfolgt.

Wenn es sich um eine einzelne Datei handelt, sieht der Befehl folgendermaßen aus:

perl -i -pe'...' -- "$qfn"

Die Lösung lautet dann:

perl -i -pe'...' -- "$( readlink -e -- "$qfn" )"

Dies behandelt sowohl Symlinks als auch Nicht-Symlinks.

Wenn Sie mit einer beliebig großen Anzahl von Dateien arbeiten, sieht der Befehl folgendermaßen aus:

... | xargs -r perl -i -pe'...' --

Die Lösung lautet dann:

... | xargs -r readlink -ze -- | xargs -r0 perl -i -pe'...' --

Dies behandelt sowohl Symlinks als auch Nicht-Symlinks.

Warnung readlink ist kein Standardbefehl, daher variieren das Vorhandensein, die Argumente und die Funktionalität des Befehls je nach System. Überprüfen Sie daher unbedingt Ihre Dokumentation. Zum Beispiel haben einige Implementierungen -f(die Sie auch hier verwenden könnten), aber nicht -e, einige auch nicht. busybox‚s readlink -fverhält sich wie GNU readlink -e. Und einige Systeme haben einen realpathBefehl, readlinkder sich im Allgemeinen wie GNU verhält readlink -f.

Beachten Sie, dass mit GNU readlink -eSymlinks, die nicht in eine vorhandene Datei aufgelöst werden können, stillschweigend entfernt werden.