File indexing completed on 2024-05-19 16:01:23
0001 #!/usr/bin/perl 0002 while (<>) { 0003 if ( m/.* = [-\d]+ '(.+)'/ ) { 0004 my $a = $1; 0005 eval( "\$a=\"$a\"" ); 0006 print $a; 0007 } elsif ( m/.* = -1/ ) { 0008 print "\n"; 0009 } 0010 }
File indexing completed on 2024-05-19 16:01:23
0001 #!/usr/bin/perl 0002 while (<>) { 0003 if ( m/.* = [-\d]+ '(.+)'/ ) { 0004 my $a = $1; 0005 eval( "\$a=\"$a\"" ); 0006 print $a; 0007 } elsif ( m/.* = -1/ ) { 0008 print "\n"; 0009 } 0010 }