使用Perl正則表達式的字符串模式匹配

Question

我需要驗證一個包含年份的字符串 例如spiderman（2014） 我怎麼能？

Answer 1

很多事情看起來像一年，尤其是如果沒有限制的話。由於您似乎在尋找電影媒體的製作年代，我們至少可以將它限制在20世紀和20世紀的年代。

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

如果您感興趣的一年總是會在括號，下面會更好：

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

Answer 2

如果你知道電影都有4位數的年括號那麼下面 將適合你的想象;）

my $test = 'spiderman (2014)'; 

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