1f6c387128427e121477c1b32ad35cdcaa5101ba3The Android Open Source Project#!/usr/bin/perl 2f6c387128427e121477c1b32ad35cdcaa5101ba3The Android Open Source Project 3f6c387128427e121477c1b32ad35cdcaa5101ba3The Android Open Source Projectopendir(DIR, ".") || die "can't opendir $some_dir: $!"; 4f6c387128427e121477c1b32ad35cdcaa5101ba3The Android Open Source Project@traces = grep { /.*\.dmtrace\.data/ } readdir(DIR); 5f6c387128427e121477c1b32ad35cdcaa5101ba3The Android Open Source Project 6f6c387128427e121477c1b32ad35cdcaa5101ba3The Android Open Source Projectforeach (@traces) 7f6c387128427e121477c1b32ad35cdcaa5101ba3The Android Open Source Project{ 8f6c387128427e121477c1b32ad35cdcaa5101ba3The Android Open Source Project $input = $_; 9f6c387128427e121477c1b32ad35cdcaa5101ba3The Android Open Source Project $input =~ s/\.data$//; 10f6c387128427e121477c1b32ad35cdcaa5101ba3The Android Open Source Project 11f6c387128427e121477c1b32ad35cdcaa5101ba3The Android Open Source Project $output = "$input.html"; 12f6c387128427e121477c1b32ad35cdcaa5101ba3The Android Open Source Project 13f6c387128427e121477c1b32ad35cdcaa5101ba3The Android Open Source Project print("dmtracedump -h -p $input > $output\n"); 14f6c387128427e121477c1b32ad35cdcaa5101ba3The Android Open Source Project system("dmtracedump -h -p '$input' > '$output'"); 15de75089fb7216d19e9c22cce4dc62a49513477d3Carl Shapiro 16f6c387128427e121477c1b32ad35cdcaa5101ba3The Android Open Source Project} 17f6c387128427e121477c1b32ad35cdcaa5101ba3The Android Open Source Project 18f6c387128427e121477c1b32ad35cdcaa5101ba3The Android Open Source Projectclosedir DIR; 19