Open Source Web Development Tutorials - Dev Shed

Perl入門：条件文
（2009/02/25公開）

Unless文

　Unless文はIf文とは反対に条件が偽かどうかを尋ね、条件が真でない場合にコードを実行する。

#!/usr/bin/perl

$my_iq = 1000;
$your_iq = 90;

unless ($your_iq > $my_iq)
{
print "My brain is enormous and far superior to your own!";
}

　上のコードでは、$you_iqが$my_iqより大きい場合を除き、常に「My brain is enormous and far superior to your own!」と出力される。

ループにする

　筆者は、1日の終わりに近づいてくると、どうにも頭の回転が鈍くなり、間違ったことを言ってしまう傾向がある。だから、この辺で終わりにしよう。だが、コード内のループは、私の頭とはまったくの別物だ。

　ループの目的は所定のコードを繰り返すことだ。ループを使用すれば、気の遠くなるほどキーボードをたたかなくても済む。Forループの例を見てみよう。

#!/usr/bin/perl

for ($count =1; $count<10; $count++)
{
print "I R THE GREATEST!n";
}

　上のコードは、変数$countを作成し、初期値として1を代入する。また、$countの値が10以上（$count<10）になるまで、$countの値を+1ずつインクリメント($count++)する部分もある。$countの値が10未満である限り、画面には次のように出力される。

I R THE GREATEST!
I R THE GREATEST!
I R THE GREATEST!
I R THE GREATEST!
I R THE GREATEST!
I R THE GREATEST!
I R THE GREATEST!
I R THE GREATEST!
I R THE GREATEST!

　$countに代入されている数値だけを扱う場合は次のようにする。

#!/usr/bin/perl

for ($count =1; $count<10; $count++)
{
print "$countn";
}

　画面には次のように出力される。

1
2
3
4
5
6
7
8
9

　Forループは、指定した回数だけループする。