| Subject: | Parsing bug |
| Date: | Sun, 12 Apr 2009 11:17:13 +0900 |
| To: | bug-Net-MAC-Vendor [...] rt.cpan.org |
| From: | Ben Bullock <benkasminbullock [...] gmail.com> |
According to
http://search.cpan.org/dist/Net-MAC-Vendor/lib/Vendor.pm:
"lookup( MAC )
Given the MAC address, return an anonymous array with the vendor
information. The first element is the OUI, the second element is the
vendor name, and the remaining elements are the address lines.
Different records may have different numbers of lines, although the
first two should be consistent."
But the first element is the vendor name, and the second contains the
first line of the address:
#!/home/ben/software/install/bin/perl
use warnings;
use strict;
use Net::MAC::Vendor;
my $array = Net::MAC::Vendor::lookup("00:21:47:99:99:99");
my $i=0;
for (@$array) {
$i++;
print "$i: $_\n";
}
prints
1: Nintendo Co., Ltd.
2: 11-1 HOKOTATE-CHO
3: KAMITOBA, MINAMI-KU
4: KYOTO 601-8501
5: JAPAN
Also
formants -> formats
thoug -> though
I looked for the latest version of the module on sourceforge.net but
the version number there is 1.17, one less than the version 1.18 on
CPAN.