 |
 |
 |
構文 |
|
|
chdir ディレクトリ名 chdir |
|
返り値 |
|
|
1（成功），0（失敗） |
|
説明
- カレント・ディレクトリを変更します。指定しないとホーム・ディレクトリに変更します。
- エラーが発生した場合，$!にエラー情報がセットされます。
使用例
カレント・ディレクトリを/var/logに変更する
#!/usr/bin/perl
use strict;
use warnings;
chdir '/var/log';
カレント・ディレクトリを現在の一つ上に変更する
#!/usr/bin/perl
use strict;
use warnings;
chdir '..';
カレント・ディレクトリをホームディレクトリに変更する
#!/usr/bin/perl
use strict;
use warnings;
chdir;
カレント・ディレクトリを/aaa/bbb/cccに変更する。変更に失敗した場合にはエラー・メッセージを表示する
#!/usr/bin/perl
use strict;
use warnings;
my $dir = '/aaa/bbb/ccc';
if (chdir $dir) {
printf "カレントディレクトリを%sに変更しました。\n", $dir;
} else {
print "カレントディレクトリの変更に失敗しました。\n";
print $!, "\n";
}
カレント・ディレクトリを/aaa/bbb/cccに変更する。変更に失敗した場合にはエラーメッセージを表示する。その後，カレント・ディレクトリ名を表示する
#!/usr/bin/perl
use strict;
use warnings;
use Cwd;
my $dir = '/aaa/bbb/ccc';
if (chdir $dir) {
printf "カレントディレクトリを%sに変更しました。\n", $dir;
} else {
print "カレントディレクトリの変更に失敗しました。\n";
print $!, "\n";
}
my $wd = Cwd::getcwd();
printf "カレントディレクトリは%sです。\n", $wd;
