閱讀的Perl CGI參數（輸入）

Question

我試圖拆分輸入到一個WebForm一個$線發出使用CGI.pm

分割是「>」，我有它的命令行工作使用shift來獲取文件到腳本中，但使用webform不起作用 - 即我沒有輸出。這個工程使用移位得到讀取文件中的命令行，如下所示：

my $inFile = shift; 
open (IN, "$inFile"); 
$/ = ">"; 
while (my $record = <IN>) { 
chomp $record; 
my ($defLine, @seqLines) = split /\n/, $record; 
my $sequence = join('',@seqLines); 

但是，使用下面的代碼中的CGI腳本不工作 - 我猜CGI腳本迫使$字符串？但我不知道如何着手

use CGI qw(:cgi-lib :standard); 
print "Content-type: text/html\n\n"; 
my $seq = param('sequence'); 
$/ = ">"; 
chomp $seq; 
my ($defLine, @seqLines) = split /\n/, $seq; 

任何建議，不勝感激

Answer 1

你有什麼文件：

local $/ = ">"; 
while (my $record = <IN>) { 
    chomp($record); 
    my ($defLine, @seqLines) = split /\n/, $record; 
    my $sequence = join('',@seqLines); 
    ... 
} 

等價的字符串：

for my $record (split />/, $sequence) { 
    my ($defLine, @seqLines) = split /\n/, $record; 
    my $sequence = join('',@seqLines); 
    ... 
}