Chinaunix首页 | 论坛 | 博客
  • 博客访问: 467898
  • 博文数量: 118
  • 博客积分: 4015
  • 博客等级: 上校
  • 技术积分: 1233
  • 用 户 组: 普通用户
  • 注册时间: 2010-11-24 22:11
文章分类

全部博文(118)

文章存档

2013年(5)

2011年(61)

2010年(52)

分类: Python/Ruby

2011-03-16 15:31:33

#!/usr/bin/perl
my $in = $ARGV[0];
my $offset = $ARGV[1];
die "NO INPUT !" if(!defined($in));
die "NO OFFSET !" if(!defined($offset));
open RH,$in or die "Cannot open $in :$!";
my @lines = ;
close RH or die "$!";
my $groupId = 0;
my $groupTop = $offset + 3;
my $groupVar = "*IG*_NC_000962_(3710380-3710432)";

for(my $i = 0; $i < @lines; $i ++){
    my @fields = split(/\t/,$lines[$i]);
    if($fields[0] eq $groupVar and $fields[6] < $groupTop){
        print $groupId,"\n";
    } else{
        $groupId ++;
    $groupVar = $fields[0];
    $groupTop = $fields[6] + $offset;
    print $groupId."\n";
    }
}

阅读(1173) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~