【初学者请教】如何从依据模式匹配串取出子串？？

《Perl语言编程》47p
假设你在一个日志文件或邮箱中搜索。并且希望分析一些包含象
“12:59:59 am” 这样形式时间的字符串，你可以使用下面的写法：

($hour, $min, $sec, $ampm) = /(\ed+):(\ed+):(\ed+) *(\ew+)/;

这是一种同时设置多个变量的简便方法,但是你也可以简单的写:

@hmsa = /(\ed+):(\ed+):(\ed+) *(\ew+)/;

这里将所有四个值放进了一个数组。
---------------------------------------------------------------------------------------------
写程序实践时，对如何利用原串和模式串将时分秒解析出来这个问题，遇到了困难，还请指教
code:

$date = "12:59:59 am"; ($h,$m,$s,$ampm) =$date =~ m/(\ed+):(\ed+):(\ed+) *(\ew+)/g; print $h;

$h无法取得小时的串,到底应该怎么写呢？？

去掉\e

谢谢，已经好用了。

还想再问一下，出现问题的原因是因为印刷错误，根本就没有\ed+这种模式串吗，

或是\ed+还有其它的应用场景？

\e  是  匹配逃逸字符（ASCII ESC，不是反斜杠）。

不知道你看的是哪本书？我手里的Perl语言编程第三版，纸的，那个例子在P63，没有\e

是阿 中文版 是在63页，没有／e阿