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; 19
