Início / unix / Perguntas / 534300
Accepted
HappyFace
Asked: 2019-08-08 00:37:12 +0800 CST

Remover valores do arquivo separado por NUL

  • 772

Eu tenho uma matriz de valores vque quero remover do arquivo f. fé delimitado por NUL. Como eu prossigo? Tentei usar sd, mas não funcionou .

Exemplo:

Eu tenho este arquivo:

# cat -v $attic
^@this is 1.
this is 2.
this is 3.
^@hi
^@blue boy

E esta variável $i:

# cat -v <<<"$i"
this is 1.
this is 2.
this is 3.

Eu quero um comando que remova $idesse arquivo, resultando em:

^@hi
^@blue boy

Eu tentei FROM="$i" perl -pi -e 's/\0\Q$ENV{FROM}\E//g' "$attic", mas não funciona se $ifor multilinha. Eu tentei, FROM="$i" perl -pi0 -e 's/\0\Q$ENV{FROM}\E//g' "$attic"mas isso não fez nada.

text-processing perl

2 respostas

  1. Best Answer

    Desde que você mencionou zsh, você poderia fazer:

    zmodload zsh/mapfile
mapfile[$attic]=${(pj:\0:)"${(0@)mapfile[$attic]}":#$i}
    • $mapfileno zsh/mapfilemódulo há um array associativo especial que mapeia os nomes dos arquivos para seu conteúdo.
    • "${(0@)var}": divide $varem NULs (e com @aspas dentro de aspas preserva elementos vazios como "$@").
    • ${array:#pattern}. remove os elementos que correspondem ao padrão. Aqui o conteúdo de $ié tomado literalmente, você precisa $~ique ele seja tomado como padrão (ou habilite a globsubstopção).
    • ${(j:string:)array}: une os elementos do array com string. Com p, \0é convertido para NUL. (observe que o 0sinalizador de expansão de parâmetro acima também pode ser escrito ps:\0:).

    Você pode obter algo semelhante perlcom:

    FROM=$i perl -0lni -e 'print if $_ ne $ENV{FROM}' -- "$attic"

    A diferença é que perladicionará um NUL no final se já não houver um (e os problemas usuais com -i(quebrar links, não preservar todos os metadados ...)).

    Um equivalente mais próximo seria:

    FROM=$i perl -0777 -F'\0' -pi -e '
  $_ = join "\0", grep {$_ ne $ENV{FROM}} @F' -- "$attic"

    Sua

    FROM="$i" perl -pi0 -e 's/\0\Q$ENV{FROM}\E//g' "$attic"

    não funciona porque:

    • in -pi0: o 0é tomado como argumento para -i(o sufixo do nome do arquivo de backup)
    • mesmo se você tivesse escrito -0pi, isso não poderia ter funcionado, pois diz perlpara processar registros terminados em NUL , então o registro ( $_) terá o NUL no final, não no início. Use -0777for perlpara processar a entrada como um registro contendo toda a entrada.
    • 2

  2. Com base em seus dados de entrada e supondo que seu arquivo seja pequeno o suficiente para caber na memória, isso pode funcionar para você:

    $ export i
$ perl -0777 -pe 's/\Q$ENV{i}\E\n?//g' file 
hi
blue boy

    As -0777causas perlpara slurp o arquivo inteiro na memória. A $ENV{var}é a maneira do perl de acessar variáveis ​​de ambiente exportadas. Assim $ENV{i}obterá o valor da variável exportada i. O s/old/new/gsubstituirá oldcom newglobalmente. O \Qand \Egarante que o padrão não seja interpretado como uma expressão regular. Finalmente, o \n?é necessário, pois o shell comerá novas linhas das extremidades das variáveis ​​ao atribuir a saída de uma substituição de comando (por exemplo var=$(printf 'foo\n'), ), portanto, $ipode não incluir a nova linha final.

    Observe que isso também corresponderá a substrings. Portanto, se ifor fooe seu arquivo contiver foolish, o fooserá removido deixando ish. Se você não quiser isso, você pode usar:

    perl -0777 -pe 's/\Q$ENV{i}\E(\n|\b)//g' file

    Testando no seu exemplo (depois de substituir ^@por \0):

    $ cat -v file
^@this is 1.
this is 2.
this is 3.
^@hi
^@blue boy

$ export i="$(printf 'this is 1.\nthis is 2.\nthis is 3.\n')"

$ perl -0777 -pe 's/\Q$ENV{i}\n?\E//g' file 
hi
blue boy

    Claro, isso pressupõe que $inão há nenhuma nova linha à direita. Eu não posso dizer se isso acontece ou não, pois cat <<<"$i"adicionaria um, mesmo que não.

    Se você precisar fazer isso para uma matriz de shell, você pode fazer:

    for i in "${foo[@]}"; do 
    export i
    perl -0777 -i -pe 's/\b\Q$ENV{i}\E(\n|\b)//g' file 
done

    Importante : observe o-ino exemplo acima. Isso edita o arquivo no local, então faça backup antes de testar.

    • 1

relate perguntas