Snippet revisions — Bitbucket

+#!/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";

+}

Snippets