我想使用perl在文件中搜索字符串

Question

我想使用perl代码在文件中搜索字符串

我想从样本输入文件中搜索“ unix”字符串

use strict;
use warnings;
my $file = "sample";
open my $fh, '<', $file or die "Could not open '$file' $!\n";

while (my $line = <$fh>) {
   chomp $line;
   my @strings = $line = ~ /unix/g;
   foreach my $s (@strings) {
     print "'$s'";
   }
}

我越来越喜欢

在string.pl第8行第1行的模式匹配（m //）中使用未初始化的值$ _。 '18446744073709551615'

Answer 1

正如人们已经在评论中提到的那样，您有一个小错字。绑定运算符=~的两个字符之间不能有空格。

您可能希望添加不需要的空间会产生语法错误。但是，不幸的是，=和~都用作运算符，因此您得到的语句与语法错误完全不同，而不是语法错误。