Aide script perl

Version imprimable

08/08/2006, 11h48
donmamio

Aide script perl

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
08/08/2006, 12h12
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ï
08/08/2006, 13h16
donmamio

Je n'ai aucune experience en perl , et j'en ai vraiment besoin de ce script .
Merci pour votre aide
08/08/2006, 13h56
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 ?
08/08/2006, 13h59
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

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

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
 
#!/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);

08/08/2006, 14h52
donmamio

Merci beaucoups
08/08/2006, 16h25
Jedai
Citation:
Envoyé par MarneusCalgarXP

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

Code:

1 2 3 4 5 6 7 #!/usr/bin/perl BEGIN { use strict; use warnings; }
C'est incorrect, en faisant ça tu restreint la portée de use strict au bloc BEGIN, il devient donc inutile.

--
Jedaï
08/08/2006, 16h37
MarneusCalgarXP

Ah ? Je pensais que la portée du "use strict" et "use warnings" était globale, peu importe l'endroit où ils sont déclarés !

Non, c'est justement un de leurs avantage : tu peux appliquer les warnings et strict où tu veux, comme tu veux et même les désactiver dans une portée bien précise, pour te permettre de faire des manipulations avancées normalement interdites tout en gardant les avantage de "strict" pour le corps de l'application.

Un exemple simple :
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 31 32 33 34 35 36 37 38 39 #! /usr/bin/perl use strict; use warnings; my ($auteur, $plateforme, $compilateur, $version); my $last; while( <> ){ if( $last and $last ne $ARGV ){ no warnings "uninitialized"; print "$auteur|$plateforme|$compilateur|$version|",($.-1),"\n"; ($auteur, $plateforme, $compilateur, $version) = (); $. = 1; } s/^\s+|\s+$//g; if( !$auteur and m{// \s* auteur \s* : \s* (.+)$}xi ){ $auteur = $1; } elsif( !$plateforme and m{// \s* plateforme \s* : \s* (.+)$}xi ){ $plateforme = $1; } elsif( !$compilateur and !$version and m{// \s* compilateur / version \s* : \s* (.+) / (.+)$}xi ){ $compilateur = $1; $version = $2; } $last = $ARGV; } { no warnings "uninitialized"; print "$auteur|$plateforme|$compilateur|$version|$.\n"; } __END__
Comme tu le vois, je ne veux pas que les warnings du type "uninitialized" soit affichée lorsque j'essaie d'imprimer une valeur qui n'était pas dans le fichier, donc je rajoute un no warnings "uninitialized" pour passer sous silence cette catégorie de warning (une anecdote intéressante c'est que j'avais fait une erreur dans une première version de ce script qui m'a été révélée par un warning, si j'avais globalement désactivé les warnings, je serais sans doute passé à côté).
C'est pour ça que je préfère "use warnings" au flag "-w", parce qu'on contrôle mieux le comportement de l'application.

--
Jedaï

08/08/2006, 17h34
MarneusCalgarXP

Ok, merci pour l'astuce ;)