从数组Perl中的grep声明变量

Question

我正在制作一个从推文中提取网址的脚本。在运行脚本并将其放入数组中时，它会推出大约30个URL，其中只有一个是正确的。所以我在数组中使用了一个grep和我想要的url的第一部分，得到了'找到它'的输出。

my $tco = "http://t.co";

if (grep /$tco/, @links) {
    print "found it\n";
}

我想知道我是否可以将那行以http://t.co开头并将该行变为变量ex：

$extracted_url = 'what I found in the array'

我该怎么做呢？提前谢谢！，Brett

Answer 1

试试这个：

my @found = (grep /\Q$tco/, @links);
for my $url (@found) {
    print "found $url\n";
}