Discussion :

[lovelace63]

Bonjour, je bloque sur un problème tout con.
J'ai un fichier res.txt qui comporte une seule ligne :
parametre : 3

J'essaye de récupérer la valeur de mon paramètre via une regex mais je n'y arrive pas.
La valeur du paramètre est un entier mais il peut y avoir plusieurs espaces entre le : et l'entier.
Voilà mon fichier perl :

Code :

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

1
2
3
4
5
6
7
8
9
10
#! /usr/bin/perl
open(RESULT,"res.txt");
 
while (my $line = <RESULT>) {
	print $line;
	$param = $1 if $line =~ /^parametre :\s+(\d+)$/;
}
	print "mon parametre : $param\n";
 
close RESULT;

Où se situe ma bétise?

[cmcmc]

Bonjour, je bloque sur un problème tout con.
J'ai un fichier res.txt qui comporte une seule ligne :
parametre : 3

J'essaye de récupérer la valeur de mon paramètre via une regex mais je n'y arrive pas.
La valeur du paramètre est un entier mais il peut y avoir plusieurs espaces entre le : et l'entier.
Voilà mon fichier perl :

Code :

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

1
2
3
4
5
6
7
8
9
10
#! /usr/bin/perl
open(RESULT,"res.txt");
 
while (my $line = <RESULT>) {
	print $line;
	$param = $1 if $line =~ /^parametre :\s+(\d+)$/;
}
	print "mon parametre : $param\n";
 
close RESULT;

Où se situe ma bétise?

peux-tu attacher ton fichier res.txt ?

Es-tu certain qu'il y a bien un espace entre : et le nombre ?
C'est peut-être un problème d'ancrage à $ :

• Es-tu certain qu'il n'y a pas d'espace après le nombre ?
• Est-ce que le fichier est produit sous windows et lu sous unix/linux ?

une autre manière simple et robuste de lire ce paramètre :

Code :

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

1
2
3
4
5
open(RESULT,"res.txt");
my $fulltext = do { local $/; <RESULT> };
my ($param) = $fulltext =~ m/parametre\s*:\s*(\d+)/ms;
print "mon paramètre : $param\n";
close(RESULT);

si tu as plusieurs paramètres à lire, tu peux ajouter des lignes analogues à la ligne 3.

Tu peux également jeter un oeil aux différents packages de lecture de fichiers de config sur CPAN, par exemple Config::General

[6ril23]

essaie voir avec la modif en rouge car je pense que tu dois avoir des caractères en fin de ligne
si ça ne fonctionne pas essaie de ne pas mettre dans l'expression régulière le "^" ni le "$"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#! /usr/bin/perl
open(RESULT,"res.txt");
		
while (my $line = <RESULT>) {
	$line=~/[\r\n]+$/;
	print $line;
	$param = $1 if $line =~ /^parametre\s*:\s*(\d+)$/;
}
	print "mon parametre : $param\n";

close RESULT;

[cmcmc]

essaie voir avec la modif en rouge car je pense que tu dois avoir des caractères en fin de ligne
si ça ne fonctionne pas essaie de ne pas mettre dans l'expression régulière le "^" ni le "$"

je pense que tu voulais écrire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#! /usr/bin/perl
open(RESULT,"res.txt");
		
while (my $line = <RESULT>) {
	print $line;
	$line =~ s/[\r\n]+$//;
	$param = $1 if $line =~ /^parametre\s*:\s*(\d+)$/;
}
	print "mon parametre : $param\n";

close RESULT;

(et c'est mieux dans ce cas de le mettre après le print qu'avant...)

[6ril23]

je pense que tu voulais écrire

oui effectivement j'ai été trop vite

(et c'est mieux dans ce cas de le mettre après le print qu'avant...)

heu non je préfère mettre le print après:

Code :

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

print ">$line<\n";

[cmcmc]

oui effectivement j'ai été trop vite

heu non je préfère mettre le print après:

Code :

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

print ">$line<\n";

... en rajoutant le \n , certes, mais si tu ne touches pas au print ...

[lovelace63]

si ça ne fonctionne pas essaie de ne pas mettre dans l'expression régulière le "^" ni le "$"

Bien joué, le problème venait du $.

Merci beaucoup

[6ril23]

ben si tu ne touches pas au print, je trouve qu'il n'a aucun intérêt
je conseillerais de toujours borner les print afin de ne pas passer à côté des caractères "invisibles" éventuels (souvent en fin de lignes)

[6ril23]

Bien joué, le problème venait du $.

Merci beaucoup

je pense que si ça venait du $, "$line =~ s/[\r\n]+$//;" doit le résoudre
mais je te conseille d'essayer de trouver pourquoi et ainsi tu pourras remettre le $

[lovelace63]

je pense que si ça venait du $, "$line =~ s/[\r\n]+$//;" doit le résoudre

Cela n'a pas l'air de fonctionner comme cela.

Les fichiers sont générés via du fortran (et ce n'est pas moi qui contrôle la génération). Peut être qu'il y a un truc bizarre en fin de ligne mais vi ne voit rien. Pourtant j'avais mis un chomp au début au cas où mais il ne fonctionnait pas non plus.

Cette solution fonctionne parfaitement du coup je ne me plonge pas plus dedans.

[6ril23]

essaie de modifier ton print en : print ">$line<\n";

sinon tu peux essayer de faire "$line =~ s/\s*$//;" car normalement tu vas enlever tous les caractères "invisibles": \r, \t, \n, \0, \v, espace...

attention: pour \v (tabulation verticale) ça ne fonctionne qu'à partir 5.10.2 (je crois); avant ça enlève la lettre v...