TSabc 発言

Noritsugu Nakamura <nnakamur@...> さん writes.

> これでも良いよう。(もっと短くなりそうなんですが…)
> 
> #!/usr/bin/env perl
> 
> while (($v = <>) != 0) {
>     $total += $v;
> }
> print "total = $total\n";

while ($v = <> + 0) {

とか。

--
本田博通（閑舎）
Hiromichi Honda <raku@...>