- 论坛徽章:
- 0
|
这是我不成文的代码~
感到逻辑有点乱~·
统计和比较那一块不会写,输出格式也不会调成按列输出。
请各位指点指点~~- #!/usr/bin/perl -w
- use strict;
- my @temp;
- my %hash;
- while(<DATA>)
- {
- push @{$hash{(split)[0]}},(split)[1];
- push @temp, (split)[1];
- }
- my $minvalue=&min(@temp);
- my $maxvalue=&max(@temp);
- open(FH,">>chrY_result.txt");
- #<====此段输出表头信息===>#
- my @item;
- foreach my $cur_key (sort keys %hash) {
- push @item,$cur_key."\t";
- }
- @item=reverse @item;
- print FH "ID\tNAME\t@item","\n";
- #<====此段处理数据===>#
- foreach my $mykey1 (keys %hash){
- for (my $i=5000;$i<=$maxvalue;$i+=5000){
-
- foreach my $element (@{$hash{$mykey1}}){
- #这里的循环和输出格式不会写~
- #也许是我的程序本就出了问题,求帮忙!!
- }
- }
- }
- close FH;
- sub max{
- my($max1)=shift @_;
- foreach(@_){
- if($_>$max1) {$max1=$_;}
- }
- $max1;
- }
- sub min{
- my($min1)=shift @_;
- foreach(@_){
- if($_<$min1) {$min1=$_;}
- }
- $min1;
- }
- __DATA__
- H2AK5ac 1000
- H2AK5ac 5008
- H2AK5ac 10001
- H2BK5me 5008
- H2BK5me 10004
- H4K12ac 10007
- H4K12ac 15005
- H4R3me2 5010
- H4R3me2 10017
复制代码 |
|