如何递归匹配一定数量的数字？

Question

我正在尝试匹配来自匹配标记数组的HTML输出中出现的6位数字：

foreach (@name) {
        print $_->as_HTML =~ m/([0-9]*){6}/ . "\n";
};

怎么办？这可能不起作用，你可能会注意到。

---

实际上，我想我已经得到了它：

foreach (@name) {
        print $_->as_HTML =~ m/[0-9]{6}/g;
        print "\n";
};

Answer 1

您可能需要以下内容：

my @numbers = $_->as_HTML =~ m/\d{6,}/g;

从文档中提取6位或更长的所有数字。