Discussion :

[Aymen_bass]

bonjour!
je débute en Perl et j'ai eu un problème avec le module Copy::File et la fonction move ( j'ai lu le FAQ et fais des recherche sur google mais en vain!)
Mon programme supprime la chaine de caractère "<iframe...>...</iframe>" dans un fichier X.txt(reçu en argument), deplace le fichier original X.txt dans un dossier backup et renomme le nouveau fichier 2X.txt (qui ne contient plus la chaine et créé par le programme). #c'est très simple
voici le code:

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
use File::Copy;
open(FILE2, ">2".$ARGV[0] ) or die ("prob");
open my ($FILE1), '<', "$ARGV[0]"  or die "probleme\n";
 
while( my $line = <$FILE1> ) {
 
	if ( $line =~ /<iframe .+>.+<\/iframe>/ ) {
 
		print "existe et a ete supprime\n";
 
                 $line =~ s/<iframe .+>.+<\/iframe>/ /g;	
}else 
	{
       print FILE2 "$line\n" ;
}
}
 
close(FILE1);
close(FILE2);
#$oldlocation ="$ARGV[0]" ;
#$newlocation = "Backup/$oldlocation"; 
move( $ARGV[0], "Backup/".$ARGV[0]) or die "fail to move";
rename("2".$ARGV[0] , $ARGV[0]) or die "fail to move";
print"fin\n";

***************************Problème:
Les fonctions move et rename marchent très bien quands elles sont "apart" mais ne font rien dans ce cas-ci!
Pouvez m'aider?
merci

[iblis]

Tu ouvres le même fichier (nom passé en ARGV) deux fois. (Ou alors veux-tu un 2 devant le nom de ficher ?)

Utilise les pragmas strict et warnings, cela t'évitera ce genre de souci.

Aussi, mieux vaut se tenir aux scalaires pour handle de fichier.

Code :

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

1
2
open my $rfh, '<', ARGV[0] or die "$!\n";
open my $wfh, '>', ARGV[1] or die "$!\n";

[Aymen_bass]

@iblis: j'ai ouvert 2 fichiers differents: X.txt(en mode lecture) et 2X.txt(en mode écriture) la suppression marche très bien..mais les fonctions move et rename non!! et pourtant elles marchent bien quands elles sont seules( càd en commantant tout le programme après la suppression) ou en lançant rename et move dans une nouvelle fenetre..mais c'est pas ça ce que je cherche
Merci Iblis
le message d'erreur est le suivant:
fail to move at remove-sp.pl line 38, <$FILE1> line 4479.

[iblis]

Essaie avec un chemin absolu.

Et quand tu "die" fais afficher l'erreur : die "Move failed: $!\n";

Tu es sûr d'avoir les droits d'écriture vers Backup/ au fait ? ($! devrait te dire ce qu'il en est).

[Aymen_bass]

c'est vrai!
"$!" a fait sortir l'erreur suivante: 'Permission Denied'
ce qui veut a priori dir que je n'ai pas le permission d'ecriture!
comment l'autoriser a le faire?

[iblis]

c'est vrai!
"$!" a fait sortir l'erreur suivante: 'Permission Denied'
ce qui veut a priori dir que je n'ai pas le permission d'ecriture!
comment l'autoriser a le faire?

Par exemple :

Code shell :

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

chmod u+w /path/to/Backup

[Aymen_bass]

il falé juste mettre Close ($file1);



merci a toi Iblis
ces forums ont aidé beaucoup de gens!