Discussion :

[myjuna]

Bonjour,

J'ai un soucis avec la fonction unlink qui ne supprime rien du tout chez moi

Code :

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

1
2
3
4
chdir($dir) || die ("Erreur chdir \n") ;
foreach (<*.all>) {
  unlink($_) || die ("Erreur suppression \n") ;
}

j'ai comme erreur "perlglob nest pas reconnue en tant que commande interne ou externe....."

Je veux juste me placer dans le repertoire $dir et supprimer un fichier en .all ....

help, merci !

[Choupi]

Aucune erreur chez moi. Changement de repertoire et suppression. L'erreur nous dit que perglob manque. Verifie ton path.

[Arioch]

N'utiliserais-tu pas Perl2exe par hasard ?

Parce que si oui, il faut que tu passes par du opendir(), du readdir() pour récupérer la liste des fichiers à supprimer.

[myjuna]

Aucune erreur chez moi. Changement de repertoire et suppression. L'erreur nous dit que perglob manque. Verifie ton path.

c koi ca perlglob ?

[myjuna]

Voila mon code :

Code :

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

1
2
3
4
5
my $dir = "c:\\ANA";
my $file = "graphes.all" ;
my $filesupp = $dir . '\\' . $file ;
print "a supp : $filesupp\n" ;
unlink($filesupp) || die ("Erreur suppression \n") ;

Ca ne marche pas ! Pourquoi ?

Je tourne sous perl5.6.1.exe

[Arioch]

Remplace la dernière ligne par ça STP :

Code :

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

unlink($filesupp) || die ("Erreur suppression : $! \n") ;

$! contient l'erreur qui provoque le die()

[myjuna]

c'est pire ca me dit "Erreur suppression : permission denied"

[Arioch]

c'est pire ca me dit "Erreur suppression : permission denied"

ça signifie que tu n'as pas les droits pour supprimer ce fichier, ni même pour l'éditer.

Peut être est-il utilisé (du moins, ton NT le croit-il) par une appli qui tourne en fond ?

Peut-tu supprimer "à la main" ce fichier ?

[myjuna]

oui a la main je peux ! ... l'editer, tout ce que je veux...
et le meme code sur la machine d'un collegue fonctionne a la perfection !

[Choupi]

c koi ca perlglob ?

J'ai trouvé ca sur un site:

Glob: Retourne la valeur de EXPR en tenant compte de l'expansion des noms de fichiers telle que le shell standard Unix /bin/sh la ferait. C'est la fonction interne qui implémente l'opérateur <*.c> mais vous pouvez l'utiliser directement. Si EXPR est omis, $_ est utilisé à la place.

Donc perlglob doit faire ca mais ca ne doit pas être portable. J'en sais pas plus.

Question, sans la suppression tu peux changer de repertoire ? creer un fichier dedans avec perl ?

[myjuna]

jai dl http://www.sysinternals.com/files/NTFILMON.ZIP et checke niveau systeme que mon fichier nest pas utilise par une autre appli qd je tente de leffacer... il ne lest pas !

il y a un autre truc que je pige pas bien : pourquoi est ce quon ecrit :

Code :

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

open(ALLGRAPHS,"$dirANA/graphes.all") ;

qui correspond a c:/ANA/graphes.all

mais :

Code :

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

unlink($filesupp) ;

avec $filesupp qui correspond a c:\ANA\graphes.all

/ \ :

[myjuna]

Question, sans la suppression tu peux changer de repertoire ? creer un fichier dedans avec perl ?

non changer de repertoire je ne peux pas non plus....
creer des fichiers la ou je veux oui je peux par contre.

[myjuna]

J'ai trouvé !!!!

C'est tout simplement parce que j'ouvrais ce fichier dans un autre script et j'avais oublié de le refermer...

mais la ou je comprends pas cest quil aurait du generer une erreur quand je tentais de le RE ouvrir non?

bon ouf

[Choupi]

Si pas de die dans ton script... Non...
Sinon pour info tu as un bouton "editer" tes messages, ca evite d'avoir a lire 3 ou 4 messages de la meme personne. Pense au resolu egalement si c'est fini...