如何在不使用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)));