絵文字がある場合の処理 use HTML::DoCoMoCSS; use Jcode(); my $inliner = HTML::DoCoMoCSS->new(base_dir => '/path/to/documentroot/'); my $j = Jcode->new(); my $content = qq(

HTML::DoCoMoCSSモジュールをCPANでインストールしようとして失敗した時のメモ。CSS::Tiny::Styleのインストール時にTest::Perl::Criticが無い、としかられるのだが、Test::Perl::Criticをインストールしても、CSS::Tiny::Styleのインストール時にTest::Perl…

EZwebで、2010年10月より以下のIPアドレス帯域が追加となる。 111.86.143.192/27 111.86.143.224/27 111.86.147.0/27 111.86.142.128/26 111.86.142.192/26 111.86.143.0/26 KDDI au: 技術情報 > IPアドレス帯域

# $device_idには、ユーザーエージェントから取得した # KDDI-○○○○の○○○○部分が入っている my $_20120724end = 0; if ( $device_id =~ /^(?:[A-Z]{2}2[0-9A-Z]|CA3[1234567]|(?:HI|SA|SN)3\d|KC3[\dA]|(?:MA|SH|ST)3[12]|TS3[12345678BC])$/ ) { $_20120724e…

Mozilla/4.0 (compatible; MSIE 6.0; Windows CE; IEMobile 8.12; MSIEMobile 6.5) KDDI-TS01 Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; KDDI-TS01; Windows Phone 6.5.3.5) ※情報元は、http://keitaiall.jp/IS02.html 一方、IS01のユーザーエー…

▽こんな感じで良いだろうか？ # SoftBank端末である # $device_idにはユーザーエージェントから取得した機種名が入っている my $softbank_new_emoji = 1; if ( $device_id =~ /^(?:J|V|7|8[01]|82[012](?:P|SC|SH|T)|823SH|9[01]|920|92[12]SH|921T)/ ) { $s…