Discussion :

[peuf23]

Bonjour,
Je voudrais modifier un fichier qui a le format suivant :

WID2 2005/02/04 11:05: 0.055 BARC LHE XXX CM6 359989 100.000000 90.0 0.0
STA2 SEDZ 9.16300 -83.33600 WGS-84 0.375 0.000
DAT2
eV3tyDVAt-X2dFUOl+tCNZ8X0r-oBrNXTkQYDVDc+aOlMrTVJUIW9oQVKl8r0kPbPVFY5o4r9UGVHmPU
...
CHK2 59345435
WID2 2005/02/04 11:05: 0.055 BARC LHZ XXX CM6 359989 100.000000 -1.0 0.0
STA2 SEDZ 9.16300 -83.33600 WGS-84 0.375 0.000
DAT2
ilKymJPUEUOkGV3MURlOFIVLUQUOmDnImQW3Y8UQ9l9WHV1KUOnGoFl+l3UKY4X6GlDUTVSlBmKkQmBV
JUNkKX7X
...
CHK2 59345435

En gros, le header commence avec les lignes WID2, puis STA2 et DAT2 annonce l'arrivée des données. Les données se finissent par la ligne qui commence par CHK2. Et ainsi de suite.

Je voudrais modifier les lignes WID2 et STA2 en fonction de ce qu'elles contiennent. C'est à dire, par exemple, modifier XXX en fonction de ce que l'on ait LHE ou LHZ comme paramètre précédant.

Qu'elle technique me conseillez-vous? Ouvrir le fichier en lecture-écriture et faire les modifs au cours de la lecture? Ou mettre le fichier entier (qui est assez gros) dans une variable et utiliser les regex avec le paramètre s///g et écraser le fichier avec la nouvelle variable ainsi créée?

Merci d'avance

[gege2061]

Bonjour,
je pense qu'une parite de la réponse se trouve ici : Changer une ligne dans un fichier

Bon courrage

[edit]Désolé, je n'avai pas vu qu'il s'agissait du même posteur![/edit]

[GLDavid]

Salut

Je te propose le script suivant qui est, à mon avis, une base pour tes futurs développements :

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
28
29
30
31
32
33
 
#!/usr/bin/perl -w
 
use strict;
use Carp;
 
sub rename_file {
	unlink $_[0] and rename ($_[1], $_[0]) and unlink $_[1];
}
#Fichier en lecture
open FILE,"< peuf.txt" or die "$!\n";
#Fichier en ecriture
open FILE_DEST,"> peuf2.txt" or die "$!\n";
while(<FILE>){
	chomp;
	#On prend exemple la modification de WID2
	if(/WID2/){
		#On va supposer que l'on modifie si on trouve LHE
		if (/LHE/){
			s/LHE\s.{3}\s/LHE 000 /;
			print FILE_DEST $_."\n";
		}
		else {
			print FILE_DEST $_."\n";
		}
	}
	else {
		print FILE_DEST $_."\n";
	} 
}
close FILE and close FILE_DEST;
 
rename_file("peuf.txt", "peuf2.txt");

Le code s'aide d'une regexp pour modifier ce que tu souhaites.

@++

[peuf23]

Merci pour tes conseils...
Il y a des parties que je ne comprends pas dans ton code :

Code :

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

1
2
3
4
 
sub rename_file {
   unlink $_[0] and rename ($_[1], $_[0]) and unlink $_[1];
}

Et aussi pourquoi faire un chomp?

chomp;

Sinon, c un peu cette méthode que j'avais imaginé, mais les modifs sont telement complexes finalement, que je préfère mettre la ligne dans un array, modifier cet array (sans passer par s///)

[GLDavid]

Salut

Concernant cette fonction :

Code :

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

1
2
3
sub rename_file {
   unlink $_[0] and rename ($_[1], $_[0]) and unlink $_[1];
}

Elle prend 2 arguments : le premier est le fichier d'origine, le 2ème est le fichier temporaire. La fonction unlink permet de supprimer un fichier. Ce qui dans l'ordre fait : je supprime le fichier d'origine, je renomme le fichier temporaire avec le nom du fichier d'origine et je supprime le fichier temporaire.

La fonction chomp permet d'enlever dans une chaîne de caractères tout caractère d'échappement (les fameux retours chariots \n).

Mais non, c'est pas compliqué les regexp.

Apparemment tu sembles débutants, je te conseille donc de te rendre sur la page index de la rubrique Perl de ce forum qui te permettra d'accéder à mes cours d'initiation à Perl ainsi qu'à la FAQ que je t'invite à consulter fréquemment

@++

[peuf23]

Merci... oui c vrai je débute en perl. Merci pour tes indications