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) {
if (/ - /) {
s/ - .*//;
s/,[ \t]+/,/g;
s/^[ \t]+//g;
s/[ \t]+$//g;
s/,\s+/,/g;
s/\s+,/,/g;
s/^\s+//g;
s/\s+$//g;
s/\s/_/g;
push @words, split ',';
}
}