0

このサブルーチン (ルート ディレクトリではない有効なパスで呼び出された) が親ディレクトリを返さない状況はありますか?

use Cwd qw( realpath );
use File::Basename qw( dirname );

sub parent_dir {
    my $dir = realpath shift;
    return dirname $dir;
}
4

1 に答える 1