あなたの名前やIDのアルファベット表記をスカラー変数に格納し, スカラー変数に格納した文字列を
use strict;
use warnings;
my $name = "Shibuya";
print $name;
Shibuya
あなたの名前やIDのアルファベット表記と今日の日付を, それぞれスカラー変数に格納し, スカラー変数に格納した文字列を
use strict;
use warnings;
my $name = "Shibuya";
my $today = "2018-04-01";
print "My name is $name, today is $today.";
My name is Shibuya, today is 2018-04-01.
標準入力であなたの名前やIDを入力して, その文字列を
use strict;
use warnings;
my $name = <STDIN>;
chomp($name);
print $name;
Shibuya
Shibuya
標準入力から0以外の整数を2つ読み込み, それらを四則演算(
+
,-
,*
./
)した結果を出力するコードを書いてみましょう
use strict;
use warnings;
my $left = <STDIN>;
chomp($left);
my $right = <STDIN>;
chomp($right);
my $sum = $left + $right;
my $sub = $left - $right;
my $mul = $left * $right;
my $div = $left / $right;
print "$left + $right = $sum\n";
print "$left - $right = $sub\n";
print "$left * $right = $mul\n";
print "$left / $right = $div\n";
1
2
1 + 2 = 3
1 - 2 = -1
1 * 2 = 2
1 / 2 = 0.5