用PERL-CGI实现网页空间模式

当我在使用cgi perl时，我尝试将两个序列对齐并在网页上打印它们的输出，但这一部分可能有问题，因为我没有在网页上获得所需的输出格式。如果我试图打印一个txt文件的输出，然后它来在我想要的正确方式

代码有问题

print "[$id]\n";
print "Length = $M\n\n";
print "Score = $bitS bits ($S), Expect = $Eval\n";
print "Identities = $matchnum/$totlen ($ipct%), Positives = $sim/$totlen ($Ppct%), Gaps = $gapnum/$totlen ($Gpct%)\n\n";
print "Query ";
print "$_"foreach @align1;
print "\n";
print "      ";
print "$_"foreach @homol;
print "\n";
print "Sbjct ";
print "$_"foreach @align2;
print "\n\n\n";`

输入1

YlggaileavigttlmkfsegftrlwpsvgtiiiCycasfwllaqtlayptgiayawsg

输入2

mkwlilvlgilsnasasvkyamlprrfpsladpmaalsnwpfwlglalygaflya

输出应如下所示：

Score = 82.4 bits (202), Expect = 3.973330e-025
Identities = 40/40 (100.0%), Positives = 40/40 (100.0%), Gaps = 0/40 (0.0%)
Query MTDTTLPPGGDAADRVEPVDIQQEMQRSYIDYAMSVIVGR

      ||||||||||||||||||||||||||||||||||||||||

Sbjct MTDTTLPPGGDAADRVEPVDIQQEMQRSYIDYAMSVIVGR

就像在我的网页上一样，我是这样得到的

Score = 82.4 bits (202), Expect = 3.973330e-025 Identities = 40/40 (100.0%), Positives = 40/40 (100.0%), Gaps = 0/40 (0.0%) Query MTDTTLPPGGDAADRVEPVDIQQEMQRSYIDYAMSVIVGR  |||||||||||||||||||||||||||||||||||||||| Sbjct MTDTTLPPGGDAADRVEPVDIQQEMQRSYIDYAMSVIVGR

---

但是，您并没有输出.txt文件，而是尝试输出HTML，因此必须输出HTML标记，如，
，并正确地构造它。将整个输出包装在标签中应该可以得到您想要的，即添加：

print "<pre>\n";

print "</pre>\n";

打印“\n”；

开始时，以及：

打印“\n”；

---

最后，最好是使用full和标签以外的标签。

虽然您没有输出.txt文件，但您正在尝试输出HTML，因此您必须输出HTML标签，如，
，并正确构造它。将整个输出包装在标签中应该可以得到您想要的，即添加：

print "<pre>\n";

print "</pre>\n";

打印“\n”；

开始时，以及：

打印“\n”；

---

在结尾处，最好使用full和标签，并在其之外。

您返回的是什么内容类型的标题？如果您告诉浏览器希望使用HTML，那么它会将您的数据解释为HTML并忽略任何空白（包括换行符）

---

如果您发送的是纯文本，那么您应该发送文本/纯文本的内容类型。

您返回的是什么内容类型的标题？如果您告诉浏览器希望使用HTML，那么它会将您的数据解释为HTML并忽略任何空白（包括换行符）

---

如果您发送的是纯文本，那么您应该发送文本/纯文本的内容类型。

感谢paul griffiths和Dave Cross分享您的知识。如前所述，我使用了

和

标记，但在对齐显示中出现了相同的错误。。。最后，用

标记解决我的问题。。。。再次感谢……

感谢保罗·格里菲斯和戴夫·克罗斯分享您的知识。如前所述，我使用了

和

标记，但在对齐显示中出现了相同的错误。。。最后，用

标记解决我的问题。。。。再次感谢