summaryrefslogtreecommitdiffstats
path: root/tools/scripts/gdb_output_to_text.pl
blob: 8a85833aaaf379232cfdf9c8e15ec07db82456dd (plain)
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
while (<>) {
  if ( m/.* = [-\d]+ '(.+)'/ ) {
    my $a = $1;
    eval( "\$a=\"$a\"" );
    print $a;
  } elsif ( m/.* = -1/ ) {
    print "\n";
  }
}