小编use*_*242的帖子

我在Perl中遇到了一个问题.我想用Regex扫描巨大的文本文件.一切正常,但是当我在嵌套的while循环中找到Stop Codon时,第一个while循环接管,但它应该从找到的终止密码子的最后一个位置继续.有人能给我一个暗示在哪里看？

我已经尝试了最后一个声明,但这不起作用.

use strict;
use warnings;
$|=1;

sub read_Fasta {
    my ($filename) = @_;
  open (FIN, "<$filename") or die "Bestand $filename niet te openen\n";
  my $sequence = "";
  while (my $line = <FIN>) {
      if ($line =~ /^\s*$/) {
      next;
    } elsif ($line =~ /^\s*#/) {
      next;
    } elsif ($line =~ /^>/) {
      next;
    } else {
      $sequence .= $line;
    }
  }
  close (FIN);
  $sequence =~ s/\s//g;
  return ($sequence);
}

print "Het vinden van ORF's in een organisme.\n\n";
print …