2つの引数の合計の求め方ですが

質問

perlの初心者ですので初歩の問題ですが分かる方いればぜひ教えていただきたいです
引数が２つの場合だと下のようになるのが分かるのですが２つ以上の場合はどうすればいいのでしょうか　よろしくおねがいします
#!/usr/local/bin/perl
$sum=$ARGV[0]+$ARGV[1];
print"sum=$sum\n";

回答No.3

genkivogue

>foreach($ARGV){

foreach(@ARGV){

ではどうでしょう。

回答No.2

Suzi

済みません、記述ミスです。
$ARGV ではなく、@ARGV でした。
よって、以下のが正しいです。

#!/usr/local/bin/perl
foreach(@ARGV){
$sum+=$_;
}
print"sum=$sum＼n";

お礼

Suziさんありがとうございます．試してみますので助かります＾＾

回答No.1

Suzi

2つ以上なら
$sum=$ARGV[0]+$ARGV[1]+$ARGV[2];。

2以上でその数が分からなければ

foreach($ARGV){
$sum += $_;
}

とかではどうでしょうか。

補足

Suziさん レスありがとうございます.下のように確かめてみたのですが結果はsum=0となってしまいましたがどこかがおかしいのでしょうか

#!/usr/local/bin/perl
foreach($ARGV){
$sum+=$_;
}
print"sum=$sum\n";