Olá Peritos,

Estou a newbie perl, Apenas curioso para saber como fazer o seguinte na perl.
Suponho que tenho um arquivo txt como abaixo. quando se funda "* Principais Iniciar"
Em seguida, vá para "* Fim principal ,,,,,,,," patteren e apenas coletar o número a partir da linha anterior do "* Fim principal ,,,,,,," padrão. No meu caso é 5. Então inicie excuting normalmente a partir da "* Principais Iniciar" posição

Na sequência é a imagem .. Eu não quero criar nenhum arquivo temporário também ..
Arquivo de entrada:

*Init End
*Main Start
*Comment Reset Timers
000000,0000,0,0,0,0,0,1,0
000000,0000,0,0,0,0,1,1,0 
*Comment Control Frame at 1.04596 ms
000000,0400,0,0,0,0,1,0,1
2418A4,0000,0,1,3,0,0,0,0 
049C00,0000,0,0,2,0,0,0,0
*Comment Control Frame at 1.04673 ms
*Comment Control Frame at
000002,0000,0,0,0,0,1,0,1
241002,0000,0,1,3,0,0,0,0
000100,0000,0,0,2,0,0,0,0
*Comment Control Frame at
000004,0000,0,0,0,0,1,0,1
241002,0000,0,1,3,0,0,0,0
000000,0000,0,0,2,0,0,0,0
*Comment Frame 13 at ** us,,,,,,,,
000005,7E3D,0,0,0,0,1,0,1
*Main End,,,,,,,,

*Init End
*Main Start
 repeat(5);
process all lines as usual here.

............
*Main End,,,,,,,,,

 if(m/^\*/){
              print "//", $_;
              next;
    }

Basic Algorithm of my programme need :
1. If "*Main Start" pattern found go to line where Pattern matches "*Main end".
2. Get the previous line. and get the value of the first field.
3. Return to "*Main start" position again. & Print repeat(that number) : in my case it is 5 :
4. stop/next;

Oi amigos existe qualquer maneira de fazê-lo. Pls help ..

Obrigado

Não dependem de mim, eu preciso voltar a ser o meu dia de emprego em breve.

Há várias maneiras de fazer isso, obviamente. O antiquado variante seria para lembrar a linha anterior e imprimir o que quando você ver o terminador. A realidade brutal Perl abordagem seria a mastigar fazendo barulho todo o arquivo e substituir tudo com uma string vazia excepto a linha antes da terminação. Há um no Perl FAQ sobre isso; perlfaq6 e em torno de questões relacionadas com deslocamento. (A pergunta sobre a C observações mais baixo da página tem algumas sugestões, também.)

Mas a "linha anterior" solução é absolutamente a mais simples, neste caso, se você não tem outras exigências.

perl -ne 'BEGIN { $matching = 0; }
  $matching = 1 if (m/^\*Main Start/);
  next unless $matching;
  print $prev if (defined $prev && m/^\*Main End/);
  $prev = $_'

Graças Era um lote para a sua gentileza .. I ll tentar sua maneira mencionado ..

Acho que não tenham sido capturados corretamente todos os seus requisitos, mas pelo menos é um começo. Se estou autorizado a adivinhar, o que seria mais fácil é recolher a saída em uma variável e imprimi-la depois de ter visto * Fim principal e impressas fora da linha, que imediatamente precedeu.

Tentei quase todos maneira utilizando próximo, refazer e último comando em perl , Mas eu não posso obter estas sintaxe corretamente no perl. Sei que a sua fácil, mas eu ainda cant encontrar a forma eficiente e utilizando ao mesmo tempo próxima declaração em perl.

Estou tentando fazer a follwoing em perl

nawk ' {
        if($0 ~ /^\*Main Start/){
	     while( $0 !~ /^\*Main End/){
	     print $0;
             getline;
        }
     }
 } ' my.txt

TMP=/tmp/my_tmp$$
nawk '
/\*Main End/{
split(x,arr,",")
print "Loop  " arr[1]
};
{x=$0
}
' my.txt > $TMP 

nawk '{
if($0 ~ /^Loop/){
    loop = $2 
    next;
  }
if($0 ~ /^\*Main Start/){
     printf "\nrepeat ("
     print  loop

} ' $TMP $my.txt