| 查看: 1431 | 回复: 9 | |||
| 当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖 | |||
[求助]
程序求解:重复的相同数据用同样的代码取代
|
|||
|
小女有如下数据,片段截取如下(每列用了制表符分隔) Col1 Col2 Col3 Col4 Col5 Col6 1 G L 0 0 1 0 1 EL 0 0 2 0 1 (5)W S G L EL 2 0 1 G S 0 0 1 0 1 A S 0 0 2 0 1 (10)A D G S A S 2 0 1 (65)B B D (10)A D 2 0 1 M M K (4)M K (65)B 2 0 2 J K 0 0 1 0 2 A 0 0 2 0 2 P R 0 0 1 0 2 A R 0 0 2 0 2 (59)M Z J K A 2 0 2 (30)M R (8)A R (19)L R 1 0 其中第一列表示组号,希望得到如下的结果: 1. 在每一组里,不带有数字的字母项,用符号表示。其中具有相同字母的项目(没有数字的字母列),用相同符号表示,如NA1,如第一行G L————NA1,第三行的G L也是NA1,但是第二行的EL为NA2 2.同一组里,带有数字的字母项,字母删除,只留下数字 自己尝试的写了下,发现,乱成了一团,紧急求助各位达人,先谢过啦!!! |
» 猜你喜欢
小论文投稿
已经有3人回复
Bioresource Technology期刊,第一次返修的时候被退回好几次了
已经有9人回复
心脉受损
已经有3人回复
到新单位后,换了新的研究方向,没有团队,持续积累2区以上论文,能申请到面上吗
已经有8人回复
申请2026年博士
已经有6人回复
请问哪里可以有青B申请的本子可以借鉴一下。
已经有5人回复
2025冷门绝学什么时候出结果
已经有7人回复
» 本主题相关价值贴推荐,对您同样有帮助:
解决问题的技巧 【转载】【已搜索无重复】
已经有111人回复
【分享】笔记本电池一段时间后不好用的解决办法【已搜索无重复】
已经有5人回复
matlab代码求解水动力学方程看不懂,请高手指点
已经有4人回复
【分享】RedCrab :免费功能极其强大的科学计算器 帮你求解高数难题【已搜索无重复】
已经有36人回复
用spss处理有重复的正交试验数据,怎么做?
已经有3人回复
【转贴】材料领域常用的数据库【已搜索无重复】
已经有22人回复
jackie1179
木虫 (正式写手)
- 应助: 11 (小学生)
- 金币: 1929.2
- 红花: 1
- 帖子: 460
- 在线: 47.2小时
- 虫号: 1119284
- 注册: 2010-10-11
- 专业: 生物信息学
【答案】应助回帖
感谢参与,应助指数 +1
|
给你写了个perl脚本,希望能够帮到你。 用法:perl ./pro.pl input_file output_file 贴上代码: #!/usr/bin/perl -w unless(@ARGV) { die "Arguments not enough!$!"; } $in = $ARGV[0]; $out = $ARGV[1]; open(IN,"$in" || die "Cannot open this file!$!";open(OUT,">$out" || die "Cannot write to this file!$!";undef %string; $cnt = 0; while( chomp; @array = split /\t/; foreach $ele(@array) { if($ele lt '0' || $ele gt '9') { print $ele,"\t"; if($ele =~ /\((\d+)\)/) { $ele = $1; } else { if(!defined $string{$ele}) { $cnt++; $string{$ele} = $cnt; $ele = "NA" . $cnt; } else { $ele = "NA" . $string{$ele}; } } } print OUT "$ele\t"; } print OUT "\n"; } close IN; close OUT; |
4楼2012-07-07 10:08:13
jjdg
版主 (知名作家)
- 程序强帖: 9
- 应助: 223 (大学生)
- 贵宾: 3.926
- 金币: 51002.6
- 红花: 238
- 帖子: 7227
- 在线: 474.2小时
- 虫号: 27000
- 注册: 2003-10-21
- 专业: 药物代谢与药物动力学
- 管辖: 程序语言

2楼2012-07-07 01:15:44
3楼2012-07-07 05:35:57
5楼2012-07-07 11:10:28













回复此楼
|| die "Cannot open this file!$!";