Perlで１～１０まで全部足す。簡単に書くには？

題名のとおりなんですが。
Perlで１～１０まで全部足すのに、
1番簡単に書いたらどんな感じなるでしょうか？
(一回足すごとに結果は表示）
私は全然浮かばず、
$a = 1
print "$a\n"
$b = $a + 1
print "$b\n"
$c = $b +2 "
…続く

こんな感じのお粗末なものを書きました。
whileやforを使えばもっと簡単に書けると思いますが、
どなたかご存知でしたら教えてください。

No.3 ベストアンサー 回答者： bitsu 回答日時： 2006/04/25 02:19

#変数の初期化

$a = 1;

#$aが１０以下の間繰り返し
while ($a <= 10) {

#&aの中身を表示
print "$a\n";

#$aに１足す
a ++;

}

こんな感じでどうですかね？

この回答へのお礼

ありがとうございます。
解説が書いてありよくわかりました。

お礼日時：2006/04/28 00:26

No.5 回答者： BLUEPIXY 回答日時： 2006/04/25 03:38

print join "\n", map ( $a+=$_ , 1..10);

この回答へのお礼

いつもの人回答ありがとうございます。
シンプルでこれが一番いいと思います。
強いて言えば、少し解説が欲しかったです。

お礼日時：2006/04/28 00:25

No.4 回答者： bitsu 回答日時： 2006/04/25 02:20

ごめんなさいNo1とNo3です。

間違えて２回送ってしまいました・・・orz

No.2 回答者： hara_peko 回答日時： 2006/04/25 02:18

my $total;

for (1..10) {
$total += $_;
print "$total\n";
}

とか

my $total;
print +($total += $_), "\n" for (1..10);

でいいですか？

この回答へのお礼

ありがとうございます。
OKなんですけど、解説が欲しかったです。

お礼日時：2006/04/28 00:27

No.1 回答者： bitsu 回答日時： 2006/04/25 02:18

#変数の初期化

$a = 1;

#$aが１０になるまで繰り返し
while ($a <= 10) {

#&aの中身を表示
print "$a\n";

#$aに１足す
a ++;

}

こんな感じでどうですかね？