MAC vendor lookup: Difference between revisions
→{{header|Perl}}: Add request throttling.
(→{{header|Python}}: Add libheader for requests since it needs to be installed) |
(→{{header|Perl}}: Add request throttling.) |
||
Line 856:
=={{header|Perl}}==
<lang perl>#!/usr/bin/env perl -T
use
use warnings;
use LWP;
use Time::HiRes qw(sleep);
our $VERSION = 1.000_000;
Line 864 ⟶ 865:
my $ua = LWP::UserAgent->new;
no warnings 'qw';
my @macs = qw(
'Rhubarb', '00-14-22-01-23-45',▼
);
my $vendor = get_mac_vendor($mac);
if ($vendor) {
say "$mac = $vendor";
}
sleep 1.5 if @macs;
}
| |||