Perl 迭代每个匹配项

使用Perl编程语言可以很方便地迭代每个匹配项。迭代是指在一个集合中逐个访问元素的过程。在Perl中，可以使用正则表达式来匹配字符串，并使用迭代来遍历所有匹配项。

perl
my $string = "这是一个测试字符串，其中包含一些数字：12345";
while ($string =~ /(\d+)/g) {
    my $match = $1;
    print "匹配到数字：$match\n";
}

perl
my $string = "这是一些URL链接：http://www.example.com, https://www.google.com, http://www.baidu.com";
while ($string =~ /(https?:\/\/([^\/]+))/g) {
    my $url = $1;
    my $domain = $2;
    print "URL链接：$url\n";
    print "域名部分：$domain\n";
}