新手紧急求助呀

yang7473453

有两个数据集的一一对应表，要将一一对应的数据合并成一个文件要怎么写脚本？
将列表左边的数据跟右边的合并成一个文件，以右边的为文件名，要怎么写perl

kernel69

贴点文本，贴图，没办法测试呀，建议把要得到的文本格式也贴出来

yang7473453

回复 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文件。里面的内容一下是节选。
>AgU000001_v1.1
GTGAGATTGGCCTTtATTGTGGGCTCAGGAGCACCCAAG
>AgU000004_v1.1
GtGGCACCCAGAAGAAaGAGACGCGGCGGCGGCGACGT

文件二是很多单独的txt文件，比如其中就有名字叫ENSG00000110799_VWF_raw_NT.txt的文件，需要按照列表的一一对应关系把文件一中相应的那2行加到文件二对应名字的文件中，麻烦你了O(∩_∩)O~

kernel69

是这种效果？
操作前，先备份数据

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. $

复制代码

回复 3# yang7473453


   

yang7473453

如果说列表左边的都是单独的文件的文件名，我想将它们的文件名换成右边列表相对应的名字，要怎么办呢？
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回复 4# kernel69


   

yang7473453

你这个应该是达到我要的效果了，不知道要怎么运行呀回复 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

复制代码

确保你的这些文件都跟脚本在同一目录下，执行就行
回复 6# yang7473453


   

364816318

回复 1# yang7473453


   

364816318

回复 1# yang7473453


   

yang7473453

使用成功了。O(∩_∩)O谢谢，帮大忙了O(∩_∩)O~回复 7# kernel69