Remover certos campos de uma linha

3

Eu tenho as seguintes linhas em um arquivo:

Modified folders: html/project1/old/dev/vendor/symfony/yaml/Tests/bla.yml
Modified folders: html/port5/.DS_Store
Modified folders: html/trap/dev8/.DS_Store
Modified folders: html/bla3/test/appl/.DS_Store
Modified folders: html/bla4/pro1/app/bla/Api2.php
Modified folders: html/bla10/dev/appl/language/.DS_Store
Modified folders: html/bla11/dev/appl/language/abc.txt

Esta é basicamente a saída de rsync . Eu gostaria de listar todas as linhas do arquivo até 3 lugares de diretório, como

Modified folders: html/project1/old
Modified folders: html/port5
Modified folders: html/trap/dev8
Modified folders: html/bla3/test
Modified folders: html/bla4/pro1
Modified folders: html/bla10/dev
Modified folders: html/bla11/dev

Alguém pode me fornecer algum comando ou script de shell para fazer o mesmo?

    
por john deo 22.01.2018 / 11:39

3 respostas

6

Talvez assim:

$ sed -r 's|/[^/]*$||' file | sed -r 's|([^/]*/?[^/]*/?[^/]*).*||'
Modified folders: html/project1/old
Modified folders: html/port5
Modified folders: html/trap/dev8
Modified folders: html/bla3/test
Modified folders: html/bla4/pro1
Modified folders: html/bla10/dev
Modified folders: html/bla11/dev

Ou você pode fazer a segunda parte com cut :

sed -r 's|/[^/]*$||' file | cut -d '/' -f 1,2,3

Notas

  • -r use ERE
  • s|old|new| replace old com new
  • [^/]* qualquer número de caracteres que não são /
  • $ fim da linha
  • /? zero ou um /
  • (pattern) save pattern para referência posterior com
  • .* qualquer número de caracteres
  • | (sem aspas) shell pipe - passa a saída do comando do lado esquerdo para o comando do lado direito
  • cut -d '/' use / como delimitador
  • -f 1,2,3 imprime os três primeiros campos
por Zanna 22.01.2018 / 11:51
4

O seguinte script irá (quase) fazer o que você pede.

#!/usr/bin/env perl

use strict;
use warnings;

while(<DATA>) {
    s!^(Modified\s+folders:\s+)((?:[^/]+/){1,3}).*?$!$1$2!;
    print;
}

__DATA__
Modified folders: html/project1/old/dev/vendor/symfony/yaml/Tests/bla.yml
Modified folders: html/port5/.DS_Store
Modified folders: html/trap/dev8/.DS_Store
Modified folders: html/bla3/test/appl/.DS_Store
Modified folders: html/bla4/pro1/app/bla/Api2.php
Modified folders: html/bla10/dev/appl/language/.DS_Store
Modified folders: html/bla11/dev/appl/language/abc.txt

Ele lê cada linha de entrada, pega alguns valores dela (my means of a regex), substitui a linha com os valores escolhidos e finalmente imprime a linha modificada (para STDOUT).

Saída

Modified folders: html/project1/old/
Modified folders: html/port5/
Modified folders: html/trap/dev8/
Modified folders: html/bla3/test/
Modified folders: html/bla4/pro1/
Modified folders: html/bla10/dev/
Modified folders: html/bla11/dev/

Se escrevermos o regex em uma única linha:

s!^(Modified\s+folders:\s+)((?:[^/]+/){1,3}).*?$!$1$2!;

então parece um pouco assustador, mas na verdade é bem simples. O operador básico é o operador de substituição s/// de Perl.

s/foo/bar/;

substituirá todas as ocorrências de foo por bar . s nos permite alterar o delimitador de / para algo diferente. Eu usei um ! aqui, então poderíamos escrever também

s!foo!bar!;

O ! não não significa not , é apenas um caractere arbitrário aqui. sLfooLbarL; também funcionaria. Fazemos isso porque, se usarmos o padrão / , precisaríamos escapar do / dentro dos parâmetros (o que é conhecido como sintaxe do palito). Considere que queremos substituir o caminho /old/path por /new/path . Agora compare:

s/\/old\/path/\/new\/path/; # escaping of / needed
s!/old/path!/new/path!;     # no escaping of / needed (but of ! if we had one in the text)

Também podemos aplicar o modificador x ao s/// . Ele permite espaços em branco arbitrários (até mesmo novas linhas e comentários) no padrão (o lado esquerdo) para melhorar a leitura. Agora o loop pode ser escrito como:

while(<DATA>) {
    s!^                         # match beginning of line
      (Modified\s+folders:\s+)  # the word "Modified", followed by 1 ore more 
                                # whitespace \s+,
                                # the literal "folders:", also followed by 1 or 
                                # more whitespace.
                                # We capture that match in $1 (that's why we have 
                                # parens around it).
      (                         # begin of 2nd capture group (in $2)
        (?:                     #   begin a group that is NOT captured (because of the "?:"
         [^/]+/                 #   one or more characters that are not a slash followed by a slash
        )                       #   end of group
        {1,3}                   #   this group should appear one to three times
      )                         # close capture group $2, i.e. remember the 1-3x slash thing
      .*?$                      # followed by arbitrary characters up to the end of line
     !$1$2!x;                   # Replace the line with the two found captures $1 and $2, i.e.
                                # with the text "Modified folders:" and the 1-3x slash thing.
    print;
}

O "script" completo também pode ser escrito como um verso:

perl -pe 's!^(Modified\s+folders:\s+)((?:[^/]+/){1,3}).*?$!$1$2!x;' file

Atualizar

Acabei de perceber que a string Modified folders: também pode ser vista como um componente do caminho. Então o padrão pode ser simplificado para

perl -pe 's!^((?:[^/]+/){1,3}).*?$!$1!;' file
    
por PerlDuck 22.01.2018 / 13:12
3
grep -oP '^.*?(/.*?){0,2}(?=/)'

uma breve explicação da regexp dark usada:

  • ^... i o começo da linha
  • .*? a seq. de chars (mas apenas a quantidade necessária) para coincidir com o pré-caminho
  • /.*?){0,2} 0, 1 ou 2 diretórios
  • (?=/) expressão antecipada - seguida por um / que não está incluído
por JJoao 22.01.2018 / 15:57