mirror of
https://github.com/freebsd/freebsd-src.git
synced 2024-12-04 10:19:26 +00:00
b8ba871bd9
files, curses, db, regex etc that we already have). The other glue will follow shortly. Obtained from: Keith Bostic <bostic@bostic.com>
12 lines
171 B
Perl
12 lines
171 B
Perl
sub wc {
|
|
my $words;
|
|
$i = $VI::StartLine;
|
|
while ($i <= $VI::StopLine) {
|
|
$_ = $curscr->GetLine($i++);
|
|
$words+=split;
|
|
}
|
|
$curscr->Msg("$words words");
|
|
}
|
|
|
|
1;
|