使用perl正则表达式进行字符串模式匹配

Question

我需要验证包含年份的字符串 例如蜘蛛侠（2014） 我怎么样？

Answer 1

许多事情看起来像是一年，特别是如果没有界限的话。由于您似乎正在寻找拍摄媒体的制作年代，我们至少可以将它限制在20世纪和2000年代。

$str =~ /\b(?:19|20)[0-9]{2}\b/

如果您感兴趣的年份始终是parens，以下情况会更好：

$str =~ /\((?:19|20)[0-9]{2}\)/

Answer 2

如果你知道这些电影都有4位数字括号，那么以下内容 适合你的想法;）

my $test = 'spiderman (2014)';

if ($test =~ m/[(]+\d{4}[)]+/){
     print "Year is present!\n";
}