兩個檔案拼一個

網上的題

檔案a.txt

1

2

3

4

<code>ATCGTCGAGTCGA</code>

<code>GTCGTAGCT</code>

<code>CGATGCTAACTCAA</code>

<code>CGATCGATCAGCAT</code>

檔案 b.txt

<code>23  45</code>

<code>34  76</code>

<code>34  67</code>

<code>37  78</code>

請輸出檔案

<code>ATCGTCGAGTCGA   23  45</code>

<code>GTCGTAGCT   34  76</code>

<code>CGATGCTAACTCAA  34  67</code>

<code>CGATCGATCAGCAT  37  78</code>

直接上代碼

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

<code>#!/usr/bin/perl -w</code>

<code>use</code> <code>strict;</code>

<code>my</code> <code>(</code><code>@array1</code><code>,</code><code>@array2</code><code>);</code>

<code>open</code> <code>my</code> <code>$file</code><code>,</code><code>'&lt;'</code><code>,</code><code>'a.txt'</code> <code>or </code><code>die</code> <code>"$!\n"</code><code>;</code>

<code>while</code> <code>(&lt;</code><code>$file</code><code>&gt;) {</code>

<code>       </code><code>chomp</code><code>;</code>

<code>       </code><code>next</code> <code>if</code> <code>/^$|^</code><code>#/;</code>

<code>       </code><code>push</code> <code>@array1</code><code>,</code><code>"$_\t"</code> <code>if</code> <code>$_</code><code>;</code>

<code>}</code>

<code>open</code> <code>$file</code><code>,</code><code>'&lt;'</code><code>,</code><code>'b.txt'</code> <code>or </code><code>die</code> <code>"$!\n"</code><code>;</code>

<code>       </code><code>push</code> <code>@array2</code><code>,</code><code>"$_"</code> <code>if</code> <code>$_</code><code>;</code>

<code>for</code> <code>my</code> <code>$str</code> <code>(</code><code>@array1</code><code>) {</code>

<code>    </code><code>$str</code> <code>.= </code><code>shift</code> <code>@array2</code><code>;</code>

<code>    </code><code>print</code> <code>$str</code><code>,</code><code>"\n"</code>

輸出

<code>[root@lb-01 home]</code><code># perl a.pl</code>

<code>ATCGTCGAGTCGA   23 45</code>

<code>GTCGTAGCT       34 76</code>

<code>CGATGCTAACTCAA  34 67</code>

<code>CGATCGATCAGCAT  37 78</code>

代碼圖檔

<a href="http://s3.51cto.com/wyfs02/M00/44/1B/wKiom1PfPD_wZ2I1AAFulh9_G3M689.jpg" target="_blank"></a>

本文轉自dongfang_09859 51CTO部落格，原文連結：http://blog.51cto.com/hellosa/1535563，如需轉載請自行聯系原作者