Bonjour experts,

Je suis débutant à perl, Tout simplement curieux de savoir comment effectuer les opérations suivantes dans perl.
supposons que j ai un fichier txt comme ci-dessous. quand il fonde "* Main Start"
Ensuite, allez à "* Principale Fin ,,,,,,,," patteren et de collecter le numéro de la ligne précédente de "* Principale Fin ,,,,,,," modèle. Dans mon cas, il est de 5. Puis commencez excuting normalement de la "* Main Start" position

Voici la photo .. Je ne voulez pas créer de fichier temporaire aussi ..
Fichier d'entrée:

*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;

Salut les amis, il est de toute façon de le faire. Pls help ..

Merci

Ne dépendent pas de moi, j'ai besoin d'aller à mon poste de jour bientôt.

Il ya un certain nombre de moyens pour ce faire, évidemment. L'ancienne variante serait de se souvenir de la ligne et les imprimer quand vous voyez que le terminateur. La réalité brute Perl approche serait de boire l'ensemble du dossier et de substituer le tout avec une chaîne vide, sauf la ligne avant le terminateur. Il ya une heure dans le Perl FAQ à ce sujet; perlfaq6 et faites défiler autour de questions connexes. (La question sur les commentaires C plus bas sur la page a quelques pistes, aussi.)

Mais la "ligne" est tout à fait la solution la plus simple dans ce cas, si vous n'avez pas d'autres exigences.

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

Merci beaucoup pour votre gentillesse ère .. I ll tenter votre chemin .. mentionné

Je ne pense pas que j'ai capturé correctement à toutes vos exigences, mais au moins c'est un début. Si je suis autorisé à le deviner, ce qui serait plus facile de récupérer la sortie est dans une variable et de l'imprimer après avoir vu Fin * principale et imprimés de la ligne qui a immédiatement précédé.

J'ai essayé presque tous les cours en utilisant prochain, et de refaire la dernière commande en perl Mais je ne peux pas obtenir ces syntaxe correcte dans perl. Je sais facile, mais je cant trouver le moyen efficace et tout en utilisant la prochaine déclaration perl.

J'essaie de faire de la follwoing 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