カレントディレクトリ名を取得する

カレントディレクトリ名を取得するにはCwdモジュールのgetcwd関数を使います。

use Cwd 'getcwd';
my $cur_dir = getcwd;

カレントディレクトリ名を取得するサンプルです。

use strict;
use warnings;
use Cwd 'getcwd';

# カレントディレクトリ名を取得する。
print "1: カレントディレクトリ名を取得する。\n";
my $cur_dir = getcwd;
print $cur_dir, "\n";