Perl入門ゼミ

テキスト処理、Linuxサーバー管理、Web開発ならPerl
  1. Perl
  2. ファイル操作
  3. here

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

カレントディレクトリ名を取得するには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";