forked from osmocom/wireshark
Remove S/A from company names
svn path=/trunk/; revision=15568
This commit is contained in:
parent
0f20cf1abb
commit
f718b0d6a1
|
@ -45,11 +45,11 @@ sub shorten
|
||||||
my $origmanuf = shift;
|
my $origmanuf = shift;
|
||||||
my $manuf = " " . $origmanuf . " ";
|
my $manuf = " " . $origmanuf . " ";
|
||||||
# Remove any punctuation
|
# Remove any punctuation
|
||||||
$manuf =~ tr/,.()/ /;
|
$manuf =~ tr/',.()/ /;
|
||||||
# & isn't needed when Standalone
|
# & isn't needed when Standalone
|
||||||
$manuf =~ s/ \& / /g;
|
$manuf =~ s/ \& / /g;
|
||||||
# Remove any "the", "inc", "plc" ...
|
# Remove any "the", "inc", "plc" ...
|
||||||
$manuf =~ s/\s(the|inc|incorporated|plc||systems|corp|corporation|a\/s|ab|ag|kg|gmbh|co|company|limited|ltd)(?= )//gi;
|
$manuf =~ s/\s(the|inc|incorporated|plc||systems|corp|corporation|s\/a|a\/s|ab|ag|kg|gmbh|co|company|limited|ltd)(?= )//gi;
|
||||||
# Convert to consistent case
|
# Convert to consistent case
|
||||||
$manuf =~ s/(\w+)/\u\L$1/g;
|
$manuf =~ s/(\w+)/\u\L$1/g;
|
||||||
# Remove all spaces
|
# Remove all spaces
|
||||||
|
|
Loading…
Reference in New Issue