| 查看: 1877 | 回复: 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.同一组里，带有数字的字母项，字母删除，只留下数字 自己尝试的写了下，发现，乱成了一团，紧急求助各位达人，先谢过啦！！！ |
回复此楼» 猜你喜欢
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有7人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有5人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有8人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有11人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有9人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有5人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有4人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 解决问题的技巧 【转载】【已搜索无重复】
已经有111人回复
- 【分享】笔记本电池一段时间后不好用的解决办法【已搜索无重复】
已经有5人回复
- matlab代码求解水动力学方程看不懂，请高手指点
已经有4人回复
- 【分享】RedCrab ：免费功能极其强大的科学计算器 帮你求解高数难题【已搜索无重复】
已经有36人回复
- 用spss处理有重复的正交试验数据，怎么做？
已经有3人回复
- 【转贴】材料领域常用的数据库【已搜索无重复】
已经有22人回复
8楼2012-07-09 05:38:44
2楼2012-07-07 01:15:44
3楼2012-07-07 05:35:57
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
