Discussion :

[sasame]

Bonjour,

j'ai un petit probleme étant un noob de chez noob en perl, je bloque sur un truc tout con

ça serai pour recupérer un bout de chaine de caractere dans un fichier

j'ai cette chaine là :

"objet : event notification for: Help Desk Call #20378"

Je voudrais juste recupéré les caracteres en gras. Le probleme ces que ces derniers ne sont pas fixes, la longueur de cette chaine est variables.

J'ai deja commencé en faisant une recherche sur "Help Desk" pour savoir où commencer mais apres je bloque

Peu etre que j'utilise pas la bonne méthode?

[mat21]

Salut,

Tu peux utiliser les expressions régulières pour cela.

si le motif qui t'interesse est toujours à la fin.

Code :

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

1
2
3
4
5
6
7
 
while (<F>) {
 
$_ =~ /Help Desk\s+(.+)$/;
my $motif = $1;
 
}

c'est une expression un peu grossiere. tu peux affiner la reconnaissance de ton motif car .+$ prend n'importe quel caractere jusquà la fin.

tiens nous au courant

[sasame]

Je te remercie pour ta reponse, j'avance un petit peu plus sur mon projet grace à toi

Je voudrai savoir par contre pour une phrase qui se trouve a la ligne suivante
genre :

Problem Description:
Tout est planté (test)


Quelles expressions regulieres utilisées?
Parsque j'ai un peu de mal avec elles [/b]

Ou encore une ligne entre deux lignes ex :

Pb :

salut toi

fin.

ça ne serai pas plus simple non à coder?

[mat21]

Je ne pretend pas en quelque ligne te donner la meilleure façon d'utiliser les expressions régulières.

pour un motif precis je peux essayer de te faire un ligne mais sit u veux mieux appréhender cette technique, rien ne vaut la lecture de tutoriaux. ils sont là pour ça.
http://www.enstimac.fr/Perl/DocFr/perlrequick.html
http://www.enstimac.fr/Perl/DocFr/perlretut.html

bonne lecture

[sasame]

Merci pour ces lien

[sasame]

Pour :

"objet : event notification for: Help Desk Call #20378"

on pourrai aussi faire cela non?

Code :

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

1
2
$_ =~ /Help Desk/ ;
$call = $' ;

Enfin tu me corriges si je me trompe ^^;

Par contre comment faire pour utiliser la variable $' plusieur fois ?
Car je voudrai en faite faire plusieurs extractions dans mon fichier, il n'y a pas une methode pour libérer une variable?

[mat21]

ça débute et ça fait le malin avec les variables spéciales

je crois que $' c'est la fin de ligne apres le match donc ça doit être la même chose.

en fait qd tu fais ton while, il lit le fichier ligne par ligne donc ta variable est libérée (écrasée) à chaque fois. mais c'est le cas de $call aussi.

la solution est de les stocker dans un tableau.

Code :

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

1
2
 
push @call, $';

si tu initialise tes varaibles avec my, faut linitialiser le tableau en dehars du while bien sur.

[2Eurocents]

Attention, toutefois, avec l'usage des variables spéciales !!!

$` ($PREMATCH), $& ($MATCH) et $' ($POSTMATCH) sont certes pratiques, mais elles introduisent un surcoût phénoménal dans les performances de recherche des expressions rationnelles.

C'est pourquoi il peut être préférable de construire un motif cohérent à base de regroupements (motifs entre parenthèses) et de récupérer derrière les $1, $2, etc.

[sasame]

Je vous remercie

parcontre j'ai toujours un probleme

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
#!/usr/bin/perl -w
 
use strict;
 
my ( @call, @id1, @id2, $fav) ;
$fav = "toto.txt";
 
open AVANT, $fav or die "Impossible d'ouvrir $fav\n";
       while (<AVANT>) {
               #recherche du numero de la demande
               $_ =~ /Help Desk Call\s+(.+)$/;
                push @call, $1;
 
                #recherche de l'id1
                $_ =~ /Opened By\s+(.+)$/;
                push @id1, $1;   
 
                #recherche de l'id2
                $_ =~ /Sent To\s+(.+)$/;
                push @id2, $1;         
                                    }
print ("\nObjet : Enregistrement de la demande n° @call \n");
print ("Ouvert par :     @id1 \n");
print ("Envoyé par :    @id2  \n");
 
close AVANT;

Mon fichier avant se presente comme cela :

Objet Notification For: Help Desk Call #20378

Opened by: toto
Sent to: inconnu

j'ai voulu voir ce que contenait les tableaux et là je comprend pas trop

@call contient 9 fois #20378 + toto
@id1 contient 8 fois #20378 + 2 fois toto
@id2 contient 8 fois #20378 + toto + inconnu

[Jedai]

Je parierai que ton fichier compte plus de ligne que ça, non ?

En fait le problème vient du fait que tu ne testes pas si la ligne correspond bien à ton motif avant de faire le push... Il faut que tu fasses plutôt ainsi :

Code :

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

1
2
 
push @call, $1 if /Help Desk Call\s+(.+)$/;

(de même pour les autres motifs bien sûr)

--
Jedaï

[sasame]

Haaa c'est genial ça marche (dsl, l'émotion, c'est pas souvent que ça m'arrive )

Un grand merci a tout le monde vous m'avez bien aider, faut dire j'était trop dans la mouise, jsuis vraiment pas fait pour etre dévelopeur, mais je m'accroche quand meme

Bon y me resque encore un petit probleme à régler pour ce qui concerne, l'extraction d'une variable entre 2 lignes.

Je vais allez tater du google sur les expressions regulieres et rationelles.
Il faut que je finisse demain sinon j'aurrai jamais le temps de finir mon projet dans les délais impartits

[GLDavid]

Un petit tag résolu la prochaine fois quand c'est bon !

@++