Discussion :

[Petocasque]

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

[ptonnerre]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 ./copy_file_part.pl
gggggggggg start
hhhhhhhhhh
iiiiiiiiii
jjjjjjjjjj
kkkkkkkkkk
llllllllll

[Petocasque]

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

[Lolo78]

Bonsoir,

très bien la version de ptonnerre.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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).

[Lolo78]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
use strict;
use warnings;
 
for (1..2) {
    while (<DATA> !~ /start/) {};
}
print while <DATA>;

[Petocasque]

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