Discussion :

[richarno]

Bonjour,

Je veux remplacer certaines chaînes de caractères dans un fichier. Je voudrais pour cela utiliser la technique de remplacement "in situ" du livre "Perl best practices" (OReilly, à lire)

Code :

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

1
2
3
4
 
    open my $src,  '<', "config.txt";
    unlink $destination_file;  #ici le fichier "config.txt" est *oublié* par le filesystem
    open my $dest, '>', "config.txt";

Normalement après ces 3 lignes je devrais pouvoir lire le fichier original depuis $src, et l'écriture dans $dest devrait écrire dans un nouveau fichier portant le même nom.

Seulement voilà: Ca ne marche pas (je suis sur Windows XP). Le unlink efface le fichier config.txt, et je ne lis plus rien dans $src.

Une idée ?
Merci, Bruno

[pospos]

Damian le dit, Damian le fait:

http://search.cpan.org/~dconway/IO-InSitu/

[richarno]

Damian le dit, Damian le fait:

http://search.cpan.org/~dconway/IO-InSitu/

Ben non, il le fait pas sur Windows (marche pas):

358607 FAIL 5.8.8 on MSWin32 5.1 (MSWin32-x86-multi-thread)
209996 FAIL 5.8.5 on MSWin32 4.0 (MSWin32-x86-multi-thread)

[pospos]

hummm effectivement...
tiens j'avais jamais essayé d'effacer un fichier et de conserver son $fh sous windows

dans ce cas il te reste toujours la possibilité de creer un nouveau fichier, effacer l'ancien et renommer le nouveau...

[Jedai]

Oui, malheureusement c'est là une différence dans la façon de gérer les fichiers entre Windows et Linux : tant que le fichier est référencé soit par un hard-link soit par un logiciel en train de tourner, il reste sur le disque sous Linux, et on peut tout à fait créer un nouveau hard-link portant le même nom qu'un fichier qu'on vient d'unlinker même si celui-ci existe toujours (parce que référencé par un logiciel en train de tourner). Sous Windows ce n'est pas le cas... On est obligé de contourner le problème en créant un fichier temporaire et en écrasant l'original quand on a fini.

--
Jedaï