求修改

静女，其姝

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后少个;

静女，其姝

少个分号，怎么会出现两处错误呢？回复 2# shijiang1130


   

shijiang1130

你就这点代码，我也不好分析啊。全贴上来吧。

shijiang1130

还有你那个测试文件。环境啥的

kk861123

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

静女，其姝

如果我想加一个判断条件呢？就是第一列是“gi|10955262|ref|NC_002127.1 ”  而且第四列不能是3306（如果是3306，则跳过），应该怎么改呢？



回复 2# shijiang1130


   

hhs66317

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

rubyish

hhs66317 发表于 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";
                }
        }
}
我想在这个程序中加入一个判断条件，“当$a=1的时候，跳过 $end = $a - 1;”  
也就是只有 $a不为1的时候，才执行 $end = $a - 1;
这句话应该怎么加呢？





回复 8# hhs66317