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

标签 regex perl magnet-uri

我正在尝试使用 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;
}

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

最佳答案

您可以使用:

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

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

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

关于regex - Perl正则表达式匹配来自磁力链接的infohash,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/9520726/

相关文章:

java - 正则表达式匹配精确的子字符串java

perl - Perl脚本无需密码即可执行ssh命令

perl - 如何将此字符串编码为 JSON?

javascript - 在不失去焦点的情况下打开磁力链接

Python 正则表达式 - 替换除少数单词之外的所有单词

c - 如何将 grep 测试划分为并行任务

perl - 黑白 goto &func; 有什么区别吗?和 &func;在 Perl 中?

javascript - 任何验证磁力链接的方法(Javascript)

php - 使用正则表达式将 URL 与模式匹配,返回键数组