Perl Critic违规修复咨询：字符串索引检查中的插值问题

Got it, let's tackle that Perl Critic warning you're hitting. Here's the breakdown and fixes:

What's the issue? #

Perl Critic is flagging '$n' because it notices you've got a variable-like pattern ($n) inside single quotes. Since single quotes in Perl don't interpolate variables—they treat $n as the literal characters $ + n—it suspects you might have accidentally used single quotes when you meant to interpolate the actual value of the $n variable. That's why it's a severity 1 warning (it's a common mistake that can lead to bugs).

Fix Options #

Choose the one that matches your actual intent:

1. You want to check for the value of $n (interpolate the variable)

If your goal is to see if $item contains the string stored in the $n variable, just swap the single quotes for double quotes. Double quotes will replace $n with its actual value:

for my $item (@array) { 
    if (index($item, "$n") != -1) { 
        print "HELLO\n"; 
    } 
}

2. You actually want to check for the literal string $n

If you're intentionally looking for the exact characters $n (not the variable's value), you have two easy ways to suppress the warning:

• Add a Perl Critic exception comment: Tell the linter you meant to use a literal string:

  for my $item (@array) { 
      # perl-critic: ValuesAndExpressions::ProhibitInterpolationOfLiterals
      if (index($item, '$n') != -1) { 
          print "HELLO\n"; 
      } 
  }
  

• Use q{} for literal strings: This is a more idiomatic Perl way to denote literal strings without interpolation, and Perl Critic recognizes it as intentional:

  for my $item (@array) { 
      if (index($item, q{$n}) != -1) { 
          print "HELLO\n"; 
      } 
  }
  

Quick side note #

I also cleaned up the print statement to use \n instead of a raw line break—this is more portable across different operating systems, but feel free to adjust if your original code had a specific reason for the line break.

内容的提问来源于stack exchange，提问作者zubug55