Início / unix / Perguntas / 555084
Accepted
nath
Asked: 2019-12-02 12:24:07 +0800 CST

Bash - extrai um bloco de código recuado em um novo arquivo

  • 772

Eu tenho um monte de arquivos LilyPond no seguinte formato:

\score {
  \new StaffGroup = "" \with {
    instrumentName = \markup { \bold \huge \larger "1." }
  }
  <<
    \new Staff = "celloI" \with { midiInstrument = #"cello" }

    \relative c {
      \clef bass
      \key c \major
      \time 3/4

      \tuplet 3/2 4 {
        c8(\downbow\f b c e g e)
      } c'4                                         | %01
      \tuplet 3/2 4 {c,8( b c e f a) } c4           | %02
      \tuplet 3/2 4 { g,8( d' f g f d) } b'4        | %03
    }
  >>
  \layout {}
  \midi {}
}

Como alguém extrairia o \relative c {...}bloco em um novo arquivo, então ficaria assim:

\relative c {
  \clef bass
  \key c \major
  \time 3/4

  \tuplet 3/2 4 {
    c8(\downbow\f b c e g e)
  } c'4                                         | %01
  \tuplet 3/2 4 {c,8( b c e f a) } c4           | %02
  \tuplet 3/2 4 { g,8( d' f g f d) } b'4        | %03
}

Uma correção do recuo não é necessariamente necessária neste caso. Isso seria uma tarefa awkou ? csplitComo seria?

awk text-processing

1 respostas

  1. Best Answer

    Você pode querer pensar sobre o que fazer com a saída, como usar o nome da entrada com uma extensão para a saída. Modificar o recuo não deve ser difícil.

    Esse script lista qualquer número de arquivos nomeados na linha de comando e qualquer número desses blocos em um arquivo.

    Esta é a saída da sua amostra:

    Paul--) ./LilyPond Lily.txt
    \relative c {
      \clef bass
      \key c \major
      \time 3/4

      \tuplet 3/2 4 {
        c8(\downbow\f b c e g e)
      } c'4                                         | %01
      \tuplet 3/2 4 {c,8( b c e f a) } c4           | %02
      \tuplet 3/2 4 { g,8( d' f g f d) } b'4        | %03
    }

    Este é o roteiro.

    Paul--) cat LilyPond
#! /bin/bash

function Relative {

    local AWK='''
BEGIN { reRel = "[\\\\]relative[ ]+c"; }
function cntBrace (tx, Local, n) {
    n += gsub ("{", "{", tx);
    n -= gsub ("}", "}", tx);
    return (n);
}
$0 ~ reRel || nBrace > 0 { print; nBrace += cntBrace( $0); }
'''
    awk -f <( echo "${AWK}" ) "${@}"
}

#### Script Body Starts Here.

    Relative "${@:--}"
    • 2

relate perguntas