Perl/サンプル/ディレクトリを作成する・mkdir・mkpath

• Prev
• Next
• Perl/サンプル

Perlでディレクトリを作成する・mkdir・mkpath †

Perlでディレクトリを作成するサンプルコードを以下に記します。
UNIXコマンドのmkdir, mkdir -p相当のサンプルコードです。

関連記事 †

• ファイルから1行ずつ読み込む方法
• Perlでファイル・ディレクトリの有無を確認する
• Perlでディレクトリを作成する・mkdir・mkpath
• Perlでパーミッションを変更する・chmod

動作確認環境 †

• Perl

  $ perl -v
  
  This is perl 5, version 14, subversion 2 (v5.14.2) built for i686-linux-gnu-thread-multi-64int
  (with 57 registered patches, see perl -V for more detail)
  <snip>

• OS

  $ lsb_release -d
  Description:    Ubuntu 12.04.4 LTS

ディレクトリを作成する(UNIXコマンド mkdir相当) †

以下のサンプルコードはディレクトリfooとbarを作成するサンプルコードです。

use strict;
use warnings;

mkdir 'foo';
mkdir 'bar', 0777;

fooはパーミッション指定なし、barはパーミッション指定ありになります。
但し、パーミッション指定をしてもumask値が有効になるので、
例えばパーミッションに777を指定してもumask値が2の場合は775になります。

ディレクトリを作成する(UNIXコマンド mkdir -p相当) †

以下のサンプルコードはディレクトリfoo/bar/hogeを作成するサンプルコードです。
File::Pathを使用することにより複数階層のディレクトリを作成することができます。

use strict;
use warnings;
use File::Path;

mkpath 'foo/bar/hoge'

上位のサンプルコードを実行した後の作成されたディレクトリをtreeコマンドで確認しています。

$ LANG=C tree foo
foo
`-- bar
    `-- hoge

また、配列で渡すことにより複数のディレクトリを一度に作成することができます。

use strict;
use warnings;
use File::Path;

mkpath ['foo/bar','hoge'];

上位のサンプルコードを実行した後の作成されたディレクトリをtreeコマンドで確認しています。

$ LANG=C tree foo hoge
foo
`-- bar
hoge

以上、Perlでディレクトリを作成するサンプルコードでした。