Created by
sironekotoro
| #!/usr/bin/env perl
use strict;
use warnings;
# https://github.com/perl-entrance-org/workshop-2018/blob/master/2nd/slide.md
# 練習問題(question_num.pl)
# 端末から数字を一つ入力し, その数字が$answerと一致したらOK,
# $answerより大きければtoo big, 小さければtoo smallと表示します
my $answer = 10;
print "input number >";
my $number = <STDIN>;
chomp $number;
if ( $answer == $number ) {
print "OK\n";
}
elsif ( $answer > $number ) {
print "too small\n";
}
elsif ( $answer < $number ) {
print "too big\n";
}
# オプション: 入力した値が, $answerから-5〜+5の範囲内
# (例えば, $answerが10なら, 5〜15)の場合, nearと表示するようにしてみましょう
if ( $answer + 5 > $number && $answer - 5 < $number ) {
print "near\n";
}
|