Esiste un modo per rendere i collegamenti simbolici perl -i non clobber?

Un mio amico sottolinea che se lo fai:

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

quando "somefile" è in realtà un collegamento simbolico, perl fa esattamente ciò che i documenti dicono che farà:

Lo fa rinominando il file di input, aprendo il file di output con il nome originale e selezionando quel file di output come predefinito per le istruzioni print (). L'estensione, se fornita, viene utilizzata per modificare il nome del vecchio file per creare una copia di backup [...]

Il risultato è un nuovo link simbolico "somefile.bak" che punta al file reale invariato e un nuovo file normale "somefile" modificato con le modifiche.

In molti casi, seguire il collegamento simbolico sarebbe il comportamento desiderato (anche se lascia ambigua la posizione corretta del file .bak). Esiste un modo semplice per farlo oltre a testare i symlink in un wrapper e gestire il caso in modo appropriato?

( sedfa la stessa cosa, per quello che vale.)

Mi chiedo se la piccola spongeutility generica (" assorbi input standard e scrivi su un file") da moreutils sarà utile in questo caso e se seguirà il link simbolico.

L'autore descrive sponge così:

Risolve il problema della modifica dei file sul posto con gli strumenti Unix, vale a dire che se si reindirizza l'output sul file che si sta tentando di modificare, il reindirizzamento ha effetto (bloccando il contenuto del file) prima del primo comando nella pipeline passa alla lettura del file. Cambia come sed -ie perl -iaggira questo, ma non tutti i comandi che potresti voler usare in una pipeline hanno una tale opzione e non puoi comunque usare questo approccio con pipeline a più comandi.

Normalmente uso la spugna un po 'come questa:

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

Se sai per certo che si somefiletratta di un collegamento simbolico, puoi fornire esplicitamente l'intero percorso del file con quanto segue:

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

In questo modo, il collegamento simbolico originale rimane intatto poiché la sostituzione viene ora eseguita direttamente con il file originale.

Se hai a che fare con un singolo file, il comando dovrebbe apparire come segue:

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

La soluzione quindi è la seguente:

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

Gestisce sia i symlink che i non symlink.

Se hai a che fare con un numero arbitrariamente elevato di file, il comando sarà simile al seguente:

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

La soluzione quindi è la seguente:

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

Gestisce sia i symlink che i non symlink.

Caveat readlink non è un comando standard, quindi la sua presenza, i suoi argomenti e le sue funzionalità variano a seconda del sistema, quindi assicurati di controllare la tua documentazione. Ad esempio, alcune implementazioni hanno -f(che è possibile utilizzare anche qui), ma non -ealtre. busyboxsi readlink -fcomporta come GNU readlink -e. E alcuni sistemi hanno un realpathcomando invece readlinkche generalmente si comporta come GNU readlink -f.

Attenzione che con GNU readlink -e, i collegamenti simbolici che non possono essere risolti in un file esistente vengono rimossi silenziosamente.