Discussion :

[elghadi_mohamed]

Bonjour

je voudrais savoir s'il existe une methode permettant d'acceder à un emplacement precis des enregistrements d'un fichier et de les modifier?

à titre d'exemple j'ai un fichier texte avec plusieurs lignes chaque ligne represente un enregistrement et je voudrais effacer une ligne qui se trouve à l'interieur du fichier en agissant directement sur le fichier


merci de votre aide

[Jasmine80]

Bonjour,

Je crois qu'agir directement sur le fichier est impossible.
Tu peux ouvrir et lire ce fichier afin d'y récupérer les informations à garder et les recopier dans un nouveau fichier.
Je ferais quelque chose comme cela :

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
36
37
38
39
40
41
42
43
44
45
46
47
48
#!/usr/local/bin/perl
 
use strict;
use warnings;
use FileHandle;
 
 
 
# Fichier d'entrée
#--------------------
 
my $InFile = "P:/Perl/scripts/Files/test.txt";
my $OutFile = FileHandle->new (">P:/Perl/scripts/Files/test2.txt");
 
 
# Ouverture recherches des informations dans le fichier
#---------------------------------------------------------
 
open (InFile,"$InFile") or die "Can't open file\n";
my $LigneIF;
 
while ($LigneIF=<InFile>)
{
 
        my $OK = 0;
 
        # Recherche dans le fichier
        #-----------------------------
        print $LigneIF;
        if ($LigneIF =~ /ligne à supprimer 1/)
        {
                $OK = 1;
        }
        elsif ($LigneIF =~ /ligne à supprimer 2/)
        {
                $OK = 1;
        }
        elsif ($LigneIF =~ /ligne à supprimer 3/)
        {
                $OK = 1;
        }
        if ($OK == 0)
        {
                print $OutFile $LigneIF;
        }
 }
 
close $InFile;

Jasmine,

[elghadi_mohamed]

Bonjour

j'avais écris ce petit bout de code mais il ne marche pas comme il faut:

Code :

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

1
2
3
4
5
6
7
8
9
 
open(FICHIER,"+<test.txt");
while(<FICHIER>){
chomp $_;
if($_=~m/^enregistrement10$/){
print FICHIER "ENREGISTREMENT10";
}
}
close(FICHIER);

voici le contenu du fichier avant modification :

enregistrement1
enregistrement2
enregistrement3
enregistrement4
enregistrement5
enregistrement6
enregistrement7
enregistrement8
enregistrement9
enregistrement10
enregistrement11
enregistrement12
enregistrement13
enregistrement14
enregistrement16
enregistrement17
enregistrement18

et après modification

enregistrement1
enregistrement2
enregistrement3
enregistrement4
enregistrement5
enregistrement6
enregistrement7
enregistrement8
enregistrement9
enregistrement10
enregistrement11
enregistrement12
enregistrement13
enregistrement14
enregistrement16
enregistrement17
enregistrement18
enregistrement1
enregistrement2
enregistrement3
enregistrement4
enregistrement5
enregistrement6
enregistrement7
enregistrement8
enregistrement9
enregistrement10
ENREGISTREMENT10
enregistrement12
enregistrement13
enregistrement14
enregistrement16
enregistrement17
enregistrement18

ok

[Gardyen]

il y a un moyen de faire ça, l'inplace editing

en gros perl va créer un fichier de sauvegarde copie de ton fichier originel, puis faire ce que tu lui dis de faire avec le fichier original

Il faut en revanche lui passer l'option -i en tête du script

voilà un petit exemple

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 -i
# à noter le -i qui indique qu'on procède a de l'inplace editing
 
# définit l'extension du fichier de sauvegarde
local $^I = ".orig";
 
# l'operateur <> lit @ARGV, on écrase sa valeur localement
local @ARGV = ("test.txt");
while(<>){
	chomp;
	if(m/^enregistrement10$/){
                # on change la ligne et on imprime
		print "ENREGISTREMENT10\n";
	}else{
                # rien a faire on imprime la ligne
		print $_,"\n";
	}
}

j'espère que ça t'aidera

[Jedai]

Oui enfin personnellement j'éviterais l'inplace-editing pour autre chose que des unilignes... Ca ne marche que sur ARGV, on n'a pas de contrôle précis sur sa réussite dans le programme, etc..
Notre FAQ contient une section sur la question.

--
Jedaï