perl 文字列の置換2

#eオプションを使って、マッチした数値を計算に使う。2つの数値をスペースで区切って入力すると、それらの数値の積を表示数r。
#スペース文字で区切った2値の積を表示

print "2つの数値をスペースで区切って入力してください。>";
$string =<STDIN>;
chomp($string);

#eオプションを使って直接演算する(負数や小数点も範囲に入れた正規表現)
$string =~ s/(\-?\d+\.?\d*)\s+(\-?\d+\.?\d*)/$1 * $2/e;

#表示
print "$string\n";

#実行結果
# 2つの数値をスペースで区切って入力してください。>-3 3.14
# -9.42

初めてのPerl 第6版

初めてのPerl 第6版