id:fbisさんの携帯のユーザーIDを取得する - Unknown::Programmingを見て試してみました。 #!/usr/bin/perl use strict; use warnings; use HTTP::MobileUserID; use HTTP::MobileAgent; my $agent = HTTP::MobileAgent->new; my $userid = HTTP::MobileUser…