18 lines
345 B
Perl
Executable file
18 lines
345 B
Perl
Executable file
#!/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;
|