如何在 Perl 的路徑中將目錄提升兩級？

Question

如何從perl中的環境變量向上移動兩個目錄？

sub do_file_tracing {
  my var = "$ENV{IMPORTANT_DIR}";

}

我想在long/path/to/the/important_dir long/path/to/the/important_dir/../../處創建一個文件，即long/path/to/

Answer 1

使用Path::Tiny 。 例如：

use Path::Tiny;
my $dir = path($ENV{IMPORTANT_DIR})->parent(2);

Answer 2

my $dir_qfn = "$ENV{IMPORTANT_DIR}/../..";