商用，非商用を問わずダウンロードした個人および法人内での
本データの参照，およびソフトウェアなどへの組み込み用途として利用が可能
有料版は実際の市場で稼動している端末のシェアデータを含む．
ime-mode:disabled;<input type="text" istyle="1" />
<input type="text" mode="hiragana" /><input type="text" istyle="2" />
<input type="text" mode="hankakukana" /><input type="text" istyle="3" />
<input type="text" mode="alphabet" /><input type="text" istyle="4" />
<input type="text" mode="numeric" />Content-Type:multipart/alternative
Content-Type:text/plain
メールの内容 (テキスト)
Content-Type:text/html
メールの内容 (HTML)
Content-Type: multipart/mixed
Content-Type: multipart/alternative
Content-Type:text/plain
メールの内容 (テキスト)
Content-Type:text/html
メールの内容 (HTML)
Content-Type:image/gif
Content-Transfer-encoding:base64
(base64で符号化されたgifファイル)
Content-Type:multipart/related
Content-Type: multipart/alternative
Content-Type:text/plain
メールの内容 (テキスト)
Content-Type:text/html
メールの内容 (HTML)
Content-Type:image/gif
Content-Transfer-encoding:base64
Content-ID:<sample>
(base64で符号化されたgifファイル)
use HTTP::MobileAgent;
my $agent = HTTP::MobileAgent->new;
if ($agent->is_docomo){
# iモード
} elsif ($agent->is_ezweb){
# EZweb
} elsif ($agent->is_vodafone){
# Vodafone
}#!/usr/bin/perl
use CGI;
use Template;
use HTTP::MobileAgent;
my $q = CGI->new;
my $agent = HTTP::MobileAgent->new;
my $tt = Template->new({ABSOLUTE => 1});
my $output;
# sample.htmlのagentパラメータへ
# HTTP::MobileAgentのインスタンスをセットする
$tt->process('/path/to/sample.html', {agent => $agent}, \$output) or die $Template::ERROR;
print $q->header(-charset=>'Shift_JIS');
print $output;
exit;<html>
<body>
[% IF agent.is_docomo %]
iモード
[% ELSIF agent.is_ezweb %]
EZweb
[% ELSIF agent.is_vodafone %]
Vodafone Live!
[% ELSE %]
Non Mobile...
[% END %]
</body>
</html>use Mail::Address::MobileJp;
if (is_imode($email)){
# @docomo.ne.jp
}elsif (is_ezweb($email)){
# @ezweb.ne.jp or @*.ezweb.ne.jp
}elsif (is_vodafone($email)){
# @jp-*.ne.jp or @*.vodafone.ne.jp
# (*にはd,h,t,c,k,r,n,s,qのみが適用となる)
}use CGI;
use HTML::Entities::ImodePictogram;
my $q = CGI->new;
my $text = $q->param('text');
# EZwebの絵文字も削除対象にする
$HTML::Entities::ImodePictogram::ExtPictorgram_re .= '|[\xF3\xF4\xF6\xF7][\x40-\x7E\x80-\xFC]';
# iモード、EZwebの絵文字を削除
$text = remove_pictogram($text);
# Vodafoneの絵文字を削除
$text =~ s/\x1B\$(.+?)\x0F//g;DoCoMo
MECARD:N:名前(姓),名前(名);SOUND:半角カナ読み(姓),半角カナ読み(名);TEL:電話番号;EMAIL:メールアドレス;NOTE:メモ;;
au,Vodafone
MEMORY:
NAME1:名前
NAME2:半角カナ読み
MAIL1:メールアドレス1
TEL1:電話番号1
TEL2:電話番号2