osmith
/
wireshark
forked from osmocom/wireshark
1
0
Fork 0
Code Pull Requests Releases Wiki Activity

Remove S/A from company names 

svn path=/trunk/; revision=15568
This commit is contained in:
Jörg Mayer 2005-08-27 15:11:00 +00:00
parent 0f20cf1abb
commit f718b0d6a1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
make-manuf
View File

@ -45,11 +45,11 @@ sub shorten
my $origmanuf = shift;
my $manuf = " " . $origmanuf . " ";
# Remove any punctuation
$manuf =~ tr/,.()/ /;
$manuf =~ tr/',.()/ /;
# & isn't needed when Standalone
$manuf =~ s/ \& / /g;
# 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
$manuf =~ s/(\w+)/\u\L$1/g;
# Remove all spaces