1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| #!/usr/bin/perl
|
| opendir(DIR, ".") || die "can't opendir $some_dir: $!";
| @traces = grep { /.*\.dmtrace\.data/ } readdir(DIR);
|
| foreach (@traces)
| {
| $input = $_;
| $input =~ s/\.data$//;
|
| $output = "$input.html";
|
| print("dmtracedump -h -p $input > $output\n");
| system("dmtracedump -h -p '$input' > '$output'");
|
| }
|
| closedir DIR;
|
|
