Déplacer le Répertoire en perl

Je suis en train de les déplacer d'un répertoire à l'aide de perl dans le même volume dans ubuntu.

J'ai utilisé le déplacer ( File::Copy ) commande Perl comme ci-dessous

move($dir1, $dir2);.  # Doesn't work.

Expecation est que $dir1 sera place sous $dir2 après le déménagement. Mais j'ai reçu un message d'erreur indiquant que 'Est un répertoire'.

Mais lorsque j'utilise le système mv, il fonctionne parfaitement. 

system("mv $dir1 $dir2"); #This works!.

J'ai cherché sur google et compris que la démarche fonctionne exactement comme mv dans linux?. Des idées?

InformationsquelleAutor yogi_en | 2012-12-24
  1. 12

    Si vous souhaitez déplacer le répertoire ./dir1 sous ./dir2 appel déplacer comme ceci:

    move("./dir1", "./dir2/dir1");

    Je pense que vous faites:

    move("./dir1", "./dir2/");

    qui se plaint parce que ./dir2 existe déjà.

    • Merci pour la réponse. Vais essayer cela. J'étais sous l'impression que le comportement de système mv et perl déplacer sont exactement les mêmes. Regarde comme il y a quelques différences d'utilisation!.
    • Essayé ce. Cela fonctionne comme prévu. Merci!
    • Tous les sept de ces ./ sont inutiles!
    • Sans eux, les trucs un peu bizarre pour moi, mais merci. Je suis content il y a seulement 7 🙂
    InformationsquelleAutor perreal
  2. 0
    use File::Copy::Recursive;
rmove('foo/bar/baz', '/etc/');
    • Ce que j'ai essayé. Regarde rmove est en train de faire un copier puis de supprimer l'original. Trop lent et ne servent pas mon but.
    InformationsquelleAutor hypo