如何从目录名称中提取父目录的名称？

Question

基本上我有一个环境变量,它存储目录的位置,如下所示

export MYPATH=/home/test/mysamplepath

现在在Perl脚本中我想知道该目录上方的一个路径要么使用函数,要么可以删除最后一个部分的表达式,如下所示

$myNewPath = '/home/test'

Answer 1

use File::Basename;
my $myNewPath = dirname($ENV{MYPATH});