File: wc.pl

package info (click to toggle)
nvi 1.79-25
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 5,396 kB
  • ctags: 3,767
  • sloc: ansic: 42,531; sh: 1,561; tcl: 1,124; makefile: 787; perl: 240; awk: 24; csh: 13
file content (11 lines) | stat: -rw-r--r-- 171 bytes parent folder | download | duplicates (29) 
1
2
3
4
5
6
7
8
9
10
11
 
sub wc {
  my $words;
  $i = $VI::StartLine;
  while ($i <= $VI::StopLine) {
    $_ = $curscr->GetLine($i++);
    $words+=split;
  }
  $curscr->Msg("$words words");
}

1;