$ vim 110213.pl
a
use strict;
use warnings;
print "好きな遺伝子を選んでください。\n";
print "1 = capase\n";
print "2 = hox\n";
print "3 = rhodopsin\n";
my $line = <STDIN>; # ユーザから1行入力
if ($line == 1) { # 1番か？
print "アポトーシスの実行に関与します。\n";
} elsif ($line == 2) { # 2番か？
print "発生時の体節の形勢に関与します。\n";
} elsif ($line == 3) { # 3番か？
print "視細胞の働きを助けます\n";
} else { # それ以外か？
print "ちゃんと言われた遺伝子を選んでくださいまし。\n";
}
Esc
:wq
$ perl 110213.pl
好きな遺伝子を選んでください。
1 = capase
2 = hox
3 = rhodopsin
1
アポトーシスの実行に関与します。
$ perl 110213.pl
好きな遺伝子を選んでください。
1 = capase
2 = hox
3 = rhodopsin
2
発生時の体節の形勢に関与します。
$ perl 110213.pl
好きな遺伝子を選んでください。
1 = capase
2 = hox
3 = rhodopsin
3
視細胞の働きを助けます
$ perl 110213.pl
好きな遺伝子を選んでください。
1 = capase
2 = hox
3 = rhodopsin
4
ちゃんと言われた遺伝子を選んでくださいまし。
$ vim 110213.2.pl
a
use strict;
use warnings;
print "ヒトの染色体の本数を述べなさい。\n";
my $line = <STDIN>; # ユーザから1行入力
if ($line == "46") {
print "その通り！！\n";
} else {
print "違います。\n";
}
Esc
:wq
$ perl 110213.2.pl
ヒトの染色体の本数を述べなさい。
40
違います。
$ perl 110213.2.pl
ヒトの染色体の本数を述べなさい。
46
その通り！！
kappa@kappa-desktop:~/2011/perl$
$ vim 110213.3.pl
a
print "あなたの身長を入力してください。\n";
my $x = 171;
my $line = <STDIN>;
if ($x > $line) {
print "あなたの身長$lineは日本人男性の平均身長よりも小さいです\n";
} else {
print "あなたの身長$lineは日本人男性の平均身長よりも大きいです\n";
}
Esc
:wq
$ perl 110213.3.pl
あなたの身長を入力してください。
168
あなたの身長168
は日本人男性の平均身長よりも小さいです
$ perl 110213.3.pl
あなたの身長を入力してください。
172
あなたの身長172
は日本人男性の平均身長よりも大きいです
$ vim 110214.4.pl
a
use strict;
use warnings;
print "ただいまの時刻を入力してちょ。\n";
my $line = <STDIN>;
if ($line < 8) {
print "おはよ!\n";
} elsif ($line == 12) {
print "おなかすいたっさ。\n";
} elsif ($line < 17) {
print "こんにちは!\n";
} else {
print "こんばんは。";
}
Esc
$ perl 110213.4.pl
ただいまの時刻を入力してちょ。
16
こんにちは!
