problème de substitution pour perl

**claire63** · 10/01/2008, 17h54

Bonjour,
Je voudrais pouvoir remplacer sur une même ligne différentes variables
exemple:
etat initial
15.000000 1000.000000 300.000000
etat à obtenir
20.000000 300.000000 500.000000
La méthode en lisant les octets ne peut être employée car 1000 devient 300 donc un octet de moins.
Mon problème c'est que quand j'utilise cette fonction 's/15/20/' $filename, il me fait global automatiquement et donc il me remplace bien 15 par 20 ,1000 par 300 mais le 300 suivant n'est pas remplacé et c'est celui que je viens de faire qui passe à 500.
ça me donne donc 20.000000 500.000000 300.000000
si je fais 's/15/20' $filename, ça ne fais aucune modif.
j'ai essayé avec des tell() et seek() mais tell(fichier) contient -1 et si je fais seek(fichier,0,2); il ne me commence pas à la fin du fichier pour me remplacer 300 par 500.
Je ne vois plus comment faire.
Merci d'avance pour votre aide.

Cordialement.
(Une personne qui débute en perl).

**Jedai** · 11/01/2008, 21h53

Notre FAQ contient une section consacrée à la question.

Par ailleurs, comme indiqué dans les messages *Importants*, on ne doit pas poster sur ce forum mais uniquement sur les sous-forums, Langage dans ton cas.

--
Jedaï

**claire63** · 17/01/2008, 12h30

Bonjour,
J'ai écrit en fin de compte le script suivant :

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
34
35
 
#!/usr/bin/perl -w
#
#use strict;
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
print "
<HTML>
<HEAD>
   <TITLE>essai de script CGI</TITLE>
</HEAD>
 
<BODY>
 Voici le texte de ma page testfichier
</BODY>
 
</HTML>
test_simple<br>";
open (FH, "/var/www/upload/parametre/dynamicsfile.inp")|| die "Pb d'ouverture FH";
open (FB, "/var/www/parametre/Calcul_A/pexpert1.txt")|| die "Pb d'ouverture FB";
open (FS, ">/var/www/upload/parametre/test.txt")|| die "Pb de creation test2";
my $filename = "/var/www/upload/parametre/test.txt";
while ($a=<FH>){
print FS "$a";
}
while ($b=<FB>){
@t=split(";",$b);
$uu=$t[0];
$vv=$t[1];
$ww=$t[2];
}
system ("perl -pi -e 's/xx/$uu/g' $filename"); 
system ("perl -pi -e 's/yy/$vv/g' $filename");
system ("perl -pi -e 's/zz/$ww/g' $filename"); 
close (FH, FB, FS);

FB contient 20;300;500; si on ne met pas le dernier ";" il nous prend en compte l'espace suivant et donc dans le fichier il va à la ligne.
Dans FH j'ai mis ça :
1
xx.000000 yy.000000 55.000000 25.000000 25.000000 zz.000000 255.000000 1.000000 100.000000 45.840000
0 2 32759 0 100 0.000100

au lieu de
1
15.000000 1000.000000 55.000000 25.000000 25.000000 300.000000 255.000000 1.000000 100.000000 45.840000
0 2 32759 0 100 0.000100

Si ça peut aider quelqu'un qui pourrait avoir un problème similaire.
Cordialement.

problème de substitution pour perl

Langage Perl

Vue hybride

Discussions similaires

Partager

Partager