- or download this
_____________________________________________
...
c = 4
d = 5
__________________________________________
- or download this
_____________________________________________
mm struct {
...
}
}
_________________________________________________
- or download this
sub change_to_normal {
my $str = shift;
...
my $replace = '"$1 = \{"'; #add {
$str =~ s/(.*)=\s*;/$replace/eeg;
}