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
28
29
30
31
32
33
34
35
36
37
|
#!perl -w
use strict;
use File::Temp;
use File::Basename;
my $N = 500;
my $tmp = File::Temp->new(
UNLINK => 0,
DIR => 'author',
SUFFIX => '.tt',
);
$tmp->unlink_on_destroy(1);
my $tmpl = <<'XML';
<foo>
<bar>[% aaa %]</bar>
<baz>[% bbb %]</baz>
</foo>
XML
print $tmp "<root>\n";
for my $i(1 .. $N) {
print $tmp $tmpl;
}
print $tmp "</root>\n";
close $tmp;
system($^X, 'author/large.pl', basename($tmp)) == 0
or die "Failed to exec"; # wake up
system($^X, '-d:NYTProf', 'author/large.pl', basename($tmp)) == 0
or die "Failed to exec";
|
