在Perl中匹配不起作用

Question

我正在尝试匹配以＆gt;开头的行，但不起作用...

#!/usr/bin/perl

while ($lines = <>) {
  $count++;
  if (/^\#/) {
    next;
  }
  elsif (/^>/) {
    print "hola";
  }

}

有什么想法吗？

Answer 1

你想要匹配$ _而不是$ lines 将其更改为

#!/usr/bin/perl

while ($lines = <>) {
  $count++;
  if ($lines =~ /^\#/) {
    next;
  }
  elsif ($lines =~ /^>/) {
    print "hola";
  }

}