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