1 files changed, 10 insertions, 0 deletions
diff --git a/tools/scripts/gdb_output_to_text.pl b/tools/scripts/gdb_output_to_text.pl
new file mode 100755
index 000000000..8a85833aa
--- /dev/null
+++ b/tools/scripts/gdb_output_to_text.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+while (<>) {
+  if ( m/.* = [-\d]+ '(.+)'/ ) {
+    my $a = $1;
+    eval( "\$a=\"$a\"" );
+    print $a;
+  } elsif ( m/.* = -1/ ) {
+    print "\n";
+  }
+}