regex - Perl正则表达式匹配来自磁力链接的infohash

Question

我正在尝试使用 perls 正则表达式从 torrent 磁力链接中提取信息哈希
磁力链接如下所示:

磁铁:?xt=urn:btih:8AC3731AD4B039C05393B5404AFA6E7397810B4​​1&dn=ubuntu+11+10+oneiric+ocelot+desktop+cd+i386&tr=http%3A%2F%2Ftracker.openbittorrent.com%2Fannounce

但有时它可能看起来像:
磁铁:?xt=urn:btih:8AC3731AD4B039C05393B5404AFA6E7397810B4​​1

我试图提取的部分是8AC3731AD4B039C05393B5404AFA6E7397810B4​​1

我试图捕获第一个“&”之前的所有内容，或者如果它只包含信息哈希，然后直到该行的末尾，我尝试了几种方法，但无法让它正常工作
我只在下面有什么捕获第一个字符

if ($tmpVar =~ m/magnet\:\?xt=urn\:btih\:([[:alnum:]]+?)/i) {
  $mainRes{'hash'} = $1;
}

我还尝试在捕获后添加 &|$ 但这只会导致错误
谢谢

Answer 1

您可以使用:

/\burn:btih:([A-F\d]+)\b/i

或者如果哈希值始终为 40 个字符:

/\burn:btih:([A-F\d]{40})\b/i