UNIX処方箋：WWW::MechanizeモジュールによるWebアクセスの自動化

# perl -MCPAN -e shell
cpan> install WWW:Mechanize

 1 #!/usr/bin/perl -w
 2

 3 use strict;
 4 use WWW::Mechanize;
 5

 6 unless($ARGV[0] =~ m/^[0-9A-F]{2}-[0-9A-F]{2}-[0-9A-F]{2}$/i)
 7 {
 8         print("ERROR: Invalid argument.\n");
 9         print(" ex\) $0 08-00-20\n");
10         exit(1);
11 }
12

13 my $url = 'http://standards.ieee.org/regauth/oui/index.shtml';
14 my $agent = WWW::Mechanize -> new();
15 $agent -> get($url);
16 $agent -> field("x", $ARGV[0]);
17 $agent -> submit_form(form_number => "1");
18

19 print("IEEE OUI Company_id\n");
20 print("-------- -----------------------\n");
21 if($agent -> content =~ m/(?:[0-9A-F]{6})\s+\(base 16\)\s+(.+)/)
22 {
23         print("$ARGV[0] $1\n");
24 }
25 else
26 {
27         print("$ARGV[0] NOT FOUND\n");
28 }
29

30 exit(0);

% ./oui-search.pl 08-00-20
IEEE OUI  Company_id
--------  -----------------------
08-00-20  SUN MICROSYSTEMS INC.

% ./oui-search.pl 08-00-dd
IEEE OUI  Company_id
--------  -----------------------
08-00-dd  NOT FOUND

#!/usr/bin/perl -w


use strict;
use HTTP::Proxy;
use HTTP::Recorder;


my $proxy = HTTP::Proxy -> new();
my $agent = HTTP::Recorder -> new
(
        file            => "/tmp/myagent",
        showwindow      => 0
);
$proxy -> agent($agent);
$proxy -> start();


1;

# ./record-http.pl & ←Webブラウザでベンダーコード検索を実行
# cat /tmp/myagent
$agent->get("http://standards.ieee.org/regauth/oui/
index.shtml");
$agent->field("x", "08-00-20");
$agent->submit_form(form_number => "1");