Loading util/extract-names.pl +2 −0 Original line number Diff line number Diff line Loading @@ -10,6 +10,8 @@ while(<STDIN>) { if (/ - /) { s/ - .*//; s/,[ \t]+/,/g; s/^[ \t]+//g; s/[ \t]+$//g; push @words, split ','; } } Loading Loading
util/extract-names.pl +2 −0 Original line number Diff line number Diff line Loading @@ -10,6 +10,8 @@ while(<STDIN>) { if (/ - /) { s/ - .*//; s/,[ \t]+/,/g; s/^[ \t]+//g; s/[ \t]+$//g; push @words, split ','; } } Loading