Change spaces to symbols in names.
PR: 856
This commit is contained in:
parent
482c2acf02
commit
c2dc3ee8d9
@ -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 ',';
|
||||
}
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user