Как поймать ".model" в Perl

Question

Мой входной файл имеет следующее содержимое:

1.1 CORE VT MODEL                             
.model ABC
model selector

Я использовал этот код для перехвата строки ".model"

if ($array=~ "\.model")

, но мой выходной файл перехватывает все "модели"Строка в моем входном файле.Так, как я могу поймать строку ".model" в моем входном файле?Большое вам спасибо

Answer 1

Сделайте то, что вы сопоставляете с регулярным выражением, а не строкой в ​​двойных кавычках:

$array =~ /\.model/;

В противном случае Perl сначала обработает строку в двойных кавычках, не покидая экранированную точку, а затем передастстрока ".model" для компилятора регулярных выражений.