亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

(bio)}: 򲻕(hu) [ӡ(y)]

: albertkingking    r(sh)g: 2012-07-24 21:44
(bio)}: ⣡򲻕(hu)
dme-miR-1-3p        1        TGGAATGTAAAGAAGTATGGAG        t0000002_64648        TGGAATGTAAAGAAGTATGGAG        0        +
dme-miR-1-3p        1        TGGAATGTAAAGAAGTATGGA        t0000036_7701        TGGAATGTAAAGAAGTATGGA        0        +
dme-miR-1-3p        1        TGGAATGTAAAGAAGTATGG        t0000154_3349        TGGAATGTAAAGAAGTATGG        0        +
dme-miR-1-3p        1        TGGAATGTAAAGAAGTATG                     t0009606_145        TGGAATGTAAAGAAGTATG        0        +
dme-miR-2a-3p        1        TATCACAGCCAGCTTTGATGA        t0040809_32        TATCACAGCCAGCTTTGATGA        0        +
dme-miR-2a-3p        1        TATCACAGCCAGCTTTGATGAG        t0077517_15        TATCACAGCCAGCTTTGATGAG        0        +
dme-miR-2a-3p        1        TATCACAGCCAGCTTTGATGAGC        t0115229_9        TATCACAGCCAGCTTTGATGAGC        0        +
dme-miR-2a-3p        3        TCACAGCCAGCTTTGATGAGC        t0040804_32        TCACAGCCAGCTTTGATGAGC        0        +
@ļ(ni)ҪõĖ|һЃ(ni)ͬԒt0000002_64648„Ĕ(sh)ȡM(jn)ȡ(sh)һ猦(du)dme-miR-1-3p(li)f(shu)һdme-miR-1-3p        1        TGGAATGTAAAGAAGTATGGAG        t0000002_64648        TGGAATGTAAAGAAGTATGGAG        0        +

ע⣺t0040809_32 t0040804_32@ɂ(g)„Ĕ(sh)ģ@NrԒж
: albertkingking    r(sh)g: 2012-07-24 22:57
~~~~~Сf(wn)ָx  
: ҹ    r(sh)g: 2012-07-24 23:13
albertkingking l(f) 2012-07-24 21:44
dme-miR-1-3p        1        TGGAATGTAAAGAAGTATGGAG        t0000002_64648        TGGAATGTAAAGAAGTATGGAG        0        +
dme-miR-1-3p        1        TGGA ...


ԇԇ@(g)
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;

  4. my %hash;
  5. while ( <DATA> ) {
  6.     chomp;
  7.     my $head = (split /\s+/, $_)[0];
  8.     push @{$hash{$head}}, $_;
  9. }

  10. foreach my $key ( keys %hash ) {
  11.     my @array = sort { $b<=>$a } map { m/_(\d+)/; $1 } @{$hash{$key}};
  12.     my $a = $array[0];
  13.     foreach ( @{$hash{$key}} ) {
  14.         print $_.$/ if /_$a/;
  15.     }
  16. }

  17. __DATA__
  18. dme-miR-1-3p        1        TGGAATGTAAAGAAGTATGGAG        t0000002_64648        TGGAATGTAAAGAAGTATGGAG        0        +
  19. dme-miR-1-3p        1        TGGAATGTAAAGAAGTATGGA        t0000036_7701        TGGAATGTAAAGAAGTATGGA        0        +
  20. dme-miR-1-3p        1        TGGAATGTAAAGAAGTATGG        t0000154_3349        TGGAATGTAAAGAAGTATGG        0        +
  21. dme-miR-1-3p        1        TGGAATGTAAAGAAGTATG                     t0009606_145        TGGAATGTAAAGAAGTATG        0        +
  22. dme-miR-2a-3p        1        TATCACAGCCAGCTTTGATGA        t0040809_32        TATCACAGCCAGCTTTGATGA        0        +
  23. dme-miR-2a-3p        1        TATCACAGCCAGCTTTGATGAG        t0077517_15        TATCACAGCCAGCTTTGATGAG        0        +
  24. dme-miR-2a-3p        1        TATCACAGCCAGCTTTGATGAGC        t0115229_9        TATCACAGCCAGCTTTGATGAGC        0        +
  25. dme-miR-2a-3p        3        TCACAGCCAGCTTTGATGAGC        t0040804_32
(f)ƴa

