[問題] cgi system問題
小弟最近試著想用Perl寫CGI來跑BLASTP
功能是想從網站上接收資料存成一個fasta檔，來跟我建好的資料庫跑Blastp，
但是跑到system指令的時候卻沒出現text.txt，不曉得是不是我漏了甚麼東西?
#!c:\perl64\bin\perl.exe
use CGI;
$q=CGI->new;
print "Content-type: text/html\n\n";
print "<HTML>\n<HEAD>\n<TITLE>Result</TITLE>\n<BODY>\n";
$sq=$q->param('SQ');
print $sq;
open FOUT, ">output.fasta";
print FOUT $sq;
close FOUT;
$blastp_cmd="blastp.exe -task blastp -query output.fasta -db AFP.fasta
-out text.txt";
system("$blastp_cmd");
open FP1,"<text.txt";
while(<FP1>)
{
print $_."\n";
}
close FP1;
print "</BODY>\n</HTML>";
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.221.52.113
推
10/23 18:46, , 1F
10/23 18:46, 1F
→
10/24 14:27, , 2F
10/24 14:27, 2F
→
10/24 17:06, , 3F
10/24 17:06, 3F
推
10/24 19:27, , 4F
10/24 19:27, 4F
推
10/24 19:31, , 5F
10/24 19:31, 5F
→
10/24 22:57, , 6F
10/24 22:57, 6F
→
10/24 22:58, , 7F
10/24 22:58, 7F
→
10/24 23:01, , 8F
10/24 23:01, 8F
→
10/24 23:02, , 9F
10/24 23:02, 9F
推
10/25 17:34, , 10F
10/25 17:34, 10F
→
10/26 00:41, , 11F
10/26 00:41, 11F
→
10/26 00:45, , 12F
10/26 00:45, 12F
→
10/26 00:48, , 13F
10/26 00:48, 13F
→
10/26 00:50, , 14F
10/26 00:50, 14F
→
10/26 01:25, , 15F
10/26 01:25, 15F
→
10/26 01:25, , 16F
10/26 01:25, 16F
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
