Discussion :

[karim_khouja]

Code :

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

1
2
3
4
5
6
open LIRE,"cheminvers le fichier" or die "E/S : $!\n";
open ECRIRE,">cheminvers le fichier resultat\n", or die "E/S : $!\n";
 
while(<LIRE>){ 
  print ECRIRE "ligne$. ",(split /\s/,$_)[44,45,46],"\n" if $. % 32 == 4; 
}

en fait ca marche mais il me manque qq choses


en fait
* je veux extraire a partir de la 4ieme ligne ( c'est bon)
* extraire les 44, 45 et 46 ieme colonne du ligne en cours ( c'est bon)
- si $44 == 60
ligne++;
extraire la colonne 6 et 7 ;
ligne = ligne + 32;

- sinon ligne =ligne +32;


je serai tres reconnaissant si vous me trouver une solution
merci d'avance

[Jasmine80]

en fait
* je veux extraire a partir de la 4ieme ligne ( c'est bon)
* extraire les 44, 45 et 46 ieme colonne du ligne en cours ( c'est bon)
- si $44 == 60
ligne++;
extraire la colonne 6 et 7 ;
ligne = ligne + 32;

- sinon ligne =ligne +32;


je serai tres reconnaissant si vous me trouver une solution
merci d'avance

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
27
use strict;
use warnings;
 
 
open my $lire ,"cheminvers le fichier" or die "E/S : $!\n";
open my $ecrire ,">cheminvers le fichier resultat\n", or die "E/S : $!\n";
 
 
 
 
while( my $line = <$lire>){ 
 
	my ($data_6, $data_7, $data_44, $data_45, $data_46);
 
	if ($. >= 4){
 
		($data_6, $data_7, $data_44, $data_45, $data_46) = (split /\s/, $line)[6, 7, 44, 45, 46]; 
 
		if ($data_44 == 60){
			# traitement 
		}
 
               # traitement 
 
		$. += 32;
	}
}

Pourquoi faire 2 fois l'extraction et donc 2 fois la même opération? N'est-ce pas mieux de récupérer toutes les colonnes dont tu pourrais avoir besoin en une seule fois quitte à en récupérer 2 de trop?

Mon split ne fonctionne pas, mais l'idée de l'algo y est (apparemment tu as réussi à ne récupérer que certaines colonnes via un split). Sinon un

Code :

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

1
2
my @data = split (/\s/, $line);
$data[44],  $data[45],  $data[46]

... mais si tu arrives à ne récupérer que les valeurs dont tu as besoin c'est mieux.

Il vaut mieux utiliser le filehandle $lire ainsi que la variable $. qui indique la ligne du fichier (à partir de 1)

[Jasmine80]

Ce qui donne avec ton if et en gardant $_ au lieu de $line

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
while(<lire>){ 
 
	if($. % 32 == 4){
 
		my ($data_6, $data_7, $data_44, $data_45, $data_46 ) = (split /\s/)[6, 7, 44, 45, 46];
 
		if ($data_44 == 60){			
			print $ecrire "ligne$. $data_44, $data_45, $data_46 \n"; 
		}
		else {
			print $ecrire "ligne$. $data_6, $data_7, $data_44, $data_45, $data_46 \n"; 
		}
 
		$. += 32;
	}
}

[karim_khouja]

merci bcp
mais j'ai un séparateur de pipe "|" non pas l'espace?

[karim_khouja]

remarque :
ton code ne s'execute pas il contient bcp de fautes

j'ai un bout de code qui execute mais tjr les condition if sont fausse!!!

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
# !/usr/bin/perl -w
 
use strict;
use warnings;
 
 
open LIRE,"/home/sst/Bureau/karim/capture/karimov.txt" or die "fichier in trouvable";
open ECRIRE,">/home/sst/Bureau/rtp.txt\n", or die "E/S : $!\n";
 
while(<LIRE>){ 
{
 
print ECRIRE "ligne$. ",(split /\s/,$_)[45,46,47],"\n" if $. % 29 == 3; 
if  ($_5 == '2') # a titre d'exemple
$.++;
print ECRIRE "ligne$. ",(split /\s/,$_)[2,3],"\n"  
}
 
 }

[djibril]

Pensez à utiliser les balises CODE s'il vous plait la prochaine fois : http://www.developpez.net/forums/d71...rum-perl-lire/

[Jasmine80]

merci bcp
mais j'ai un séparateur de pipe "|" non pas l'espace?

Utilise un antislash devant le pipe

Code :

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

/\|/

[Jasmine80]

Utilise des filehandle $ecrire et $lire, c'est mieux que ECRIRE et LIRE.

j'ai un bout de code qui execute mais tjr les condition if sont fausse!!!

Code :

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

if  ($var == '2')

Si $var est un nombre, n'utilise pas les quotes autour de 2

Code :

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

if  ($var == 2)

Que doit contenir $_5? Est-ce valeur de l'array résultant du split dont l'indexe est 5?

[Jasmine80]

En essayant de comprendre ce que tu veux faire

print ECRIRE "ligne$. ",(split /\s/,$_)[45,46,47],"\n" if $. % 29 == 3;
if ($_5 == '2') # a titre d'exemple
$.++;
print ECRIRE "ligne$. ",(split /\s/,$_)[2,3],"\n"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
while( <$lire>){ 
 
	my ($data_2, $data_3, $data_5, $data_45, $data_46, $data_47 ) = (split /\|/)[2, 3, 5, 45, 46, 47]; 
 
	if ( ($. % 29 == 3) && (($data_5 == 2)) ){
 
		print $ecrire "ligne$. $data_45 $data_46 $data_4\n";
		$. += 2;
		print $ecrire "ligne$. $data_2 $data_3\n"  
	}
}