Random Access File

Version imprimable

06/11/2007, 18h01
elghadi_mohamed

Random Access File

Bonjour :D

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 :D

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:

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,

07/11/2007, 10h18
elghadi_mohamed
Bonjour

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

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 :

Citation:

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

et après modification

Citation:

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 :king:

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:

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

07/11/2007, 18h59
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ï