应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Shell&Perl » perl程序求大神加以修改~~
51/1返回列表
查看: 1376  |  回复: 8
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

xiezhancnu

木虫 (小有名气)

[求助] perl程序求大神加以修改~~

现在有个文件夹TOTAL，该文件夹内有两个文件分别是a.txt和b.txt（见附件），我现在想生成这样的结果：
                  a.txt        b.txt（这一行可没有）
Os02t0249600-01        6236.420821        19861.20539
Os02t0242600-01                                      6550.062
Os03t0427300-01        7423.620595        26454.94742
Os01t0762500-00        5592.607026        31007.32272
第二行空格的意思是因为Os02t0242600-01在文件a.txt内没有对应的相，所以就空着！我现在写了一个程序，如下：
@gbk = glob('TOTAL/*');       
for($n=0;$n<=@gbk;$n++){
        open(input,"$gbk[$n]";       
        while(my $line={
     my @tmp=split("\t",$line);
     my $key = $tmp[0];  
     my $value = $tmp[4];  
     if (exists $hash{$key}){  
         $hash{$key} = $hash{$key}."\t".$value;  
     }else{
         $hash{$key} = $value;  
     }   
}
}       

delete $hash{GeneID};               
while(my($key,$value)=each %hash){
        print "$key\t$value\n";
}
生成的结果是这样的：
Os02t0249600-01        6236.420821        19861.20539
Os02t0242600-01        6550.062
Os03t0427300-01        7423.620595        26454.94742
Os01t0762500-00        5592.607026        31007.32272
也就是无法生成空格，第二行的6550.062应该在19861.20539这一列，请大神在我的 程序的基础上加以修改或者另写程序以实现我想要的结果，谢谢了~~~
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : a.txt
    • 2012-07-27 00:05:34, 740 bytes
  • 附件 2 : b.txt
    • 2012-07-27 00:05:48, 562 bytes

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼2012-07-27 00:16:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wizardfan

至尊木虫 (著名写手)

优秀版主

【答案】应助回帖

引用回帖:
5楼: Originally posted by xiezhancnu at 2012-07-27 10:18:20
跑不通啊，你试试！！...

Have you tried my codes which can also allow multiple file processing? The commented-out print statements allow you to check the middle result.
赞一下 回复此楼
7楼2012-07-27 23:28:31
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 9 个回答

wizardfan

至尊木虫 (著名写手)

优秀版主

【答案】应助回帖

★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
xzhdty: 金币+1, 谢谢参与 2012-07-28 00:01:13
xiezhancnu: 金币+5 2012-08-11 09:35:09
use strict;
#use Data:umper;
opendir DIR, "total";
my @files = readdir DIR;
closedir DIR;
my %hash;
#store all data into a big hash
foreach my $file(@files){
        next unless ($file=~/\.txt$/);#only deal with text file
        &dealOneFile($file);
}
#print Dumper(%hash);

#find the union set of all keys from all files
my %key;
my @doneFiles = keys %hash;
@doneFiles = sort {$a cmp $b} @doneFiles;#sort the file namess
foreach my $tmp(@doneFiles){
        my %oneFile = %{$hash{$tmp}};
#        print Dumper(%oneFile);       
        foreach (keys %oneFile){
                $key{$_}++
        }
}
#print Dumper(%key);

#print header
$"="\t";
print "file\t@doneFiles\n";
#print content
foreach my $key(keys %key){
        print "$key";
        foreach my $file(@doneFiles){
                print "\t";
                print "$hash{$file}{$key}" if (exists $hash{$file}{$key});
        }
        print "\n";
}

sub dealOneFile{
        my $filename = "$_[0]";
        open IN,"total/$filename";
        ; #remove header
        while(my $line={
                chomp($line);
                my ($key,$a,$b,$c,$value) = split("\t",$line);
                $hash{$_[0]}{$key}=$value;
        }
}
赞一下 回复此楼
2楼2012-07-27 03:12:23
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhusheng303

木虫 (小有名气)

【答案】应助回帖

感谢参与，应助指数 +1
有以个问题要问你？
你在处理这个事，最终是不是只有这两文件？
如果是，解决办法如下，
while(my $line={
     my @tmp=split("\t",$line);
     my $key = $tmp[0];  
     my $value = $tmp[4];  
     if (exists $hash{$key}){  
         $hash{$key} = $hash{$key}."\t".$value;  
     }else{
         $hash{$key} = “". "\t" .$value;  ####或者写成 “$hash{$key} = “-". "\t" .$value”,用“-”表示缺失数据
     }
赞一下 回复此楼
积极面对
3楼2012-07-27 08:58:57
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhusheng303

木虫 (小有名气)

【答案】应助回帖

如果超过3个文件，解决方法如下，
@gbk = glob('TOTAL/*');
my $hash; ##### 构建一个hash变量     
for($n=0;$n<=@gbk;$n++){
        open(input,"$gbk[$n]";        
        while(my $line={
                 my @tmp=split("\t",$line);
                 my $key = $tmp[0];  
                 my $value = $tmp[4];  
                 next if（$key eq "GeneID";  #### 不记录“GeneID”这一行
                 $hash->{$key}{$n} = $value;  #### 每一个文件一个值
      }
}
my $fileNum=$#gbk;
foreach my $key (keys %{$hash}){
            print "$key";
            foreach my $i (0..$fileNum){
                       if(exists $hash->{$key}{$i}){
                                print "\t$$hash->{$key}{$i}";
                        }else{
                                print "\t";
                         }         
            }
            print "\n";

}
赞一下 回复此楼
积极面对
4楼2012-07-27 09:26:47
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 9 个回答
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