diff options
Diffstat (limited to 'contrib/nvi/perl_scripts/wc.pl')
-rw-r--r-- | contrib/nvi/perl_scripts/wc.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/contrib/nvi/perl_scripts/wc.pl b/contrib/nvi/perl_scripts/wc.pl new file mode 100644 index 0000000..0a50159 --- /dev/null +++ b/contrib/nvi/perl_scripts/wc.pl @@ -0,0 +1,11 @@ +sub wc { + my $words; + $i = $VI::StartLine; + while ($i <= $VI::StopLine) { + $_ = $curscr->GetLine($i++); + $words+=split; + } + $curscr->Msg("$words words"); +} + +1; |