Perl

[Perl] extraction de chaine

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] extraction de chaine

sasame

Bonjour,

Je cherche une expression reguliere qui puisse ranger dans une variable, une chaine de caractere qui se trouve entre 2 chaines.

ex :

Probleme Description:
Tout est planter(test)

Resolution.

j'ai esseyer ça:

Code :

push @description, $1 if /Probleme Description\s+(.+)^/

mais ça marche pas ça ne va pas chercher a la ligne suivante.
Si quelqu'un connaissai l'astuce, ça me serai grandement utile.

Merci.

Publicité

maximew

Coffee and cigarettes and Cate

Fait un tr/\n\r//d; sur la ligne précédente et ca devrait marcher normalement...

push @description,$2 if m/^(Probleme Description\s+)(.+?)(\s+Resolution)/;

---------------
Mon Flickr

sasame

je te remercie de ta reponse mais ça n'a pas l'air de marcher

matafan

perl -e 'local $/; $_=<>; /^Probleme Description:(.*)^Resolution/ms; print $1'

Le //s permet de traiter les chaines multi-lignes comme une seule ligne. Le //m permet de faire matcher ^ et $ avec les debut de ligne et fin de ligne, au lieu des debut de chaine et fin de chaine.

Message édité par matafan le 24-01-2005 à 20:13:04

sasame

Ha je te remercie grandement pour ton aide ça marche.

Par contre je comprend pas bien le

Code :

local $/

et le

Code :

$_=<>

Pourrai tu m'éclairer là dessus?
Merci.

pospos

$/ est une variable speciale qui indique à Perl le separateur de ligne à utiliser kand il lit un fichier.
En temps normal il vaut \n (ou \r\n).

<> est l'entrée standard (clavier), ca equivaut à <STDIN>, ca lit donc l'entrée standar en s'arrettant à chaque ligne... enfin à chaque fois qu'il rencontre la valeur de $/.
Dans ce cas precis $/ a été "effacé" (local redefini la variable dans le scope, et comme rien ne lui est assigné elle vaut undef), et plus rtien n'arrettera donc la lecture (sauf un fin de fichier, ou un ctrl-Z dans le cas de l'entrée standard).
on utilise souvent cette technique pour "slurper" un fichier d'un seul coup dans une variable:

Code :

my $fichier = do{
local $/=undef; # ou local $/ tout court
<IN>;
}

ou met tout ca dans un bloc (ou ici un do{}) pour ne pas modifier la valeur de $/ dans le reste du script (et dans les modules). c'est tres important car ca peut affecter d'autres parties du code. donc jamis de "$/=undef" sans "local" et sans bloc autour!

Sinon... dans ce cas precis $/ et <> ne servait qu'à illustrer le fonctionnement de la regexp...

Message édité par pospos le 25-01-2005 à 10:34:16

sasame

Merci pour ta réponse.

dans mon cas vu que je veux recupéré d'autre chaine de caractere, j'ajoute dans ma boucle while qui lit mon fichier

Code :

push @description, $1 if /^Problem Description:(.*)^Problem Resolution/ms;
push @call, $1 if /Help Desk Call\s+(.+)$/;

avec la derniere ligne là je veux extraire ce qu'il y a derriere "Help Desk Call" (il s'agit d'un numero).
Cette expression reguliere fonctionne, je l'ai tester plusieur fois.
Mais quand je l'insere dans la boucle et que je fait un "print @call", cela ne m'ffiche rien du tout.

pospos

ha...
si tu lit ton fichier dans une boucle sans avoir modifié la variable $/ il va le lire ligne par ligne... et donc tu ne pourra pas utiliser ta regexp...
la solution consiste à avoir ton fichier ENTIER dans une variable, et d'appliquer ensuite ta regexp dessus. Pour faire ca soit tu concatene ta variable dans ta boucle while puis tu match ensuite, soit tu fais comme indiqué au dessus. Par exemple un petite fonction que j'utilise souvent:

Code :

my $a = slurp("blabla.txt" );
$a =~ ....
sub slurp {
my $file = shift;
my $fh;
if (UNIVERSAL::isa($file, 'GLOB')) {
$fh = $file;
} else {
open($fh, '<', $file) || return undef;
}
binmode $fh;
if (wantarray) {
<$fh>
} else {
local $/;
<$fh>
}
<$fh>
}

Message édité par pospos le 25-01-2005 à 11:31:20

sasame

Houla j'ai pas tout compris :??:

voila mon code :

Code :

#!/usr/bin/perl -w
use strict;
my ( @call, @description, @resolution, @id1, @id2, $fav, $ligne );
$fav = "toto1.txt";
open AVANT, $fav or die "Impossible d'ouvrir $fav\n";
local $/;
while (<AVANT> )
{
#Recherche du numero de la demande
push @call, $1 if /Help Desk Call\s+(.+)$/ ;
#Recherche de la description de la demande
push @description, $1 if /^Problem Description:(.*)^Problem Resolution/ms;
#Recherche de la resolution de la demande
push @resolution, $1 if /^Problem Resolution:(.*)^Opened By/ms;
#Recherche de l'id1
push @id1, $1 if /Opened By\s+(.+)$/ ;
#Recherche de l'id2
push @id2, $1 if /Sent To\s+(.+)$/ ;
}
print ("\nObjet : Enregistrement de la demande numero @call \n" );
print ("\nDescription de la demande: @description \n" ) ;
print ("Description de la resolution: @resolution \n" );
print ("\nOuvert par: @id1 \n" );
print ("Envoye a: @id2 \n\n" );
close AVANT;

