新手緊急求助呀

yang7473453

有兩個數(shù)據(jù)集的一一對應(yīng)表，要將一一對應(yīng)的數(shù)據(jù)合并成一個文件要怎么寫腳本？
將列表左邊的數(shù)據(jù)跟右邊的合并成一個文件，以右邊的為文件名，要怎么寫perl

kernel69

貼點(diǎn)文本，貼圖，沒辦法測試呀，建議把要得到的文本格式也貼出來

yang7473453

回復(fù) 2# kernel69

列表
AgU000001_v1.1        ENSG00000110799_VWF_raw_NT
AgU000004_v1.1        ENSG00000144674_GOLGA4_raw_NT
AgU000008_v1.1        ENSG00000182670_TTC3_raw_NT
AgU000015_v1.1        ENSG00000077147_TM9SF3_raw_NT
AgU000018_v1.1        ENSG00000069122_GPR116_raw_NT
AgU000025_v1.1        ENSG00000007168_PAFAH1B1_raw_NT
AgU000028_v1.1        ENSG00000169018_FEM1B_raw_NT
AgU000036_v1.1        ENSG00000138434_SSFA2_raw_NT
AgU000040_v1.1        ENSG00000116005_PCYOX1_raw_NT
AgU000046_v1.1        ENSG00000122218_COPA_raw_NT

文件一是一個txt文件。里面的內(nèi)容一下是節(jié)選。
>AgU000001_v1.1
GTGAGATTGGCCTTtATTGTGGGCTCAGGAGCACCCAAG
>AgU000004_v1.1
GtGGCACCCAGAAGAAaGAGACGCGGCGGCGGCGACGT

文件二是很多單獨(dú)的txt文件，比如其中就有名字叫ENSG00000110799_VWF_raw_NT.txt的文件，需要按照列表的一一對應(yīng)關(guān)系把文件一中相應(yīng)的那2行加到文件二對應(yīng)名字的文件中，麻煩你了O(∩_∩)O~

kernel69

是這種效果？
操作前，先備份數(shù)據(jù)

1. $ head 1 2 3 4
   
2. ==> 1 <==
   
3. 11111
   
4. 11111
   
5. 
   
6. ==> 2 <==
   
7. 22222
   
8. 22222
   
9. 
   
10. ==> 3 <==
    
11. 33333
    
12. 33333
    
13. 
    
14. ==> 4 <==
    
15. 44444
    
16. 44444
    
17. $ ls
    
18. 1  2  3  4  t.pl
    
19. $./t.pl
    
20. $ head 1 2 3 4
    
21. ==> 1 <==
    
22. 11111
    
23. 11111
    
24. 
    
25. ==> 2 <==
    
26. 22222
    
27. 22222
    
28. 11111
    
29. 11111
    
30. 
    
31. ==> 3 <==
    
32. 33333
    
33. 33333
    
34. 
    
35. ==> 4 <==
    
36. 44444
    
37. 44444
    
38. 33333
    
39. 33333
    
40. cat t.pl
    
41. #!/usr/bin/env perl
    
42. 
    
43. while (<DATA>) {
    
44.     ($f1,$f2) = split;
    
45.     open F1,$f1 or die("can't write file:  $!");
    
46.     open F2,">>",$f2 or die("can't write file:  $!");
    
47.     @f_one = <F1>;
    
48.     print F2 @f_one;
    
49. 
    
50. 
    
51. }
    
52. 
    
53. 
    
54. 
    
55. 
    
56. __DATA__
    
57. 1        2
    
58. 3        4
    
59. $

復(fù)制代碼

回復(fù) 3# yang7473453


   

yang7473453

如果說列表左邊的都是單獨(dú)的文件的文件名，我想將它們的文件名換成右邊列表相對應(yīng)的名字，要怎么辦呢？
AgU000001_v1.1        ENSG00000110799_VWF_raw_NT
AgU000004_v1.1        ENSG00000144674_GOLGA4_raw_NT
AgU000008_v1.1        ENSG00000182670_TTC3_raw_NT
AgU000015_v1.1        ENSG00000077147_TM9SF3_raw_NT
AgU000018_v1.1        ENSG00000069122_GPR116_raw_NT
AgU000025_v1.1        ENSG00000007168_PAFAH1B1_raw_NT
AgU000028_v1.1        ENSG00000169018_FEM1B_raw_NT
AgU000036_v1.1        ENSG00000138434_SSFA2_raw_NT
AgU000040_v1.1        ENSG00000116005_PCYOX1_raw_NT
AgU000046_v1.1        ENSG00000122218_COPA_raw_NT回復(fù) 4# kernel69


   

yang7473453

你這個應(yīng)該是達(dá)到我要的效果了，不知道要怎么運(yùn)行呀回復(fù) 4# kernel69


   

kernel69

把你的這些文本，貼到__DATA__的下面

1. AgU000001_v1.1        ENSG00000110799_VWF_raw_NT
   
2. AgU000004_v1.1        ENSG00000144674_GOLGA4_raw_NT
   
3. AgU000008_v1.1        ENSG00000182670_TTC3_raw_NT
   
4. AgU000015_v1.1        ENSG00000077147_TM9SF3_raw_NT
   
5. AgU000018_v1.1        ENSG00000069122_GPR116_raw_NT
   
6. AgU000025_v1.1        ENSG00000007168_PAFAH1B1_raw_NT
   
7. AgU000028_v1.1        ENSG00000169018_FEM1B_raw_NT
   
8. AgU000036_v1.1        ENSG00000138434_SSFA2_raw_NT

復(fù)制代碼

確保你的這些文件都跟腳本在同一目錄下，執(zhí)行就行
回復(fù) 6# yang7473453


   

364816318

回復(fù) 1# yang7473453


   

364816318

回復(fù) 1# yang7473453


   

yang7473453

使用成功了。O(∩_∩)O謝謝，幫大忙了O(∩_∩)O~回復(fù) 7# kernel69