perl - 如何在 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/

标签： perl

Answer 1

使用Path::Tiny。例如：

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