Change spaces to symbols in names.

PR: 856
This commit is contained in:
Richard Levitte 2004-03-25 19:52:36 +00:00
parent a0cac0ff75
commit e6784a47e9

View File

@ -9,9 +9,11 @@ while(<STDIN>) {
} elsif ($name) { } elsif ($name) {
if (/ - /) { if (/ - /) {
s/ - .*//; s/ - .*//;
s/,[ \t]+/,/g; s/,\s+/,/g;
s/^[ \t]+//g; s/\s+,/,/g;
s/[ \t]+$//g; s/^\s+//g;
s/\s+$//g;
s/\s/_/g;
push @words, split ','; push @words, split ',';
} }
} }