minix/dist/nvi/perl_scripts/wc.pl
Lionel Sambuc 3e1db26a5a Termcap update, replacing elvis by nvi.
Removing elvis, importing nvi, ctags, updating libedit.

Change-Id: I881eb04d2dc64cf112facd992de1114e1a59107f
2013-01-24 07:44:38 +01:00

11 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;