![[PukiWiki]](image/logo.png "[PukiWiki]"){kind=logo}
Perlでディレクトリを作成するサンプルコードを以下に記します。
UNIXコマンドのmkdir, mkdir -p相当のサンプルコードです。
htmlinsert(): The given local file does not exist or is not readable.
$ 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>
$ lsb_release -d Description: Ubuntu 12.04.4 LTS
以下のサンプルコードはディレクトリfooとbarを作成するサンプルコードです。
use strict; use warnings; mkdir 'foo'; mkdir 'bar', 0777;
fooはパーミッション指定なし、barはパーミッション指定ありになります。
但し、パーミッション指定をしてもumask値が有効になるので、
例えばパーミッションに777を指定してもumask値が2の場合は775になります。
以下のサンプルコードはディレクトリ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でディレクトリを作成するサンプルコードでした。
