| 5 | 1/1 | 返回列表 |
| 查看: 1521 | 回復(fù): 9 | ||
| 當(dāng)前只顯示滿足指定條件的回帖,點(diǎn)擊這里查看本話題的所有回帖 | ||
淡藍(lán)幽香新蟲 (初入文壇)
|
[求助]
程序求解:重復(fù)的相同數(shù)據(jù)用同樣的代碼取代
|
|
|
小女有如下數(shù)據(jù),片段截取如下(每列用了制表符分隔) 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 其中第一列表示組號(hào),希望得到如下的結(jié)果: 1. 在每一組里,不帶有數(shù)字的字母項(xiàng),用符號(hào)表示。其中具有相同字母的項(xiàng)目(沒有數(shù)字的字母列),用相同符號(hào)表示,如NA1,如第一行G L————NA1,第三行的G L也是NA1,但是第二行的EL為NA2 2.同一組里,帶有數(shù)字的字母項(xiàng),字母刪除,只留下數(shù)字 自己嘗試的寫了下,發(fā)現(xiàn),亂成了一團(tuán),緊急求助各位達(dá)人,先謝過啦!! |
新蟲 (初入文壇)
版主 (知名作家)

木蟲 (正式寫手)
|
給你寫了個(gè)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; |
金蟲 (小有名氣)
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 275求調(diào)劑 +10 | Micky11223 2026-03-25 | 13/650 |
|
|---|---|---|---|---|
|
[考研] 07化學(xué)280分求調(diào)劑 +10 | 722865 2026-03-23 | 10/500 |
|
|
[考研] 283求調(diào)劑(080500) +4 | A child 2026-03-27 | 4/200 |
|
|
[考研] 269專碩求調(diào)劑 +10 | 金恩貝 2026-03-21 | 10/500 |
|
|
[考研] 085600,材料與化工321分,求調(diào)劑 +9 | 大饞小子 2026-03-27 | 9/450 |
|
|
[考研] 311求調(diào)劑 +7 | lin0039 2026-03-26 | 7/350 |
|
|
[考研] 調(diào)劑推薦 +5 | 清酒714 2026-03-26 | 6/300 |
|
|
[考研] 292求調(diào)劑 +4 | 求求了收下我吧?/a> 2026-03-26 | 4/200 |
|
|
[考研]
|
nnnnnnn5 2026-03-25 | 5/250 |
|
|
[考研] 351求調(diào)劑 +4 | 麥克阿磊 2026-03-24 | 4/200 |
|
|
[考研] 349求調(diào)劑 +5 | 杰斯塔里斯 2026-03-21 | 5/250 |
|
|
[考研] 22 350 本科985求調(diào)劑,求老登收留 +4 | 李軼男003 2026-03-20 | 4/200 |
|
|
[考研] 一志愿中南大學(xué)化學(xué)學(xué)碩0703總分337求調(diào)劑 +7 | niko- 2026-03-22 | 7/350 |
|
|
[考研] 考研一志愿蘇州大學(xué)初始315(英一)求調(diào)劑 +3 | sbdksD 2026-03-24 | 4/200 |
|
|
[考研] 【2026考研調(diào)劑】制藥工程 284分 求相關(guān)專業(yè)調(diào)劑名額 +4 | 袁奐奐 2026-03-25 | 8/400 |
|
|
[考研] 一志愿吉林大學(xué)材料與化工303分求調(diào)劑 +4 | 為學(xué)666 2026-03-24 | 4/200 |
|
|
[考研] 305分求調(diào)劑(食品工程) +5 | Sxy112 2026-03-21 | 7/350 |
|
|
[考研] 一志愿河北工業(yè)大學(xué)0817化工278分求調(diào)劑 +7 | jhybd 2026-03-23 | 12/600 |
|
|
[論文投稿] 急發(fā)核心期刊論文 +3 | 賢達(dá)問津 2026-03-23 | 5/250 |
|
|
[考研] 一志愿南大,0703化學(xué),分?jǐn)?shù)336,求調(diào)劑 +3 | 收到VS 2026-03-21 | 3/150 |
|