File: gdb_output_to_text.pl

package info (click to toggle)
calligra 1%3A2.4.4-3
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 290,028 kB
  • sloc: cpp: 1,105,019; xml: 24,940; ansic: 11,807; python: 8,457; perl: 2,792; sh: 1,507; yacc: 1,307; ruby: 1,248; sql: 903; lex: 455; makefile: 89
file content (10 lines) | stat: -rwxr-xr-x 167 bytes parent folder | download | duplicates (17) 
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";
  }
}