Change spaces to symbols in names.
PR: 856
This commit is contained in:
parent
a0cac0ff75
commit
e6784a47e9
1 changed files with 5 additions and 3 deletions
|
@ -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 a new issue