¿Hay alguna manera de hacer perl -i no clobber symlinks?

Un amigo mío señala que si haces:

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

cuando "somefile" es en realidad un enlace simbólico, perl hace exactamente lo que dicen los documentos:

Para ello, renombra el archivo de entrada, abre el archivo de salida con el nombre original y selecciona ese archivo de salida como predeterminado para las declaraciones print (). La extensión, si se proporciona, se utiliza para modificar el nombre del archivo antiguo para hacer una copia de seguridad [...]

Lo que da como resultado un nuevo enlace simbólico "somefile.bak" que apunta al archivo real sin cambios, y un nuevo archivo regular "somefile" con los cambios.

En muchos casos, seguir el enlace simbólico sería el comportamiento deseado (incluso si deja ambigua la ubicación correcta del archivo .bak). ¿Hay una manera simple de hacer esto que no sea probar los enlaces simbólicos en un contenedor y manejar el caso adecuadamente?

( sedhace lo mismo, por lo que vale).

Me pregunto si la pequeña spongeutilidad de propósito general ("absorber la entrada estándar y escribir en un archivo") de moreutils será útil en este caso y si seguirá el enlace simbólico.

El autor describe sponge así:

Aborda el problema de editar archivos en el lugar con las herramientas de Unix, es decir, si solo redirige la salida al archivo que está tratando de editar, la redirección surte efecto (bloqueando el contenido del archivo) antes del primer comando en la tubería se pone a leer el archivo. A los conmutadores les gusta sed -iy perl -ievitan esto, pero no todos los comandos que desee usar en una tubería tienen esa opción, y de todos modos no puede usar ese enfoque con tuberías de comandos múltiples.

Normalmente uso una esponja como esta:

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

Si sabe a somefileciencia cierta que es un enlace simbólico, puede proporcionar explícitamente la ruta completa al archivo con lo siguiente:

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

De esa manera, el enlace simbólico original permanece intacto ya que el reemplazo ahora se realiza directamente con el archivo original.

Si se trata de un solo archivo que, el comando se vería de la siguiente manera:

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

La solución entonces es la siguiente:

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

Esto maneja enlaces simbólicos y no simbólicos.

Si se trata de una cantidad arbitrariamente grande de archivos, el comando se vería de la siguiente manera:

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

La solución entonces es la siguiente:

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

Esto maneja enlaces simbólicos y no simbólicos.

La advertencia readlink no es un comando estándar, por lo que su presencia, sus argumentos y su funcionalidad varían según el sistema, así que asegúrese de verificar su documentación. Por ejemplo, algunas implementaciones tienen -f(que también podría usar aquí), pero no -e, algunas tampoco. busyboxSe readlink -fcomporta como GNU readlink -e. Y algunos sistemas tienen un realpathcomando en lugar de readlinkque generalmente se comporta como GNU readlink -f.

Tenga en cuenta que con GNU readlink -e, los enlaces simbólicos que no se pueden resolver a un archivo existente se eliminan silenciosamente.