OS/2 Spezial/SPEZIAL2_97.zip/SPEZIAL2_97.iso/ANWEND/EDITOR/NVI179B/NVI179B.ZIP/perl_scripts/forall.pl

Text File | 1996-07-02 | 191b | 11 lines

sub forall {
  my ($code) = shift;
  my ($i) = $VI::StartLine-1;
  while (++$i <= $VI::StopLine) {
    $_ = $curscr->GetLine($i);
    VI::SetLine($VI::ScreenId, $i, $_) if(&$code);
  }
}

1;