看看这个表达式的含义

qmhball

$b{(/(\w+)/)[0]};
      |  |
      |  |
     (2)(1)

对于两层小括号的理解，大家看看对不对。
(1)是为了记忆正则表达式匹配到的内容，存在$1中。
(2)是为了将匹配到的结果形成数组，以便与后面的[0]形成列表切片。

对否？

ulmer

Yes.
Regexp matches default var $_ and saves pattern matched as $1
and returns as a list, get first element fron the list as hash %b's
key.

Code skeleton:
$b{foo} = 'hi, perl';
$_ = "---, foo, bar";
@list = $_ =~ /(\w+)/;
$key = $list[0];
print $b{$key};

--ulmer

qmhball

Thanks a lot!
You're a nice person.