- 论坛徽章:
- 307
|
- #!/usr/bin/perl
- use strict;
- use warnings;
- my $head = <DATA>;
- print $head;
- my ($id, $start, $end, $name) = '';
- while (<DATA>){
- my @aList = split;
- if ($id eq ''){
- ($id, $start, $end, $name) = @aList;
- next;
- }
- if ($name eq $aList[-1]){
- $end = $aList[-2];
- next
- }
- print join ("\t", $id, $start, $end, $name), "\n";
- ($id, $start, $end, $name) = @aList;
- }
- print join ("\t", $id, $start, $end, $name), "\n";
- __DATA__
- Number start end name
- NO.1 1 10 wf
- NO.1 11 22 wf
- NO.1 29 38 cz
- NO.1 39 51 cz
- NO.1 52 60 cz
- NO.2 2 9 gx
- NO.2 10 22 gx
- NO.2 23 40 gx
复制代码 |
|