| 查看: 1414 | 回复: 8 | ||
| 当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖 | ||
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
- 附件 2 : b.txt
2012-07-27 00:05:34, 740 bytes
2012-07-27 00:05:48, 562 bytes
» 猜你喜欢
论文终于录用啦!满足毕业条件了
已经有21人回复
不自信的我
已经有5人回复
磺酰氟产物,毕不了业了!
已经有4人回复
投稿Elsevier的杂志(返修),总是在选择OA和subscription界面被踢皮球
已经有8人回复
» 本主题相关价值贴推荐,对您同样有帮助:
磁性粒子团聚成这个样子了,求大神指点啊~~
已经有37人回复
急急急,,急求大神帮忙翻译一下,跪谢!!!
已经有2人回复
请帮忙编写一个perl程序处理文本
已经有26人回复
求大神帮我看下我这个方案
已经有10人回复
这个反应怎么操作,求做过此反应的大神指点
已经有11人回复
Perl 生物信息学编程求助,运行出现问题,烦请帮忙查找一下错误,谢谢!
已经有3人回复
求教一个origin中的问题,求大神指点
已经有4人回复
Perl 编程 请大神们帮忙!!!生物信息的牛人请进
已经有11人回复
matlab作业哪位大神麻烦给做一下,十万火急,周五之间要交
已经有3人回复
程序语言版拟开新子版“Shell&Perl&Python”
已经有10人回复
【求助】求高人帮我修改程序
已经有5人回复
xiezhancnu
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 5294.5
- 红花: 1
- 帖子: 146
- 在线: 84小时
- 虫号: 1387285
- 注册: 2011-09-02
- 专业: 生物信息学
5楼2012-07-27 10:18:20
xiezhancnu
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 5294.5
- 红花: 1
- 帖子: 146
- 在线: 84小时
- 虫号: 1387285
- 注册: 2011-09-02
- 专业: 生物信息学
8楼2012-07-28 22:09:12
xiezhancnu
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 5294.5
- 红花: 1
- 帖子: 146
- 在线: 84小时
- 虫号: 1387285
- 注册: 2011-09-02
- 专业: 生物信息学
9楼2012-07-28 22:28:11







;
回复此楼
送鲜花一朵