: cdtits    r(sh)g: 2012-07-25 00:10
  1. do { @x = split; @y = split /_/, $x[3]; push @{$hash{$x[0]}}, [$y[1], @x]; } for <DATA>;
  2. while (($k, $v) = each %hash) {
  3.     @tmp = reverse sort { $a->[0] <=> $b->[0] } @{$v};
  4.     $max = $tmp[0][0];
  5.     do { print join("\t", @{$_}[1..$#$_]), "\n" if ($max == $_->[0]) } for (@tmp);
  6. }
(f)ƴa

: yinyuemi    r(sh)g: 2012-07-25 00:41
  1. my %data;
  2. my %hash;

  3. map{split;push @{$data{$_[0]." ".substr($_[3],index($_[3],"_")+1)}},$_}<DATA>;
  4. map{if(!$hash{$_->[0]}++){print @{$data{$_->[0]." ".$_->[1]}}}}sort{$a->[0] cmp $b->[0] || $b->[1] <=> $a->[1]}map{[split]}keys %data;


  5. __DATA__
  6. dme-miR-1-3p        1        TGGAATGTAAAGAAGTATGGAG        t0000002_64648        TGGAATGTAAAGAAGTATGGAG        0        +
  7. dme-miR-1-3p        1        TGGAATGTAAAGAAGTATGGA        t0000036_7701        TGGAATGTAAAGAAGTATGGA        0        +
  8. dme-miR-1-3p        1        TGGAATGTAAAGAAGTATGG        t0000154_3349        TGGAATGTAAAGAAGTATGG        0        +
  9. dme-miR-1-3p        1        TGGAATGTAAAGAAGTATG                     t0009606_145        TGGAATGTAAAGAAGTATG        0        +
  10. dme-miR-2a-3p        1        TATCACAGCCAGCTTTGATGA        t0040809_32        TATCACAGCCAGCTTTGATGA        0        +
  11. dme-miR-2a-3p        1        TATCACAGCCAGCTTTGATGAG        t0077517_15        TATCACAGCCAGCTTTGATGAG        0      +
  12. dme-miR-2a-3p        1        TATCACAGCCAGCTTTGATGAGC        t0115229_9        TATCACAGCCAGCTTTGATGAGC        0     +
  13. dme-miR-2a-3p        3        TCACAGCCAGCTTTGATGAGC        t0040804_32        TCACAGCCAGCTTTGATGAGC        0        +
(f)ƴa

: albertkingking    r(sh)g: 2012-07-25 08:42
؏(f) 3# ҹ
x ~~~~~~


   
: albertkingking    r(sh)g: 2012-07-25 08:43
؏(f) 4# cdtits
x~~~  ̫ţ{(ln):3_200:}


   
: albertkingking    r(sh)g: 2012-07-25 08:55
؏(f) 5# yinyuemi
̫ {:3_201:} x~~~~


   
: kk861123    r(sh)g: 2012-07-25 09:01
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use Data::Dumper;

  5. my %tmax_of;
  6. my %data_of;
  7. while (<DATA>) {
  8.    my @fields = (split);
  9.    my $tmax_n = (split /_/,$fields[3])[1];
  10.    if (exists $tmax_of{ $fields[0] }) {
  11.            if ( $tmax_n > $tmax_of{ $fields[0] }) {
  12.                    $data_of{ $fields[0] } = [$_];
  13.                    $tmax_of{ $fields[0] } = $tmax_n;
  14.            }
  15.            elsif ($tmax_n == $tmax_of{ $fields[0] }) {
  16.                    push @{ $data_of{ $fields[0] } },$_;
  17.            }
  18.    } else {
  19.        $data_of{ $fields[0] } = [$_];
  20.            $tmax_of{ $fields[0] } = $tmax_n;
  21.    }
  22. }

  23. print Dumper \%tmax_of;
  24. print Dumper \%data_of;


  25. __DATA__
  26. dme-miR-1-3p        1        TGGAATGTAAAGAAGTATGGAG        t0000002_64648        TGGAATGTAAAGAAGTATGGAG        0        +
  27. dme-miR-1-3p        1        TGGAATGTAAAGAAGTATGGA        t0000036_7701        TGGAATGTAAAGAAGTATGGA        0        +
  28. dme-miR-1-3p        1        TGGAATGTAAAGAAGTATGG        t0000154_3349        TGGAATGTAAAGAAGTATGG        0        +
  29. dme-miR-1-3p        1        TGGAATGTAAAGAAGTATG                     t0009606_145        TGGAATGTAAAGAAGTATG        0        +
  30. dme-miR-2a-3p        1        TATCACAGCCAGCTTTGATGA        t0040809_32        TATCACAGCCAGCTTTGATGA        0        +
  31. dme-miR-2a-3p        1        TATCACAGCCAGCTTTGATGAG        t0077517_15        TATCACAGCCAGCTTTGATGAG        0        +
  32. dme-miR-2a-3p        1        TATCACAGCCAGCTTTGATGAGC        t0115229_9        TATCACAGCCAGCTTTGATGAGC        0        +
  33. dme-miR-2a-3p        3        TCACAGCCAGCTTTGATGAGC        t0040804_32        TCACAGCCAGCTTTGATGAGC        0        +
(f)ƴa

: albertkingking    r(sh)g: 2012-07-25 09:05
؏(f) 10# kk861123
x ~~~~~{:3_200:}


   
: mcshell    r(sh)g: 2012-07-25 13:48
؏(f) 10# kk861123


    Ո(qng)(wn)[$_]ʲô˼




gӭR Chinaunix (http://72891.cn/) Powered by Discuz! X3.2