5) Extract a sequence MKKTGIKG from ASMKATAHQMKKTGIKGMSTYALLRL and print it out in a file YS

From Biolecture.org

Idea

  • ~s/ 를 이용해서 원하는 부분을 search함

 

Code

#!/usr/bin/perl
use strict;
use warnings;

my $string = 'ASMKATAHQMKKTGIKGMSTYALLRL';
my $string_ex = 'ASMKATAHQMKKTGIKGMSTYALLRL';
my $string_ch = 'ASMKATAHQMKKTGIKGMSTYALLRL';


$string_ex =~ s/MKKTGIKG//ig;
$string_ch =~ s/MKKTGIKG/change/ig;

print "original sequence :", $string, "\n";
print "Extracted result : ", $string_ex, "\n";
print "Changed result : ", $string_ch, "\n";


Result

 

yeonsong - bioinformatics

Retrieved from "http://Biolecture.org/index.php?title=5)_Extract_a_sequence_MKKTGIKG_from_ASMKATAHQMKKTGIKGMSTYALLRL_and_print_it_out_in_a_file_YS&oldid=11069"