尝试使用 RegEx 在文件中查找特定字符串答案

【问题标题】：Trying to find a specific string in a file with RegEx尝试使用 RegEx 在文件中查找特定字符串
【发布时间】：2018-06-13 08:59:57
【问题描述】：

我有一个格式如下的文件：

define host{
     use             generic-printer
     host_name       imp-p-125
     address         100.68.22.10
     hostgroups      network-printers
    }

 define service{
        use     generic-service
        host_name       imp-p-125
        service_description     Toner 1 Status
        check_command   check_toner1
        check_interval  240
        retry_interval  2
        notification_interval   245
        }

我正在尝试查找 host_name 行 (1imp-p-1251)，目的是不重复文件中存在的主机。

我有以下代码来执行此操作，但它总是告诉我“找到”了我在键盘中输入的所有名称。

sub openFile {

  open(FILE, "/home/server/test2.txt");
  print "file open!\n";
  print "hostname(Example 'imp-p-125'): ";

  my $name = <STDIN>;
  chomp $name;

if (grep{$name} <FILE>){
      print "found\n";
}else{
    print "word not found\n";
}
  close FILE;
}

我正在搜索使用带有 STDIN 方法的 RegEx 的选项，但我找不到任何东西。

提前致谢。

【问题讨论】：

我认为 RegEx 或 regex 是可以接受的...RegEx 使它看起来像一个视频游戏或 ActiveX...
谢谢，但我还在寻求帮助！！

标签： regex string perl file stdin

【解决方案1】：

您误解了grep 函数的作用。它评估传递给它的每个元素的表达式（在本例中为$name），如果为真，则返回该元素。如果$name 包含一个值，那么它将始终为真，因此它将返回文件中的每一行，并且始终打印“找到”结果。

相反，您想使用正则表达式。这就是正则表达式的样子。

if($somevalue =~ /pattern/)

您想要处理每一行，因此您还需要一个循环，例如 while 循环。如果您像许多 Perl 函数和运算符一样省略 $somevalue，它将默认为 $_，这是该循环将用于为您提供文件的每一行的内容。由于$name 可能包含在正则表达式中被视为特殊字符的字符，因此用 \Q 和 \E 将其包围意味着它将被视为只是常规字符。

my $found=0;
while(<FILE>)
  {
  if( /\Q$name\E/ )
    {
    $found=1;
    }
  }
if($found)
  {
  print "Found\n";
  }
else
  {
  print "word not found\n";
  }

您还使用了一种过时的方法来打开文件，也没有检查它是否打开。考虑用这个替换它

if(open(my $file, "<", "/home/server/test2.txt"))
  {
  # Your code to process the file goes inside here
  close($file);
  }

PS 不要忘记将<FILE> 替换为<$file>

【讨论】：