Comment différencier un mot d'un autre ?

Bonjour,

C'est une question qui me semble simple mais je n'arrive pas à m'en sortir.
J'ai besoin de recopier une partie d'un fichier dans un autre. Je pars donc d'un endroit en sélectionnant un mot. Or ce mot en a un identique plus tôt dans le fichier.

Comment puis-je sélectionner le 2ème plutôt que le 1er s'il vous plaît ?

Merci

Une façon simple de répondre au besoin en utilisant un compteur qu'on incrémente si on rencontre le mot désiré, ici 'start'.
Quand le compteur vaut 2, un bloc contient les instructions à exécuter, ici, juste une sortie écran, mais tu pourras y placer le code de sortie vers un fichier.

DATA est un descripteur de fichier qui permet de définir du contenu en fin de script.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

#!/usr/bin/env perl use strict; use warnings; use feature 'say';   my $compteur = 0;   while ( my $record = <DATA> ) { chomp $record; $compteur++ if $record =~ /start/;   if ( $compteur >= 2 ) { # code de sortie vers autre fichier say $record; } }   __DATA__ aaaaaaaaaa bbbbbbbbbb cccccccc start dddddddddd eeeeeeeeee ffffffffff gggggggggg start hhhhhhhhhh iiiiiiiiii jjjjjjjjjj kkkkkkkkkk llllllllll

---

Sortie écran :

Code:

---

1 2 3 4 5 6 7

./copy_file_part.pl gggggggggg start hhhhhhhhhh iiiiiiiiii jjjjjjjjjj kkkkkkkkkk llllllllll

---

OK je vais tester ça et je vous fais un retour.
Merci en tout cas.

Bonsoir,

très bien la version de ptonnerre. :plusser:

Juste pour le fun, une version plus brève:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

use strict; use warnings;   for (1..2) { while (<DATA>) { last if /start/; } } print while <DATA>;   __DATA__ aaaaaaaaaa bbbbbbbbbb cccccccc start dddddddddd eeeeeeeeee ffffffffff gggggggggg start hhhhhhhhhh iiiiiiiiii jjjjjjjjjj kkkkkkkkkk llllllllll

---

Ce qui imprime:

Code:

---

1 2 3 4 5 6 7

$ perl test_start.pl hhhhhhhhhh iiiiiiiiii jjjjjjjjjj kkkkkkkkkk llllllllll

---

A noter cependant que ce script n'imprime que les lignes après le second start (autrement dit pas la ligne avec le second start).

Et, toujours pour le fun, une version encore un peu plus concise:

Code:

---

1 2 3 4 5 6 7 8

use strict; use warnings;   for (1..2) { while (<DATA> !~ /start/) {}; } print while <DATA>;

---

C'est bon ça fonctionne.
J'ai pris le dernier script de Lolo78 et ça fonctionne à merveille.
Merci à vous.:D

En modifiant le séparateur d'enregistrement:

Code:

---

1 2 3 4 5 6 7 8

use strict; use warnings;   { local $/ = "start"; <DATA>; <DATA>; print <DATA>; }

---

Citation:

---

Envoyé par CosmoKnacki

En modifiant le séparateur d'enregistrement:

---

Très bonne idée.

:king: :plusser: