5

此代码通过一组路径中唯一基名存根的哈希键编译一组。

%stubs = map { $f=basename $_; $f =~ /^([A-Za-z]+[0-9]+)\./ ; $1=>() } @pathlist;

为什么我需要$f这里的参考资料?我以为我可以接受:

%stubs = map { basename; /^([A-Za-z]+[0-9]+)\./; $1=>() } @pathlist;

但我没有匹配。我不允许在地图块中修改 $_ 吗?



对于那些想知道代码在做什么的人:

对于每个 $path (@pathlist),它获取基本名称,匹配第一个字母数字序列,然后返回第一个括号匹配作为空列表值的键。例子:

/some/dir/foo123.adfjijoijb
/some/dir/foo123.oibhobihe
/some/dir/bar789.popjpoj

返回

foo123 => ()
bar789 => ()

之后,我使用地图的键作为值集进行处理。

4

3 回答 3

13

basename 不默认作用于$_。但是你可以匹配它的返回值而不是使用 $f:

%stubs = map { basename($_) =~ /^([A-Za-z]+[0-9]+)\./; $1 => undef } @pathlist;

请注意,列表中的 () 不会产生元素,它只是变平为空;你必须提供一个值,即使只有 undef。使用$1 => (),映射迭代将交替生成 %stubs 的键和值。

在使用 $1 之前,最好始终检查您的正则表达式是否成功:

%stubs = map { basename($_) =~ /^([A-Za-z]+[0-9]+)\./ ? ($1 => undef) : () } @pathlist;

但是,如果您不介意哈希值是空字符串而不是 undef,您可以让正则表达式匹配返回所需的列表:

%stubs = map { basename($_) =~ /^([A-Za-z]+[0-9]+)()\./ } @pathlist;
于 2011-05-19T08:02:40.230 回答
6

在 map 和 grep 中,$_ 是数组中值的别名。如果你修改它们,你实际上修改了数组中的值。这可能不是您想要的,也可能是出了什么问题,但是在这两种情况下都调试打印键 %stubs 和 @pathlist 并让我们知道它说了什么。

另外:File::Basename 的 basename 并不隐式地作用于 $_。它为我生成了一个错误。

#!/usr/bin/perl
use feature say;
use File::Basename;

@pathlist=("/some/dir/foo123.adfjijoijb","/some/dir/foo123.oibhobihe","/some/dir/bar789.popjpoj");
%stubs1 = map { $f=basename $_; $f =~ /^([A-Za-z]+[0-9]+)\./ ; $1=>() } @pathlist;
say join(',',keys %stubs1);
say "---";
say join(',',@pathlist);
say "---";

%stubs = map { $_=basename $_; /^([A-Za-z]+[0-9]+)\./; $1=>() } @pathlist;
say join(',',keys %stubs);
say "---";
say join(',',@pathlist);
say "---";

%stubs = map {basename; /^([A-Za-z]+[0-9]+)\./; $1=>() } @pathlist;
于 2011-05-19T07:24:29.153 回答
0

替代实现:

my %stubs =
   map { $_ => undef }
   map { basename($_) =~ /^([A-Za-z]+[0-9]+)\./ }
   @pathlist;
于 2011-05-19T16:46:34.020 回答