Comment créer un répertoire et des répertoires parents dans une seule commande Perl?

En Perl, comment puis-je créer un sous-répertoire et, en même temps, créer des répertoires parents s'ils n'existent pas? Comme UNIX est mkdir -p de la commande?

source d'informationauteur skiphoppy

  1. 24
    use File::Path qw(make_path);
make_path("path/to/sub/directory");

    Le obsolète mkpath et préféré make_path découle d'une discussion en Perl 5 Porteurs de fil qui est archivé ici.

    En un mot, Perl 5.10 test s'est jusqu'à la maladresse de l'argument de l'analyse de l'makepath() de l'interface. Donc, il a été remplacé par une version plus simple qui a eu un hachage comme le dernier argument pour définir les options de la fonction.

  2. 3

    Utilisation mkpath du Fichier::Chemin d'accès du module:

    use File::Path qw(mkpath);
mkpath("path/to/sub/directory");
  3. 3

    De bien vouloir l'ignorer si vous êtes à la recherche d'un module Perl avec 'mkdir -p' de la fonctionnalité, mais le code suivant devrait fonctionner:

    my $dir = '/root/example/dir';

system ("mkdir -p $dir 2> /dev/null") == 0 
    or die "failed to create $dir. exiting...\n";

    Vous pouvez utiliser un module, mais alors vous devez l'installer sur chaque serveur vous allez porter votre code sur. Je préfère en général utiliser la fonction du système pour un travail comme mkdir parce qu'il est une moindre frais généraux pour l'importation et l'appel d'un module quand j'ai besoin qu'une seule fois pour créer un répertoire.

  4. 0

    ref http://perldoc.perl.org/File/Path.html

    "La make_path fonction crée l'donnée répertoires s'ils n'existe pas [sic!] avant, à l'instar de la commande Unix mkdir -p"

  5. 0

    mkdir() permet de créer des répertoires dans votre script Perl.

    Exemple:

    use strict;
use warnings;

my $directory = "tmp";

unless(mkdir($directory, 0755)) {
        die "Unable to create $directory\n";

    Ce programme, créer un répertoire "tmp" avec les autorisations pour 0755 (seul le propriétaire a l'autorisation d'écrire dans le répertoire; les membres du groupe et les autres peuvent seulement afficher les fichiers et liste le contenu du répertoire).