Existe-t-il un moyen de faire des liens symboliques perl -i pas clobber?

Un de mes amis fait remarquer que si vous le faites:

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

quand "somefile" est en fait un lien symbolique, perl fait exactement ce que les docs disent qu'il fera:

Il le fait en renommant le fichier d'entrée, en ouvrant le fichier de sortie par le nom d'origine et en sélectionnant ce fichier de sortie par défaut pour les instructions print (). L'extension, si fournie, permet de modifier le nom de l'ancien fichier pour en faire une copie de sauvegarde [...]

Ce qui entraîne un nouveau lien symbolique "somefile.bak" pointant vers le fichier réel inchangé, et un nouveau fichier régulier modifié "somefile" avec les modifications.

Dans de nombreux cas, suivre le lien symbolique serait le comportement souhaité (même s'il laisse ambigu l'emplacement correct du fichier .bak). Existe-t-il un moyen simple de le faire autre que de tester les liens symboliques dans un wrapper et de gérer le cas de manière appropriée?

( sedfait la même chose, pour ce que ça vaut.)

Je me demande si le petit spongeutilitaire à usage général ("absorber l'entrée standard et écrire dans un fichier") de moreutils sera utile dans ce cas et s'il suivra le lien symbolique.

L'auteur décrit sponge comme ceci:

Il résout le problème de l'édition de fichiers sur place avec les outils Unix, à savoir que si vous redirigez simplement la sortie vers le fichier que vous essayez d'éditer, la redirection prend effet (encombrant le contenu du fichier) avant la première commande du pipeline se met à lire le fichier. Les commutateurs aiment sed -iet perl -icontournent cela, mais pas toutes les commandes que vous voudrez peut-être utiliser dans un pipeline ont une telle option, et vous ne pouvez pas utiliser cette approche avec des pipelines à commandes multiples de toute façon.

J'utilise normalement une éponge un peu comme ça:

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

Si vous savez somefilepertinemment qu'il s'agit d'un lien symbolique, vous pouvez explicitement fournir le chemin d'accès complet au fichier avec les éléments suivants:

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

De cette façon, le lien symbolique d'origine reste intact puisque le remplacement est désormais effectué directement avec le fichier d'origine.

Si vous avez affaire à un seul fichier, la commande se présente comme suit:

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

La solution est alors la suivante:

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

Cela gère à la fois les liens symboliques et les liens non symboliques.

Si vous traitez avec un nombre arbitrairement élevé de fichiers, la commande se présente comme suit:

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

La solution est alors la suivante:

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

Cela gère à la fois les liens symboliques et les liens non symboliques.

Caveat readlink n'est pas une commande standard, donc sa présence, ses arguments et ses fonctionnalités varient selon le système, alors assurez-vous de vérifier votre documentation. Par exemple, certaines implémentations ont -f(que vous pouvez également utiliser ici), mais pas -e, d'autres non plus. busybox« s readlink -fse comporte comme GNU readlink -e. Et certains systèmes ont une realpathcommande au lieu de readlinklaquelle se comporte généralement comme GNU readlink -f.

Attention avec GNU readlink -e, les liens symboliques qui ne peuvent pas être résolus vers un fichier existant sont supprimés en silence.