Question

我一直在尝试使用cgi bioperl实现全局对齐算法。代码工作正常，使用命令提示符完成两个序列之间的对齐。但是使用cgi，两个序列的对齐并不完美。它有点不合适。这是我的对齐代码：

@firstarray = split //, $align1;
@secondarray = split //, $align2;

$sizeoffirst = $#firstarray + 1;
$sizeofsecond = $#secondarray + 1;

print "$sizeoffirst\n"."<br/>";
print "$sizeofsecond\n"."<br/>";

$k = 0;
while ($k <= $sizeoffirst)
  {
    $count = 1;
    $l = $k;
    while ($count <= 30)
      {
        print $firstarray[$l];
        $count++;
        $l++
      }
    print "\n"."<br/>";

    $count = 1;
    $m = $k;
    while ($count <= 30)
      {
        print $secondarray[$m];
        $count++;
        $m++;
      }

    print "\n"."<br/>";
    print "\n"."<br/>";
    $count = 1;
    $k = $k + 30;
  }

与字母相比，“破折号”（为了表示间隙）非常小。因此，对齐移出了该位置。我该怎么办？

Answer 1

您应该使用<pre>，以便在网页上维护您的格式。 - Barmar

或<table>。这是显示列表数据的方式。另外，总是use strict; use warnings;。 - 托托

通过cgi-perl完成对齐

1 个答案: