Saya sedang belajar bioinformatika. Saya coba berselancar di internet, ternyata masih sedikit yang mengembangkannya di Indonesia. Padahal di negara-negara maju sudah melakukan riset yang cangoh-canggih tentang bioinformatika/biokomputasi. Berikut ini saya coba buat latihan-latihan bioinformatika untuk pemula menggunakan pemrograman perl.
Tema 1 : ‘merangkai & menggabungkan dua atau lebih fragmen DNA’
#!/usr/bin/perl -w
# Merangkai DNA
# Menyimpan dua fragmen DNA dalam variabel $DNA1 and $DNA2
$DNA1 = ‘GCTTTAGGCTACGGTATACAAATTG’;
$DNA2 = ‘GCATCAGATACATAGCA’;
# Print fragmen DNA pada layar
print “Ini adalah dua fragmen original DNA:\n\n”;
print $DNA1, “\n”;
print $DNA2, “\n\n”;
# Merangkai fragmen DNA ke dalam tiga variable dan mengeprint ke layar
# Menggunakan “string interpolation”
$DNA3 = “$DNA1$DNA2″;
print “Ini adalah satu rangkaian dari dua fragmen(versi 1):\n\n”;
print “$DNA3\n\n”;
# Sebuah alternatif jalan lain menggunakan “dot operator”:
# Merangkai fragmen DNA ke dalam tiga variable dan mengeprint ke layar
$DNA3 = $DNA1 . $DNA2;
print ” Ini adalah satu rangkaian dari dua fragmen(versi 2):\n\n”;
print “$DNA3\n\n”;
# Print hal yang serupa tanpa menggunakan variabel $DNA3
print ” Ini adalah satu rangkaian dari dua fragmen(versi 3):\n\n”;
print $DNA1, $DNA2, “\n”;
exit;
