string pattern matching using perl regex

Question

Мне нужно проверить строку, которая содержит год или нет например, человек-паук (2014) как я могу?

Answer 1

Так много вещей выглядят год, особенно если они не ограничены. Поскольку вы, кажется, ищете годы производства видеоматериалов, мы можем по крайней мере ограничить его до 1900-х и 2000-х годов.

$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"; 
}