Perl：帮助编写正则表达式

Question

我正在尝试为以下3种情况编写一个通用的正则表达式：

• 邪恶力量_S07E23_720p_HDTV_X264-DIMENSION.mkv
• 听众313.480p.hdtv.x264-2hd.mkv
• 我如何与您的母亲相伴s02e07.hdtv.x264-xor.avi

现在我的例行表达应从原始字符串中删除系列名称，即上述字符串的输出为：

• S07E23_720p_HDTV_X264-DIMENSION.mkv
• 313.480p.hdtv.x264-2hd.mkv
• s02e07.hdtv.x264-xor.avi

现在，对于supernatural string的基本情况，我编写了以下正则表达式，它可以正常工作，但是一旦系列名称得到多个单词，它就会失败。

$string =~ s/^(.*?)[\.\_\- ]//i; #delimiter can be (. - _ )

因此，我不知道如何针对\\w+{1,6}上述情况继续进行处理，但是它也无法满足要求。

PS：对正则表达式在做什么的解释将不胜感激。

Answer 1

您可以检测。的下一个标记是否包含数字，如果没有，则将其视为名称的一部分。

但是，我个人认为没有完美的解决方案。 它仍然会遇到类似以下问题：

24.313.480p.hdtv.x264-2hd.mkv            // 24
Warehouse.13.s02e07.hdtv.x264-xor.avi    // warehouse 13

Answer 2

正如StanleyZ所说的那样，您总是会遇到包含数字的名称的麻烦。

但是，如果您采取这些特殊情况，可以尝试：

#perl

$\=$/;

map {

    if (/^([\w\.]+)[\.\_]([SE\d]+[\.\_].*)$/i) {
        print "Match : Name='$1'        Suffix='$2'";
    } else {
        print "Did not match $_";
    }
}
qw!
    Supernatural_S07E23_720p_HDTV_X264-DIMENSION.mkv
    the.listener.313.480p.hdtv.x264-2hd.mkv
    How.I.met.your.mother.s02e07.hdtv.x264-xor.avi
  !;

输出：

Match : Name='Supernatural'     Suffix='S07E23_720p_HDTV_X264-DIMENSION.mkv'
Match : Name='the.listener'     Suffix='313.480p.hdtv.x264-2hd.mkv'
Match : Name='How.I.met.your.mother'     Suffix='s02e07.hdtv.x264-xor.avi'

注意：您不是在做违法的事吗？ ;）