Как я могу найти определенную строку в файле без использования регулярных выражений в Perl?

Question

У меня есть файл, который я хочу прочитать, используя модуль File :: Slurp , а затем найдите в этом файле определенную строку. Я знаю, что в Perl есть регулярные выражения, но строки, которые я ищу, генерируются пользователями, поэтому не нужно беспокоиться о том, чтобы избежать всего. Я мог бы написать цикл foreach, чтобы сделать это, но мне было интересно, есть ли в Perl функция, которая сделает это для меня? Все, что я вижу в Интернете о поиске текста в Perl, использует регулярные выражения.

Answer 1

Вы можете просто использовать регулярное выражение. Вам не нужно беспокоиться о том, чтобы избежать всего, Perl имеет для этого функцию quotemeta (или, альтернативно, "\ Q \ E").

Answer 2

Как это?

use List::Util qw<first>;

my $line 
    = first { index( $_, $something_users_are_looking_for ) > -1 } 
      <$file>
    ;

И если ты хочешь их всех.

my @lines
    = grep { index( $_, $something_users_are_looking_for ) > -1 } 
      <$file>
    ;

Answer 3

Можете ли вы просто использовать строковый литерал, используя q ()?

print(q(This string can contain regex: (\n\t*\n)(\n)));