Perl

redhat6.8リリースノート覚書

第2章 全般的な更新 - Red Hat Customer Portal Yum は、パッケージの依存関係エラーが発生した際に、エンドユーザーにシステム上で無効になっているパッケージリポジトリーを検索することを要求するようになりました。これにより、ユーザーは見つからないパ…

携帯絵文字対応BBS「SmallPICT」バージョンアップのお知らせ

私 Kimura が運営しているサイト「My First HDML」で配布しているCGI、 携帯絵文字対応BBS「SmallPICT」をバージョンアップ(Ver2.7)しました。 今回のバージョンアップにはセキュリティ上の脆弱性に関する修正が含まれます。 旧バージョンをご利用中の方は…

au秋冬モデル以降の端末かどうか判定する

auの2011年秋冬モデルからIPアドレス帯域が変わる - Kimura.Memoにも書いたがその修正版どうやら先日発表された新製品ではF001(FJ31)だけが「11年秋冬モデル以降」の扱いになるらしいので。 if ( $device_id =~ m{ ^ (?: CA(?:2|3[1-9A-K])| HI(?:2|3[1-9A…

Windows Phone(7.0+) のユーザーエージェントから情報を取得する

if ( $ENV{HTTP_USER_AGENT} =~ /(Windows Phone)(?: OS)? ([^\s;)]+)/i ) { print 'OS = [', lc($1), "]\n", 'OS Version = [', $2, "]\n"; if ( $ENV{HTTP_USER_AGENT} =~ /[^\d]; *([^;)]+)(?:; *[^;)]+)?\)?$/ ) { print 'device = [', $1, "]\n"; } } e…

MySQL5.5でDBD::mysqlを使う時の注意

MySQLを5.5にアップデートし、my.cnfで以下のように文字セットの設定をきちんとしているとする。 [client] default-character-set=cp932 [mysqld] character-set-server=cp932 [mysqldump] default-character-set=cp932 [mysql] default-character-set=cp932…

Androidのユーザーエージェントから情報を取得する

Google ウェブマスター向け公式ブログ: Android のユーザーエージェントの検出について ユーザーエージェントの内容に応じてモバイル サイトにリダイレクトするかどうかを判断するのであれば、文字列「android」だけではなく、「mobile」と「android」の両方…

Andoridのユーザーエージェントから情報を取得する

【2016/11/04追記】 この方法だと一部のAndorid端末を誤判定してしまうので、http://d.hatena.ne.jp/Kimura/20161104/p1 の記事をご覧下さい。 if ( $ENV{HTTP_USER_AGENT} =~ m{Mozilla/\d+\.\d+ \(Linux; U; Android (\d+\.\d+[^ ^;]*); ([^ ^;]+); (.+) B…

HTML::DoCoMoCSSを使う

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

HTML::DoCoMoCSSのインストール

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

Jcode

Perl v5.8.8 Jcode v2.03 Encode v2.12 の環境で、 use Jcode; Jcode::convert(\$str1, "sjis", "euc", "z"); Jcode::convert(\$str2, "sjis", "euc", "h"); print $str1, $str2; が、文字化けする。しかし、 use Jcode; Jcode::convert(\$str1, "sjis", "eu…

YAPC::Asia 2006

◎Perl 5.8 and Unicode: Myths, Facts and Changes -- Dan Kogai LWPを使ってリアルタイムにスライドを翻訳!! use utf8 decode then encode shiftjis.say?! ◎Perl 6 Update -- Damian Conway 「チョッパヤ」は、「ちょっと速く」ではなく、「超速く」のこと…

YAPC::Asia 2006

mixi.jp: ChangeLog -- Batara Kesuma mixiは、Perlで動いているんだ!! Cache::Memcached HTML::Template::Pro MySQL 5.0

CGI.pmの%EXPORT_TAGS

%EXPORT_TAGS = ( ':html2'=>['h1'..'h6',qw/p br hr ol ul li dl dt dd menu code var strong em tt u i b blockquote pre img a address cite samp dfn html head base body Link nextid title meta kbd start_html end_html input Select option comment …