perlでサブルーチンに小数を渡したい

Question

前提・実現したいこと

perlで台形法による積分を行いたいと考えています

発生している問題・エラーメッセージ

サブルーチンfuncに対し変数x1などを渡そうとすると数値が1に固定される

該当のソースコード

$e = 2.71828182846;

$a = 0;
$b = 1;

$n = 2.0 ** 10;
$h = ($b-$a)/$n;
$ans = 0;

for($i=1;$i<$n;$i++){
	$x1 = $h * $i + $a;
	$x1 *= -1;
	$ans += 2 * &func($x1);
}

$ans = 0.5 * $h * ($ans+&func($a)+&func($b));

print "ans : $ans\n";

sub func {
	$r = @_;
	return ($e ** $r);
}

補足情報（FW/ツールのバージョンなど）

OS:Windows10
perlのバージョン:5.28.1

Answer 1

ダメなのはここです。

sub func {
    $r = @_;

perlには「コンテキスト」という概念があります。
単純変数への代入を試みると、右辺は「スカラーコンテキスト」で評価されることになります。リストをスカラーコンテキストで評価すると、その値は「リストに含まれる要素の個数」となるのがperlの約束です。結果として必ず$rには1が代入されるというわけです。

ここは必ず、my($r) = @_; としてください。カッコでくくると左辺がリストになるため、右辺もリストコンテキストで評価されるようになり、期待通りの結果となるはずです。

Comments

[vega]

無事動きました！ありがとうございました！
詳細な理由を書いてくださったのでこちらをベストアンサーにさせていただきます。

Answer 2

とりあえず意図としては下記のようにしたいのだと思いますが、これで期待した数値になりますかね？？

sub func {
    my ($r) = @_;
    return ($e ** $r);
}

Comments

[vega]

期待通りの動きになりました！回答ありがとうございました！