Discussion :

[spoun95]

Bonjour,

j'ai fais ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
open(FILE1, "< file1.txt");
open(FILE2,"> file2.txt");
while (<FILE1>) {
	@h=split(' ',$_);
	if ($h[0]=="01") {
		print FILE2 $_;
	}
}
close(FILE1);
close(FILE2);

il prend chaque ligne du fichier 1, regarde si elle commence par la chaine "01" et si c'est le cas, ecrit la ligne dans le fichier 2.

mais je ne comprend pas le fichier 2 et identique au fichier 1 alors que toutes les lignes ne commencent pas par "01"

[2Eurocents]

Bonjour,

En Perl, il est important de distinguer les tests d'égalités entre nombres, au moyen de l'opérateur ==, et les tests d'égalité entre chaines, au moyen de l'opérateur eq.

Il faut donc au moins changer cette ligne :

Code :

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

	if ($h[0]=="01") {

par

Code :

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

	if ($h[0] eq "01") {

[spoun95]

j'avais completement oublier ca
ca marche beaucoup mieux
merci