Existe uma maneira de fazer com que perl -i não desista de links simbólicos?

Um amigo meu ressalta que, se você fizer:

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

quando "somefile" é na verdade um link simbólico, o perl faz exatamente o que os documentos dizem que fará:

Isso é feito renomeando o arquivo de entrada, abrindo o arquivo de saída pelo nome original e selecionando esse arquivo de saída como o padrão para instruções print (). A extensão, se fornecida, é usada para modificar o nome do arquivo antigo e fazer uma cópia de backup.

O que resulta em um novo link simbólico "somefile.bak" apontando para o arquivo real inalterado e um novo arquivo regular alterado "somefile" com as alterações.

Em muitos casos, seguir o link simbólico seria o comportamento desejado (mesmo que ele deixe o local correto do arquivo .bak ambíguo). Existe uma maneira simples de fazer isso, além de testar links simbólicos em um wrapper e manipular o caso adequadamente?

( sedfaz a mesma coisa, pelo que vale a pena.)

Gostaria de saber se o pequeno spongeutilitário de uso geral ("absorver entrada padrão e gravar em um arquivo") do moreutils será útil nesse caso e se seguirá o link simbólico.

O autor descreve sponge assim:

Ele soluciona o problema de editar arquivos no local com as ferramentas Unix, a saber, se você apenas redirecionar a saída para o arquivo que está tentando editar, o redirecionamento entrará em vigor (derrotando o conteúdo do arquivo) antes do primeiro comando no pipeline começa a ler o arquivo. Switches como sed -ie perl -i resolvem isso, mas nem todos os comandos que você deseja usar em um pipeline têm essa opção, e você não pode usar essa abordagem com pipelines de vários comandos de qualquer maneira.

Eu normalmente uso esponja um pouco assim:

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

Se você sabe que somefileé um link simbólico, é possível fornecer explicitamente o caminho completo do arquivo com o seguinte:

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

Dessa forma, o link simbólico original permanece intacto, pois a substituição agora é feita diretamente com o arquivo original.

Se você estiver lidando com um único arquivo, o comando terá a seguinte aparência:

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

A solução é a seguinte:

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

Isso lida com links simbólicos e não simbólicos.

Se você estiver lidando com um número arbitrariamente grande de arquivos, o comando terá a seguinte aparência:

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

A solução é a seguinte:

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

Isso lida com links simbólicos e não simbólicos.

A advertência readlink não é um comando padrão; portanto, sua presença, seus argumentos e sua funcionalidade variam de acordo com o sistema; portanto, verifique sua documentação. Por exemplo, algumas implementações possuem -f(que você também pode usar aqui), mas não -e, outras também. busyboxé readlink -fse comporta como GNU readlink -e. E alguns sistemas têm um realpathcomando em vez do readlinkqual geralmente se comporta como o GNU readlink -f.

Cuidado com o GNU readlink -e, links simbólicos que não podem ser resolvidos para um arquivo existente são removidos silenciosamente.