TSabc 発言

中村 のりつぐ です。

In article <20020408210259K.nnakamur@...> 
Noritsugu Nakamura <nnakamur@...> wrote:
> #!/usr/bin/env perl
> 
> while (<>) {
>     if ($_ != 0) {
>         $total += $_;
>     } else {
>         last;
>     }
> }
> print "total = $total\n";

これでも良いよう。(もっと短くなりそうなんですが…)

#!/usr/bin/env perl

while (($v = <>) != 0) {
    $total += $v;
}
print "total = $total\n";

       中村 典嗣  E-mail:     nnakamur@...