Discussion :

[donmamio]

Bonjour
je voudrais ecrire un script qui ouvre un fichier texte et qui le lit ligne par ligne et dés qu'il trouve la chaine de caractére "Map" il revoi tous ce qu'il a lu dans un autre fichier de sortie .
exemple

ddd
dzz
dopioi
Ma
dd
egrg
frp
dde


le fichier de sotie dois contenir seulement le 3 premiére lignes
Merci pour votre aide

[Jedai]

Et bien, où est ton code ? (je rappelle que nous n'écrivons pas le code à votre place, nous sommes là pour aider, pas pour faire votre boulot)

--
Jedaï

[donmamio]

Je n'ai aucune experience en perl , et j'en ai vraiment besoin de ce script .
Merci pour votre aide

[MarneusCalgarXP]

Est-ce que "Map" doit occuper toute une ligne ou est-ce qu'il peut faire partie d'une phrase ou d'un mot ?

par exemple, si tu trouves la ligne
"aMappy", est-ce qu'on doit s'arrêter ?

[donmamio]

là ou ya le caractére Map ( aMappy, Mappy, 1Map....) meme chose.
donner en sortie les lignes de 1 à N juska trouver le caractére "Map" ( en quelque sorte ; supprimer les lignes aprés le caractére Map )
Merci

[MarneusCalgarXP]

Voilà un p'tit bout de code qui fait ça

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
 
#!/usr/bin/perl
 
BEGIN {
	use strict;
	use warnings;
}
 
# lire paramètres en ligne de commande
my $infile  = shift(@ARGV);
my $outfile = shift(@ARGV);
 
if (!($outfile)) { die("usage : $0 <fichier d'entrée> <fichier de sortie>"); }
 
# ouverture des fichiers
open(INPUT,  '<', $infile)  || die("impossible d'ouvrir $infile en lecture");
open(OUTPUT, '>', $outfile) || die("impossible d'ouvrir $outfile en écriture");
 
# recopie jusqu'à la ligne contenant 'Map'
while (<INPUT>)
{
	last, if ( m/Map/o );
	print OUTPUT $_;
}
 
# fermeture des fichiers
close(INPUT);
close(OUTPUT);