配列 各項目を$n倍するプログラムソース

質問

配列 @in=(10,20,30,40) がある、各項目を $n 倍するプログラムを作っていますが、
$n 倍出来ません。
以下、プログラムです。
#!/usr/bin/perl

@in=(10,20,30,40) ;
print"@inを";
print"何倍しますか？:";
chomp($n=<>);

foreach $ni_tall (@in) {

$n *= $ni_tall;
}
$ave = $n * @in;

print "結果: $ave\n";
print "結果: $ni_tall\n";
print "結果: $n\n";

print "結果: @in\n";

＿＿＿実行結果＿＿＿
10,20,30,40を何倍しますか？:７
結果：6720000
結果：
結果： 1680000
結果： 10 20 30 40
となってしまいます。

例えば、
：２
結果：20,40,60,80
としたいのですが、
分かりません。

分かる方いましたら、教えて頂けると助かります。
よろしくお願いします。

回答No.4

kuroizell · ベストアンサー

> print "@inを";
ダブルクォートでくくると配列の値が展開されるので、
シングルクォートでくくるか、エスケープしましょう。

$ni_tallは、foreachブロック内でのみ有効な変数になります。
foreachブロック終了と同時に、なくなります（printしても何も表示されません）。

> $n *= $ni_tall;
これは、変数$nに数値を代入することになります。
略さず書くと、 $n = $n * $ni_tall;
最終的に、$n = 7*10*20*40の値(1680000)が入ります。

> $ave = $n * @in;
これは、$ave = 1680000 × 4(配列の個数）となります。

Perlは色々な書き方がありますので、以下のようにも書けます。
ご参考までにどうぞ。

my @in = qw(10 20 30 40);
print '@inを何倍しますか？:';
chomp(my $n=<>);

map { $_ *= $n } @in;
print "結果:", join(',', @in);

お礼

回答ありがとうございます。
参考にさせてもらいます。

回答No.3

kmee

*= のような複合代入演算子ですが
$a *= $b ;
は
$a = $a * $b ;
と同等の意味です。
(厳密には、$aが評価される回数が違うので、式によっては違いが出ることはありますが、基本は上の通りです)

そう考えれば
$n *= $ni_tall;
→
$n = $n * $ni_tall
となるので、どこがおかしいかわかるでしょう。

お礼

回答ありがとうございます。
具体的なアドバイスありがとうございます。

回答No.2

moon_piyo

こんばんは

10行目

$n *= $ni_tall;

を

$ni_tall *= $n;

にかえてみましょうか

お礼

回答ありがとうございます。
具体的なアドバイスありがとうございます。

回答No.1

shiren2

こんな風に書きます。

foreach $i (@in){
$i *= $n
}

お礼

回答ありがとうございます。
参考にさせて頂きます。