Snippet revisions — Bitbucket

+#!/usr/bin/env perl

+use strict;

+use warnings;

+# Perl入学式 2018 第2回 練習問題

+# calc.pl

+print "INPUT 1st NUMBER > ";

+my $first_num = <STDIN>;

+chomp $first_num;

+print "INPUT 2nd NUMBER > ";

+my $second_num = <STDIN>;

+chomp $second_num;

+# 書き方は色々ある・・・けど、わかりやすい書き方を意識する

+# 文字列と計算結果（数字）を分けるとわかりやすいのではないか

+print "$first_num + $second_num = " . ( $first_num + $second_num ) . "\n";

+print "$first_num - $second_num = " . ( $first_num - $second_num ) . "\n";

+print "$first_num * $second_num = " . ( $first_num * $second_num ) . "\n";

+print "$first_num / $second_num = " . ( $first_num / $second_num ) . "\n";

Snippets