contrib/nvi/perl_scripts/wc.pl

   1 sub wc {
   2   my $words;
   3   $i = $VI::StartLine;
   4   while ($i <= $VI::StopLine) {
   5     $_ = $curscr->GetLine($i++);
   6     $words+=split;
   7   }
   8   $curscr->Msg("$words words");
   9 }
  10
  11 1;