Snippets

sironekotoro Perl入学式2018年 第2回 練習問題 question_num.pl

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";
}

Comments (0)