File: repeatfile

package info (click to toggle)
xfonts-mona 2.90-9
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, forky, sid, trixie
  • size: 7,888 kB
  • sloc: perl: 11,238; makefile: 442; lisp: 68
file content (27 lines) | stat: -rwxr-xr-x 445 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
#!/usr/bin/env perl
# $Id: repeatfile,v 1.4 2003/08/05 16:26:37 s42335 Exp $
#
# usage: repeatfile n file
#
# repeat the given file n times
# (to forge phony cvt/glyf tables).
#
#	2002/2/6, by 1@2ch
#	* public domain *
#

$p=$0; $p=~s:[^/]+$::; push(@INC,$p);
require 'lib_util.pl';

($n, $f) = @ARGV;
ropen($f);
$s = '';
while(my $x = rstrn($BUFSIZ)) {
    $s .= $x;
}

wopen('&STDOUT');
for($i = 0; $i < $n; $i++) {
    wstrn($s);
}
wclose();