Change spaces to symbols in names.

PR: 856

Change spaces to symbols in names.
PR: 856
c2dc3ee8 · Richard Levitte · 482c2acf · c2dc3ee8
隐藏空白更改
内联并排

Showing with 5 addition and 3 deletion

util/extract-names.pl util/extract-names.pl +5 -3

未找到文件。
--- a/util/extract-names.pl
+++ b/util/extract-names.pl
@@ -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 ',';
 	}
    }