作者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