File: generate.pl

package info (click to toggle)
libconvert-binary-c-perl 0.86-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 13,264 kB
  • sloc: ansic: 47,836; perl: 4,980; yacc: 2,143; makefile: 61
file content (16 lines) | stat: -rw-r--r-- 302 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/usr/bin/perl -w
use strict;
use warnings;
use IO::File;
use File::Spec;

my $dir = @ARGV ? shift : '.';

for my $f ('aa' .. 'az') {
  my $fh = IO::File->new(">" . File::Spec->catfile($dir, "$f.h")) or die;
  print $fh "/*\n";
  for (1..2500) {
    print $fh $f x 36, "\n";
  }
  print $fh "*/\n";
}