作者FEmessenger ()
看板perl
标题[问题] 有关 split 的问题求救~~
时间Fri Dec 1 12:31:28 2006
是这样的
我用 perl 写了一支 CGI 然後对输入的字串做切割後要输出从网页列印出来
我输入了约有 7000 个字母左右的 DNA sequence
以下是我的 CGI code:
$info = <STDIN>;
@a=split/&/, $info;
@raw1=split/=/, $a[0];
@raw2=split/=/, $a[1];
@raw3=split/=/, $a[2];
$ratio=$raw1[1];
$long=$raw2[1];
$seq=$raw3[1];
print "Content-type:text/html\n\n";
print $a[0], "<BR>", $a[1], "<BR>", $a[2], "<BR>";
print $raw1[0],"<BR>", $raw1[1],"<BR>";
print $ratio,"<BR>";
print $raw2[0],"<BR>", $raw2[1],"<BR>";
print $long,"<BR>";
print $raw3[0],"<BR>", $raw3[1],"<BR>";
print $seq;
exit (0);
------------------------------------------------------
照理说在输出的网页上
"print $raw3[1]", 以及 "print $seq" 这两个地方应该要印出那 7000 个字母才对
可是这两个地方列印出来的东西却都很诡异地被切掉将近一半
但是在 "print $a[2]" 的地方又可以完整输出
(也就是S1=AGTCGTCGCT... 我的目的是要把 "S1=" 去掉 把剩下的存到另一个变数去)
如果另外写一个 .pl 的 file 仿照上面的写法在命令提示字元底下执行却是 ok 的
所以我实在不晓得问题何在 拜托熟悉 perl CGI 的高手指点一下小弟呀 Orz
以下是我的 html code DNA sequence 从这个页面的文字区域传进去递送到 CGI 处理
<body>
<p><font face="Arial Black" size="5">CpG island searcher</font></p>
<p><font face="Times New Roman" size="4">o/e ratio</font></p>
<form method="POST" action="/cgi-bin/test2.cgi">
<!--webbot bot="SaveResults" u-file="fpweb:///_private/form_results.csv" s-format="TEXT/CSV" s-label-fields="TRUE" --><p>
<input type="radio" value="23" checked name="o/e ratio"> 23<BR>
<input type="radio" name="o/e ratio" value="10"> 10<BR>
<input type="radio" name="o/e ratio" value="0.55"> 0.55<BR>
<font face="Times New Roman" size="4">length</font></p>
<input type="radio" name="length" value="200" CHECKED> 200<BR>
<input type="radio" name="length" value="500"> 500<BR>
<p><font face="Times New Roman" size="4">paste DNA sequence below:</font></p>
<p><textarea rows="14" name="S1" cols="50"></textarea></p>
<p><input type="submit" value="submit" name="B1"><input type="reset" value="reset" name="B2"> </p>
<p> </p>
</form>
<p> </p>
</body>
(文字区域上方的一些选项勾选没有影响 我的 CGI 还没有对那个地方做处理)
再次拜托各位高手了 小弟我实在百思不得其解呀........
先向大家谢过了
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.129.5