blob: 5d352e4e9e52c63bb2baa5411b1f191bb052289c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
#!/usr/bin/perl
my @ranks = @ARGV;
unless (@ranks) {
@ranks = split(/\n/,`/bin/ls gmon`);
}
print "will do @ranks\n";
for my $r (@ranks) {
print "$r\n";
system "test -e gmon.out && rm gmon.out ; ln -f gmon/$r/gmon.out ; gprof newsyn > gmon/$r/o";
}
|