PERL CGI网页上的空间模式

Question

当我正在研究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 YLGGAILAEVIGTTLMKFSEGFTRLWPSVGTIICYCASFWLLAQTLAYIPTGIAYAIWSG

输入2 MKWLILVLGILSNASASVLVKYAMLPPRRFPSLADPMAALSNWPFWLGLALYGGAFLLYA

输出应该只是这样:

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

Answer 1

你回来了什么内容类型的标题？如果您告诉浏览器期望HTML,那么它会将您的数据解释为HTML并忽略任何空格(包括换行符).

如果您要发送纯文本,那么您应该发送内容类型的text/plain.