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

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

htmlinsert(): The given local file does not exist or is not readable.

関連記事

動作確認環境

ディレクトリを作成する(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でディレクトリを作成するサンプルコードでした。


トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2025-03-12 (水) 11:38:53