求修改

靜女，其姝

my @a;

while (<INFILE>) {
      @a = split

       if($a[0] eq 'gi|10955262|ref|NC_002127.1|') {
                print OUTFILE '$a[2]$a[3]\n';
        }
}


如果這個文件的第一列為gi|10955262|ref|NC_002127.1|，則輸出第3、4列
報錯為兩個“{”

shijiang1130

split后少個;

靜女，其姝

少個分號，怎么會出現(xiàn)兩處錯誤呢？回復(fù) 2# shijiang1130


   

shijiang1130

你就這點代碼，我也不好分析啊。全貼上來吧。

shijiang1130

還有你那個測試文件。環(huán)境啥的

kk861123

1. 少;
2. print OUTFILE '$a[2]$a[3]\n'; 改雙引號

靜女，其姝

如果我想加一個判斷條件呢？就是第一列是“gi|10955262|ref|NC_002127.1 ”  而且第四列不能是3306（如果是3306，則跳過），應(yīng)該怎么改呢？



回復(fù) 2# shijiang1130


   

hhs66317

if ($a[0] eq 'gi|10955262|ref|NC_002127.1|' && $a[3] ne '3306')

rubyish

hhs66317 發(fā)表于 2013-04-05 19:46
if ($a[0] eq 'gi|10955262|ref|NC_002127.1|' && $a[3] ne '3306')

謝謝

靜女，其姝

#!/usr/bin/perl
my ( $start, $end ) = ( 1,3306 );
while (<>) {
chomp;
        if ($_ =~ /\d+/){
    my ( $a, $b ) = split;
        $end = $a - 1;
    print "$start\t$end\n";
    $start = $b + 1;
                if ($b eq 3219){
                print "$start\t3306\n";
                }
        }
}
我想在這個程序中加入一個判斷條件，“當(dāng)$a=1的時候，跳過 $end = $a - 1;”  
也就是只有 $a不為1的時候，才執(zhí)行 $end = $a - 1;
這句話應(yīng)該怎么加呢？





回復(fù) 8# hhs66317