Question

因为我需要根据长度的差异打印（693到 712）如同在所有序列中提到的那样。如果我输入长度为 20它应该只打印不同的序列20，如果我输入文本框值为20，下拉选择大于应有的值打印匹配大于20的seuences的长度。

example.txt中

GGATCACGAGGTCAGGAGAT (693 TO 712)   ATCTCCTGACCTCGTGATCC (3223 TO 3242)
CAAAAAAAAAAAAAAAAAAA (917 TO 936)   TTTTTTTTTTTTTTTTTTTG (2998 TO 3017)
GAAACCCCGTCTCTACTAAAAATACAAAAAA (737 TO 767)    TTTTTTGTATTTTTAGTAGAGACGGGGTTTC (3168 TO 3198)

perl的

#!usr/local/bin/perl
open(IN,"/home/httpd/cgi-bin/r/example.txt")|| die("Cannot open file");
while(<IN>)
{
    if($_ =~ /^\w+\s+\((\d+)\s+[to]+\s+(\d+)\)/i )
    {
        $data=$_;

        $num1=$1;
        $num2=$2;
        $diff=($num2-$num1)+1;
        $str="a".$diff;
        #print $str;
        push(@$str,$data);
    }
}

Answer 1

我不知道您是如何从客户端获取价值的，为什么要将http://m.special.scheme/other/parameters/here与"a"连接并在$diff中添加1，但如果提供的值可以正常使用从命令行。

值存储在散列而不是数组中。

$diff

如何在文本框中将长度打印到指定的输入

1 个答案: