如何在perl中拆分当前目录

Question

我需要将当前目录的尾部部分变为变量.我可以做一个

use Cwd;
my $dir = getcwd;

得到完整的路径:usr\bjm\scPDB_entries\4dpt但我真正需要的是' 4dpt'从路径的其余部分分离出来.

谢谢!

Answer 1

文件::基名

use File::Basename qw(basename);
print basename($dir), "\n";