projects
/
spider.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
7107f2dd34c8dfec95c8389e608e3b7f87eca0ee
[spider.git]
/
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);