perl utf8モジュール

#utf8モジュールを使って、UTF-8文字エンコーディングで日本語変数名を指定する。

#UTF-8の変数名を使う
# utf8_consumption_duty.pl

#モジュール呼び出し
use utf8;

$消費税率 = 0.08;

print "subtotal: ";

$小計金額 = <STDIN>;
chomp($小計金額);

$消費税額 = $小計金額 * $消費税率;

$合計金額 = $小計金額 + $消費税額;

print "tax: ${消費税額} yen\n";
print "total amount: ${合計金額} yen\n";


#このスクリプトがUTF-8で保存されていれば変数名に日本語を使っていても実
#行時にエラーは起きない。変数名の範囲を明示するために{}で囲んでいる。

#実行結果
# subtotal: 10000
# tax: 800 yen
# total amount: 10800 yen

初めてのPerl 第6版