カレントディレクトリを取得する
プログラムを組んでいるとカレントディレクトリを知りたいことが結構よくあります。
実は、Perlでは、カレントディレクトリを取得する組み込み関数はありません。
ですので、標準モジュールのCwdモジュールを使います。
use strict; use warnings; use Cwd; my $cur_dir = getcwd(); print $cur_dir, "\n";
ちなみに、以下の3つは組み込み関数です。
- chdir - チェンジディレクトリ(ディレクトリの変更)
- mkdir - メイクディレクトリ(ディレクトリの作成)
- rmdir - リムーブディレクトリ(ディレクトリの削除)
use strict; use warnings; chdir('wkwk') or die "Can't change dir $!\n"; mkdir('wk') or die "Can't make dir $!\n"; rmdir('wk') or die "Can't remove dir $!\n";