(空白標題)

看板TFG_03Book作者airL (簡單快樂的生活)時間20年前 (2004/06/15 01:11)推噓6(6推 0噓 4→)

留言10則, 4人參與討論串9/9 (看更多)

#!/usr/bin/perl -w # Concatenating DNA # Store four DNA fragments into four variables called $DNA1 and $DNA2 and $DNA3 and $DNA4 $DNA1 = 'gaaacaccagtcttgagaggtggccagcca'; $DNA2 = 'gactgcctgtccacatgcgtgtcagcacatacag'; $DNA3 = 'ccgcttcctggaagccgcctggaatgtc'; $DNA4 = 'ttcacggcagcgttttgc'; # print the DNA onto the screen print "Here are the original four DNA fragments:\n\n"; print $DNA1, "\n"; print $DNA2, "\n"; print $DNA3, "\n"; print $DNA4, "\n\n"; # Concatenate the DNA fragments into a fifth variable and print them # Using "string interpolation" $DNA5 = $DNA1 . $DNA2 . $DNA3 . $DNA4; print "Here is the concatenation of the first four fragments:\n\n"; print "$DNA5\n\n"; exit; -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.129.14.46

推

poohoney

218.163.223.39 06/14, , 1^F

218.163.223.39 06/14, 1^F

推

kikihoho

140.117.183.181 06/15, , 2^F

140.117.183.181 06/15, 2^F

推

asimon

140.134.242.70 06/15, , 3^F

140.134.242.70 06/15, 3^F