1#!/usr/bin/perl
2
3opendir(DIR, ".") || die "can't opendir $some_dir: $!";
4@traces = grep { /.*\.dmtrace\.data/ } readdir(DIR);
5
6foreach (@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
18closedir DIR;
19