Perl映射块本地变量用法

Question

此代码通过一组路径中唯一的基本名称存根的哈希键来编译集合.

%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 => ()

之后我使用地图的键作为一组值进行处理.

Answer 1

basename不默认采取行动$_.但是你可以匹配它的返回值而不是使用$ f:

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

请注意,列表中的()不会生成元素,它只会变平为止; 你必须提供一个价值,即使只是undef.使用$1 => (),地图迭代将交替生成密钥和%存根的值.

在使用$ 1之前总是检查你的正则表达式是否成功是很好的:

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

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

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

Answer 2

在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;