contrib/nvi/perl_scripts/forall.pl

   1 sub forall {
   2   my ($code) = shift;
   3   my ($i) = $VI::StartLine-1;
   4   while (++$i <= $VI::StopLine) {
   5     $_ = $curscr->GetLine($i);
   6     VI::SetLine($VI::ScreenId, $i, $_) if(&$code);
   7   }
   8 }
   9
  10 1;