cmd/blank.pl

   1 #
   2 # Print n blank lines
   3 #
   4 # Copyright (c) 1998 Dirk Koopman G1TLH
   5 #
   6 # $Id$
   7 #
   8
   9 my ($self, $line) = @_;
  10 my ($lines) = $line =~ /^\s*(\d+)/;
  11 $lines ||= 1;
  12 my @out;
  13 push @out, ' ' for (1..$lines);
  14 return (1, @out);