Perl入学式　標準入力の練習問題解答例

calc.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;

print "1つ目の数字を入力して下さい >>";
my $i = <STDIN>;
chomp $i;

print "2つ目の数字を入力して下さい >>";
my $j = <STDIN>;
chomp $j;

print "$i + $j = ".($i + $j)." \n";
print "$i - $j = ".($i - $j)." \n";
print "$i * $j = ".($i * $j)." \n";
print "$i / $j = ".($i / $j)." \n";