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