ça ne me renvoie ni @call, ni @id1

mon fichier toto1.txt se presente comme ça :

Code :

Objet : Event Notification For: Help Desk Call #20378
Problem Description:
Tout est planter (test)
Problem Resolution:
Plus rien n'est plante
Opened By JD: Dupont, Jean
Sent To IN: inconnu

Si tu pouvais m'aider ça serai sympa, ça fait 3 semaines que je galere dessus

pospos

Code :

use strict;
$_ = slurp("toto1.txt" );
#Recherche du numero de la demande
my ($call) = /Help Desk Call\s+([^\r\n]*)/ ;
#Recherche de la description de la demande
my ($description) = /Problem Description:(.*?)Problem Resolution:/ms;
#Recherche de la resolution de la demande
my ($resolution) = /^Problem Resolution:(.*?)Opened By/ms;
#Recherche de l'id1
my ($id1) = /Opened By\s+([^\r\n]*)/;
#Recherche de l'id2
my ($id2) = /Sent To\s+([^\r\n]*)/;
print ("\nObjet : Enregistrement de la demande numero $call \n" );
print ("\nDescription de la demande: $description \n" ) ;
print ("Description de la resolution: $resolution \n" );
print ("\nOuvert par: $id1 \n" );
print ("Envoye a: $id2 \n\n" );
sub slurp {
my $file = shift;
my $fh;
if (UNIVERSAL::isa($file, 'GLOB')) {
$fh = $file;
} else {
open($fh, '<', $file) || return undef;
}
binmode $fh;
if (wantarray) {
<$fh>
} else {
local $/;
<$fh>
}
}

si je puis me permettre, ton format de fichier n'est pas tres robuste. Que se passe t-il par exemple si l'utilisateur ecrit 'Opened By' dans le champ 'Problem Resolution'?

Publicité

sasame

Merci vraiment beaucoup (ça se dit ça?)
Tu me sauve la vie là, sur 3 semaines que je rame dessus, toi en quelque minutes tu fais tout marcher.
Je suis vraiment pas fait pour le développement ^^;

En fait ce que je dois faire c'est réaliser un filtre sur un serveur de messagerie.
Des mails avec le texte que j'ai mis sont envoyer sur le serveur de messagerie. Le filtre reécupére les variables demander, en autre le numero, un description,... , met ça dans un autre fichier pour le reformuler apres, (voir les print).

Pour remaitre les variable dans un autre fichier, j'ai pensé a faire un fichier de référence, avec des nom de variable à remplacer par substitution en fait,

ex : Problem description:
desc1

je remplace desc1 par la chaine que j'ai extraite dans @description et j'enregistre le tout dans un autre fichier
donc en tout 3 fichiers, un avant, un de référence, et un apres.

Bon pour l'instant je suis rester sur ce model là mais si tu as d'autre conseil pour m'aider à améliorer le filtre je suis preneur.

Pas besoin de faire des testes sur les mot extrait vu que le fichier "avant" ne change jamais"

pospos

ouai la subsitution dans un fichier de reference c'est pas mal, c'est un petit systeme de template en fait. rajoute un symbole autour, genre %desc1% pour etre certain qu'il n'y aura pas de conflict

tu slurp ton fichier de template, tu fait les subsitutions avec les bonnes valeurs, et tu le print dans un nouveau fichier.

par exemple:

Code :

...code precedent...
my %replace = (
call => $call,
description => $description,
resolution => $resolution,
id1 => $id1,
id2 => $id2,
);
my $replace_regexp = join('|', keys %replace);
$replace_regexp = qr/%($replace_regexp)%/;
my $template = slurp("reference.txt" );
$template =~ s/$replace_regexp/$replace{$1}/eg;
print $template;

apres tu met tout ca proprement dans des subs (en gardant peut etre le contenu du template original dans une variable pour eviter de devoir recharger le fichier à chaque fois)

matafan

<> c'est pas stdin, c'est l'entrée par défaut... Nuance En particulier si un fichier est passé en paramêtre à Perl, alors <> lit ce fichier, pas stdin : perl -e '...' mon_fichier

FORUM HardWare.fr

Programmation

Perl

[Perl] extraction de chaine

Sujets relatifs
[c] transformer une chaine en entier	Histoire de chaine
[Fortran 95] Conversion de types numériques en chaine de caractères	imposer une fin de chaine par une touche particulière
[Perl] Comment vérifier si un nombre est entier ?	[PERL et DBI] probleme sur bind_param... [TROUVE]
[CGI-PERL] comment activer perl sur apache version windows ?	concaténation de chaîne - jdk 1.5
Formatage d'un caractère spécial dans une chaine	Trouver un mot dans une chaine de caracteres
Plus de sujets relatifs à : [Perl] extraction de chaine

Page générée en 0.084 secondes