スライド 1

while文とfor文
• while(条件){ 処理 }
$num = 0;
while($num < 5){
print “$num “;
$num ++; # $numの値を１つ増やす
}
• for(初期設定;継続条件;更新){ 処理 }
for($num = 0;$num < 5;$num ++){
print “$num “;
}
正規表現の例
• take, tree, tape ---> t..e
• [acgt]--> a,c,g,tのいずれか１文字
• [acgt]* --> 塩基配列
• ^Coding --> 行頭にCodingという文字
列
• [a-z] --> アルファベット小文字の一文字
• [^a-z] --> アルファベット小文字以外
• if($string =~ /正規表現/){マッチしたときの処理}
文字列置換
$seq = “aaaatttt”;
$seq =~ s/a/T/g;
print “$seq\n”;
$seq =~ s/t/A/g;
print “$seq\n”;
変数 =~ s/置換前/置換後/g;
配列
•
•
•
•
$name1 = “Thomas”;
$name2 = “John”;
$name3 = …
@name = ( “Thomas”, “John”, “Angela”,
“Joanna”);
• print $name[2];
@name = ( “Thomas”, “John”, “Angela”, “Joanna”);
for($i = 0;$i <= 3;$i ++){
print “$name[$i] “;
}
print “\n”;
@name = (“Thomas”, “John”, “Angela”, “Joanna”);
foreach $person (@name){
print “$person “;
}
print “\n”;
ハッシュ
•
•
•
•
my %ejdict; #ハッシュ変数の宣言
$ejdict[ “apple” ] = “ringo”;
$ejdict[ “grape” ] = “budo”;
print $ejdict[ “apple” ];

Download Report