while循环中的Perl语法错误

Question

我认为这是一个非常简单的问题，但我不知道这段代码有什么问题：

$seq = "";
$seqlength = length($seq);
$count = 0
while ($line = <>) {
  if (/^>/) {
    $count = 1;
    next; }
  if ($count == 1) {
    chomp;
    $seq .= $line; }
  last if eof(); }

它在第1,3和6行抛出了错误的语法。

提前致谢。

Answer 1

你忘记了一个分号。变化：

$count = 0

为：

$count = 0;

更新：此外，您可能意味着：

  if ($line =~ /^>/) {

use warnings;帮助我找到了那个。还chomp $line;。