perlで変数代入練習

1$ vim var0.pl

:syntax on

a

use strict;
use warnings;

#変数$に２０００を代入する。
my $price = 2000;

#変数$priceの内容を表示して改行する。
print $price;
print "\n";

#変数$priceの一割引の内容を表示して改行する。
print $price*0.9;
print "\n";

#変数$priceに10000を代入する。
$price = 10000;

#変数$priceの内容を表示して改行する。
print $price;
print "\n";

#変数$discount_priceに$priceの一割引の内容を代入する。
my $discount_price = $price * 0.9;

#変数$discount_priceの内容を表示して改行する。
print $discount_price;
print "\n";

Esc

:wq

$ perl -cw var0.pl     #実は結構エラーが出てだるかった。。。
var0.pl syntax OK

$ perl var0.pl
2000
1800
10000
9000