Discussion :

[cricri77200]

Bonjour j'ai un fichier open.txt qui contient une valeur par exemple 1.
Je voudrais assigner une variable a la valeur contenu dans le fichier open.txt en l'occurence 1.
Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
$file = 'C:/perl/Open.txt';	
		open(INFO,$file);
		while(<$file>) {
				if (/ /) {
			my ($value) = ($1);
 
			}
		}
		print ("VALUE = $value\n" );

mais cela ne fonctionne pas ...
Quelqu'un aurait il la réponse merci !

[djibril]

Il serait intéressant pour toi de lire la FAQ pour apprendre à lire un fichier car ton écriture est fausse. Essaye déjà ça et on t'aide après.

Il est inutile de te donner à chaque fois la solution car je m'aperçoit que tu fais toujours les même erreurs.

Lis la FAQ section fichier et tu verras par toi même qu'on ne lit pas un fichier de la sorte.

De plus, travailler dans le répertoire où Perl est installé est une très mauvaise habitude.

[Philou67430]

Mmmm.... c'est qu'en même une façon "légale" de lire un fichier, même si ce n'est pas la meilleur façon de le faire.

En revanche, l'usage de $1 alors qu'aucune "capture" n'a été demandée dans l'expression régulière, là, c'est un vrai problème

[djibril]

Mmmm.... c'est qu'en même une façon "légale" de lire un fichier, même si ce n'est pas la meilleur façon de le faire.

En revanche, l'usage de $1 alors qu'aucune "capture" n'a été demandée dans l'expression régulière, là, c'est un vrai problème

Code :

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

while(<$file>)

[Philou67430]

Ah oui, ça m'a échappé !
En fait, j'étais à cheval entre en bon et un mauvais usage des filehandle scalaires sans voir qu'ils n'étaient pas cohérents entre eux
This is better :

Code :

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

1
2
3
open my $FILE, "<", $file;
...
while (<$FILE>) { ... }

[djibril]

Ah oui, ça m'a échappé !
En fait, j'étais à cheval entre en bon et un mauvais usage des filehandle scalaires sans voir qu'ils n'étaient pas cohérents entre eux
This is better :

Code :

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

1
2
3
open my $FILE, "<", $file;
...
while (<$FILE>) { ... }

Même si ton bout de code est juste, il peut porter à confusion.

Code :

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

1
2
3
open my $FH_FILE, '<', $file;
...
while (<$FH_FILE>) { ... }

serait plus adapté (FH pour filehandle).

[Philou67430]

Pour moi, la convention de mettre les filehandle en majuscule est suffisante... avec quoi je pourrais confondre $FILE ? avec $file ? dans ce cas (ce que j'ai failli faire), je préfère alors écrire :

Code :

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

open my $FILE, "<", $file_name;

[Philou67430]

D'ailleurs, dans le dernier article de la FAQ "Les fichiers" (Ouvrir et fermer un fichier (nouvelle version)), en plus de recommander l'usage des filehandle lexicaux, il faudrait aussi préconiser l'usage de open à 3 arguments.

[djibril]

Pour moi, la convention de mettre les filehandle en majuscule est suffisante... avec quoi je pourrais confondre $FILE ? avec $file ? dans ce cas (ce que j'ai failli faire), je préfère alors écrire :

Code :

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

open my $FILE, "<", $file_name;

C'est sûr, c'est mieux.

D'ailleurs, dans le dernier article de la FAQ "Les fichiers" (Ouvrir et fermer un fichier (nouvelle version)), en plus de recommander l'usage des filehandle lexicaux, il faudrait aussi préconiser l'usage de open à 3 arguments.

Ouais, il faut que je prenne le temps de faire quelque remise à jour.
D'ailleurs ton coup de main serait utile

[Philou67430]

D'ailleurs ton coup de main serait utile

Je ne suis pas sur de bien comprendre