一个在Perl中访问数组元素的行程序?

应该是:

use Cwd;
...

my $grandParent = ( split '/', getcwd ) [-2];

附录: 另一种方式(更像是“珍珠”):

...

my ($parent, $grandParent) = reverse split qr{/}, getcwd();

(考虑到 tchrist's 好建议

附录2: 一些评论:

有时,可能没有 $grandparent 目录。 如果在unix系统的根目录中使用'/',上面将 导致:

 $parent = undef;
 $grandParent = undef;

如果在“/”正下方的目录中,例如“/somedir”,

 $parent = 'somedir';
 $grandParent = ''; # empty string

所以你可以检查一下那个条件。而且, reverse 颠倒被分割路径元素的顺序,这样您就知道 需要看现在(前)两个元素来知道你在哪里。

当做

RBO

将拆分结果放入临时列表:

my $grandParent = (split( "/", getcwd ))[-2];

要记住的精简:

1. 您必须考虑到没有返回足够的列表元素,以及当适用的元素最终成为空字符串时。
2. split() _的第一个参数是一个模式,而不是字符串,因此您应该通过将其作为匹配操作写入来提醒人们。

3. getcwd() 是一个空函数,而不是一个空词,所以应该使用空parens来提醒人们。

   $grandparent = ( split(m{ / }x, getcwd()) )[-2] || "/";
   

这在非POSIX文件系统上不起作用;相反,请参见 File::Spec .

请忽略So__的白痴色彩证明主义,它弊大于利。

一种便携的方式是使用 splitdir 方法 File::Spec :

use Cwd;
use File::Spec;

my $grand_parent = ( File::Spec->splitdir( getcwd() ) )[-2] || File::Spec->rootdir();