Perl: Comment faire pour supprimer les fichiers, dossiers et sous-répertoires à l'aide de “rm”?

Je suis en train de supprimer des fichiers et des dossiers à l'aide de mon script perl. Je suis à l'aide de la "rm -rf $fichier" commande pour supprimer le fichier mais sa ne fais rien.
Cependant, lorsque j'essaie la même commande sur la ligne de cmd il fonctionne et supprime les fichiers de l'amende juste.
Ci-joint l'extrait de code. Toute aide est appréciée.

for each $f (@files)
{
       system "rm -rf $f";
}

J'ai essayé cela sur un couple de machines et de son le même problème. Cependant, j'ai essayé d'utiliser d'autres commandes du système tels que mkdir, goudron etc et il fonctionne très bien.
J'ai aussi essayé de supprimer les liaisons, mais le même problème persiste.

  • Avez-vous essayé de lancer ce dans le débogueur?
  • Pourquoi voulez-vous utiliser system pour supprimer des fichiers?
  • Pourquoi ne pas utiliser remove_tree à partir de File: Chemin d'accès?
  • Nope. Je suis nouveau sur Perl et je vais donner un coup de cette.
  • À tout le moins, protéger des noms de fichiers avec system rm => -rf => $_. Il est tout aussi facile que ce que vous avez. Le prendre comme naturelles par défaut et n'utiliser que les autres types d'invocation lorsque vous avez une bonne raison de l'utiliser.
InformationsquelleAutor Naveen Gowda | 2012-04-19
  1. 4

    Vous pouvez utiliser for ou foreach, mais il n'y a pas de for each. J'ai exécuter le code, une fois que j'ai corrigé cela, les fichiers ont été supprimés.

    À l'aide de use strict; aurait trouvé cela, parce que "chacun" aurait montré comme un simple mot.

    Voici le code que j'ai utilisé:

    #!/usr/bin/perl

use warnings;
use strict;

my @files = qw( a.txt b.txt c.txt );

for my $f (@files)
{
   system "rm -rf $f";
}

    Cette supprimé avec succès a.txt, b.txt et c.txt, donc je peux vous garantir que c'est du code qui fonctionne.

    Utiliser le débogueur perl pour inspecter @fichiers et vérifier les autorisations sur tous les fichiers que vous tentez de supprimer.

    • En fait, each est une fonction Perl.
    • Leffler, Pas dans cette situation, il ne l'est pas. for each $f (@files) { ... } n'est pas valide la syntaxe.
    • Désolé de mon erreur sur le code, c'était une faute de frappe. Je suis en utilisant foreach dans mon code mais le problème persiste. Pour ajouter à cela, il a été fonctionne correctement dernier après-midi, mais depuis j'ai fait plusieurs changements de mon code, mais ce peu est à l'origine des problèmes et je ne suis pas encore en mesure de comprendre pourquoi.
    • C'était une erreur stupide. Je force spécifier le chemin d'accès complet vers le fichier lors de la suppression et j'étais juste en passant le nom de fichier. Je l'ai corrigé et sa fonctionne très bien. Merci à tous!
    InformationsquelleAutor Barton Chittenden
  2. 1
    use File::Path;
rmtree('folder_path');  #rmtree('/tmp/test');
    InformationsquelleAutor Mujeeb khan
  3. 0

    Si il y a uniquement les fichiers et pas les dossiers dans votre @files tableau, alors vous pouvez aussi utiliser le unlink de commande qui supprime les fichiers. C'est probablement plus sûr que d'utiliser rm -rf. Si l'élément / devient en quelque sorte en votre tableau alors vous pourriez vous retrouver avec une fracture de Linux avec rm -rf. Délier sur perldoc.

    unlink @files;
    • J'ai des fichiers et des dossiers qui doivent être supprimés, et donc j'ai été aide de la commande rm -rf. Mais dissocier devrait fonctionner très bien sur les deux fichiers et les dossiers de droit?
    InformationsquelleAutor simbabque