Início / unix / Perguntas / 492886
Accepted
Gustavo Reis
Asked: 2019-01-07 13:24:53 +0800 CST

Como evitar a destruição de links simbólicos, usando Perl quando substituir por sed regex?

  • 772

Com base em Como evito que o sed -i destrua links simbólicos? , mas eu uso Perl.

Eu tentei no meio de todas essas perguntas:

Foi sem sucesso. Aqui está a pequena e simples amostra:

#!/bin/perl
use strict; use warnings;

while (<>) 
{

  ## For all lines, replace all occurrences of #5c616c with another colour
  s/#5c616c/#8bbac9/g $(readlink -e -- "<>")

  ## $(readlink -e -- "<>") is similar to --in-place --follow-symlinks

  ## Print the line
  print;
}
sed perl

1 respostas

  1. Best Answer

    O readlink -ecomando não é portátil, portanto, não deve ser confiável.

    $ cat input
Like quills upon the fretful porpentine.
$ ln -s input alink
$ readlink -e alink
readlink: illegal option -- e
usage: readlink [-n] [file ...]

    Dentro do código Perl, em vez disso, substitua os links pelo nome do arquivo para o qual ele aponta usando a função Perl ereadlink , em seguida, faça um loop sobre a entrada como de costume.

    $ perl -i -ple 'BEGIN{for(@ARGV){ $_=readlink if -l }} tr/A-Z/a-z/' alink

    alinkainda é um link simbólico e o conteúdo de inputfoi modificado:

    $ perl -E 'say readlink "alink"'
input
$ cat input
LIKE QUILLS UPON THE FRETFUL PORPENTINE.

    Dentro de um script Perl, isso pode ser algo como

    #!/usr/bin/env perl
use strict;
use warnings;

for my $arg (@ARGV) {
    $arg = readlink $arg if -l $arg;
}

# in-place edit with backup filename, perldoc -v '$^I'
$^I = ".whoops";

while (readline) {
    s/#5c616c/#8bbac9/g;
    print;
}

    embora possa ser necessário List::Util::uniqou similar para evitar modificar o mesmo nome de arquivo duas ou mais vezes, se a entrada contiver nomes de arquivo duplicados.

    • 3

relate perguntas