tie::file ne remplace pas

Version imprimable

bonjour,

souhautant modifier une ligne d'un fichier sans jamais toucher au reste, je me suis tourné vers tie::file

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
#!/usr/bin/perl -w
use strict;
	use Tie::File;
        my $nouvelle_liste="";
        my $ancienne_liste="";
        open FICHIER,"< liste_tor.txt" or die "Le fichier liste_tor.txt n'existe pas !";
        my $ligne;
        while ($ligne = <FICHIER>)
        {
              $nouvelle_liste.=$ligne;
        }
        close FICHIER;
         open FICHIER,"< liste_fixe.txt" or die "Le fichier liste_fixe.txt n'existe pas !";
        while ($ligne = <FICHIER>)
        {
              $nouvelle_liste.=$ligne;
        } 
        close FICHIER;
 
         open FICHIER,"< ancienne_liste.txt" or die "Le fichier ancienne_liste.txt n'existe pas !";
        while ($ligne = <FICHIER>)
        {
              $ancienne_liste.=$ligne;
        } 
        close FICHIER;
 
 
 
 
 
        my @tableau1;
	tie @tableau1, 'Tie::File', "framearticle.html" or die ("probleme avec le fichier 1");
 
	for (@tableau1)
        {s/{$ancienne_liste}/{$nouvelle_liste}/g;}
	untie @tableau1;            # all finished
 
        my @tableau2;
	tie @tableau2, 'Tie::File', "framefollow.html" or die ("probleme avec le fichier 2");
 
	for (@tableau2)
        {s/{$ancienne_liste}/{$nouvelle_liste}/g;}
	untie @tableau2;            # all finished
 
          my @tableau3;
	tie @tableau3, 'Tie::File', "frameheader.html" or die ("probleme avec le fichier 3");
 
	for (@tableau3)
        {s/{$ancienne_liste}/{$nouvelle_liste}/g;}
	untie @tableau3;            # all finished
 
        my @tableau4;
	tie @tableau4, 'Tie::File', "framepreview.html" or die ("probleme avec le fichier 4");
 
	for (@tableau4)
        {s/{$ancienne_liste}/{$nouvelle_liste}/g;}
	untie @tableau4;            # all finished
 
 
        open FICHIER,"> ancienne_liste.txt" or die "probleme avec le fichier ancienne liste !";
 
        print FICHIER $nouvelle_liste;
        close FICHIER;

normalement le motif $ancienne_liste devrait etre remplacé dans les fichiers frame*.html par $nouvelle_liste pourtant il n'en est rien.
quelqu'un peut il m'aider ?

19/01/2008, 00h51
iblis

Bonsoir.

Je ne comprends pas bien ce que tu veux faire. Que doit faire exactement ton script ?

Pour l'instant, tu concatènes les lignes des fichier liste_tor.txt et liste_fixe.txt les unes à la suite des autres dans la chaîne $nouvelle_liste. Tu concatènes de même les lignes de ancienne_liste.txt dans $ancienne_liste. Le procédé que tu utilises est plutôt étrange, pour ne rien dire de la finalité. Je me demande si tu réalise que tes listes sont des chaînes.

Puis lors de tes substitutions, tu remplaces toutes les occurrences d'une chaîne qui vaut dorénavant les deux premiers fichiers concaténés l'un à la suite de l'autre par une chaîne contenant les lignes de ton troisième fichiers, ou plus exactement ces deux chaînes entourées de { }.

Est-ce vraiment ce que tu veux ? Que veux-tu faire ? (Je te fais grâce du coup de la boule de cristal).
19/01/2008, 06h49
mnem0

bonjour,
je sais que liste_tor et liste_fixe se concatenent, elles ont pour role de constituer $nouvelle_liste.

par ailleurs, dans les 4 fichiers frame*.html, il existe un motif $ancienne_liste que je souhaite remplacer par $nouvelle_liste (d'ou le

Code:

s/{$ancienne_liste}/{$nouvelle_liste}/g

)

je souhaite effectuer ce remplacement qui a priori, est une substitution de ligne, sans jamais effacer ou meme modifier partiellement le reste des fichiers frame*.html, je n'en ai pas le droit, c'est le remplacement qui ne fonctionne pas dans ce script

pour les chaines entourées d'accolades, c'est à priori la syntaxe pour subsituer des variables en lieu et places de motifs avec la fonction de substitution s///

Algorithme :

1 on concatene les contenus de liste_tor.txt et liste_fixe.txt pour créer $nouvelle_liste (les fichiers liste_tor.txt et liste_fixe.txt sont updatés régulièrement par un autre script)

2 on recupere le contenu de ancienne_liste.txt dans $ancienne_liste

3on remplace la ligne qui contient le motif $ancienne_liste par le motif $nouvelle_liste dans chacun des 4 fichiers frame*.html sans effacer quoi que ce soit d'autre dans ces fichiers meme temporairement

4 on fait de notre $nouvelle_liste le contenu du fichier ancienne_liste.txt comme ça on va pouvoir updater en boucle les fichiers frame*.html
19/01/2008, 15h58
iblis
Citation:

pour les chaines entourées d'accolades, c'est à priori la syntaxe pour subsituer des variables en lieu et places de motifs avec la fonction de substitution s///

Non. Pour t'en persuader :
Code:

1 2 3 4 5 $_ = '{ab}'; my $a = 'ab'; my $b = 'x'; s/$a/$b/; print; s/{$b}/$a/; print;
Quant à ton utilisation de tie, j'ai l'impression que tu te compliques inutilement la tâche — mais comme on ne sait pas ce que doit faire le script en fin de compte :roll:.

Considère l'exemple (idiot) suivant qui substitue Perl à toute occurrence de PERL, pERL, perl etc dans un fichier test.txt du répertoire courant
Code:

1 2 3 4 5 6 7 8 9 #!usr/bin/perl -w use strict; use Tie::File; tie my @array, 'Tie::File', 'test.txt' or die "Could not either open or tie: $!"; my $name = 'perl'; for (@array) { s/($name)/\L\u$1/i; }
Au fait, as-tu regardé la doc sur Tie::File (perldoc Tie::File) ? Jette peut être aussi un oeil à perlretut.
19/01/2008, 16h21
mnem0
Citation:
Envoyé par iblis

Non. Pour t'en persuader :

Code:

1 2 3 4 5 $_ = '{ab}'; my $a = 'ab'; my $b = 'x'; s/$a/$b/; print; s/{$b}/$a/; print;
merci bien :)

Citation:

Envoyé par iblis

Quant à ton utilisation de tie, j'ai l'impression que tu te compliques inutilement la tâche —

utilisation cf. http://perldoc.perl.org/Tie/File.html

Citation:

Envoyé par iblis

mais comme on ne sait pas ce que doit faire le script en fin de compte :roll:.

expliqué ci dessus précisement sous forme de l'algo en 4 étapes

Citation:

Envoyé par iblis

Au fait, as-tu regardé la doc sur Tie::File (perldoc Tie::File)

oui, mon code vient de là. c'est juste la syntaxe avec les accolades pour se servir de variables avec la fonction de substitution, résolu donc, merci.