tools/dmtracedump/dmtracedump.pl

   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;