はてなブックマーク

Perl 5.20にしたら、DBIが何やら不可解な動作をするようになりました。 問題の原因 保存されいてる文字コードがおかしい 解決策 DBD::Pg編 DBD::MySQL 比べると DBIの仕様 DBD::Pgの仕様変更 2017/05/30 まとめ 問題の原因 どうやら UTF8 を扱う機能が増えたみたいです。DBIの接続時のパラメーターにこんなものが増えています。 pg_enable_utf8 => 1 , # 結果をUTF8フラグ付きにする（PostgreSQL） mysql_enable_utf8 => 1 , # 結果をUTF8フラグ付きにする（MySQL） PerlのDBIモジュールで自動的にUTF8フラグを付ける この影響で、PostgreSQL運用のシステムを Perl 5.14 から 5.20 にアップグレードしたところ文字化け発生。また厄介なことをしてくれたものです

※新しい記事に移動しました API1.0の廃止と共にTwitterウイジェットが使えなくなってしまいました。新しい埋め込みタイムラインは通常の方法では細かいデザイン（配色）を変更することができないので、小細工してデザイン変更したまとめ。 新ウイジェットのHTML 生成されるHTML iframeの中身を取得する iframe内の構造（2013/06/13現在） もともと変更可能なデザイン（2013/06/13現在） デザインの変更(2014/08/10更新) 外部CSSではなく直接指定する方法 新ウイジェットのHTML <a class="twitter-timeline" href="https://twitter.com/nabe_abk" data-widget-id="344823557110497281">@nabe_abk からのツイート</a> <script async s

Perlの名前空間と型グロブに関する応用的な話です。高度な内容ですので、少なくともリファレンスについては理解している人向けです。型グロブも多少知らないと難しいかもしれません。 型グロブとは 名前空間の取得と操作 外部モジュールと名前空間 名前空間の開放と変数の開放 名前空間まとめ 応用：動的な関数のフック 応用：ライブラリの自動リロード 具体的な方法 アンロードルーチン まとめ ※以下特に断りがない限りPerl 5.10での動作確認です。 型グロブとは Perlの名前空間にアクセスする際に出てくるものです。prefrefによれば型グロブには次のようなものがあります。 $scalarref = *foo{SCALAR}; $arrayref = *foo{ARRAY}; $hashref = *foo{HASH}; $coderef = *foo{CODE}; $ioref = *foo{I

「さくらのレンタルサーバ」等で、１年～半年ぐらい前は使用できた「@,$,%,!」といった記号がメールパスワードとして使えなくなってました。セキュリティを低下させる仕様変更が信じられないので、それ関連の情報まとめ。 使用できる文字の制限 なぜ使えなくなったのか？ 問題の本質 さくらレンタルサーバのメール仕様と考察 追記 2011/02/08 その後 2014/12/02 使用できる文字の制限 気づかなかったのですが「Q：パスワードとして設定できる文字は何ですか？」に詳細がありまして、半角英数を除くと + - * / = . , _ たったこれだけの記号しか使用できません。 第一、不便とかそういう問題じゃないし、サーバやネットで極めて重要なセキュリティ低下を招くことになるのですが……。 なぜ使えなくなったのか？ セキュリティを低下させて平気でいるさくらインターネットが技術者として信用ならないの

Digest::SHA ないしは Digest::SHA::PurePerl を使います。よって PurePerl でも動作します。 HMAC署名についてはwikipediaを参照。 sub hmac_sha1 { # my $self = shift; my ($key, $msg) = @_; my $sha1; if ($Digest::SHA::PurePerl::VERSION) { $sha1 = Digest::SHA::PurePerl->new(1); } else { eval { require Digest::SHA; $sha1 = Digest::SHA->new; }; if ($@) { require Digest::SHA::PurePerl; $sha1 = Digest::SHA::PurePerl->new(1); } } my $bs = 64;

よくネットショップ等で買い物をすると 郵便番号は半角で入力してください。 とか言われてウザくないですか？　こういうのを解消するためのルーチンです。 条件 日本語に混ざる全角英数等を半角にする 半角カタカナを全角カタカナにする Encode::JP::H2Z その他 条件 Perl 5.8以降 利用可能文字列はutf-8のみ（そうでない場合はutf8に変換して渡してください） WTFPL（PDS扱いでも可）。 ソースは必ずutf-8で保存してください。 日本語に混ざる全角英数等を半角にする use utf8; use Encode (); sub utf8_zen2han { my $str = shift; my $flag = utf8::is_utf8($str); Encode::_utf8_on($str); $str =~ tr/　！”＃＄％＆’（）＊＋，－．／０-９：；＜＝＞？

リクエストが正しく確認されれば、次のような返答があります。 HTTP/1.1 200 OK Date: Wed, 18 Aug 2010 13:40:58 GMT Server: hi Status: 200 OK Last-Modified: Wed, 18 Aug 2010 13:40:58 GMT X-Runtime: 0.01619 Content-Type: text/html; charset=utf-8 Content-Length: 145 Pragma: no-cache X-Revision: DEV Connection: close oauth_token=aVxZsxVqtUA6PIZs6g442wlRE1IC4X8dZ4Cckd8NpM8& oauth_token_secret=QYxVG7U9ISXpxBWibVOgtgbh0SZel0Op1Z3wt79I&

メールの添付ファイルやMIMEに関するメモ。実装サンプルは adiary を落として lib/Satsuki/Base/Mail.pm でも開いてみてください。 MIMEのパターン マルチパート本文のヘッダ 添付ファイルでのファイル名 RFC2231準拠の記述 format=flowedなテキスト 2011/06/17 資料 multipartの入れ子構造 参考 サンプルファイル 関連記事：２行に渡るメールヘッダの正しい処理 MIMEのパターン Subject: =?iso-2022-jp?B?YWRpYXJ5IGlQaG9uZRskQiQrJGkkTkVqOUYkTjdvGyhC?= Subject: =?ISO-2022-JP?B?YWRpYXJ5IGlQaG9uZRskQiQrJGkkTkVqOUYkTjdvGyhC?= From: =?UTF-8?B?44Gq44G5?= <nab

adiaryではすべてのテーブルに pkey というシリアル値（PRIMARY KEY）を設定しています。その扱いについて。 特にMySQLで特別な加工をせず、安全にシリアル値を取得する方法。 PostgreSQLの場合 PostgreSQLではそのままserial型というものがあり、 CREATE TABLE test(pkey SERIAL PRIMARY KEY, x INT); INSERT INTO test(x) VALUES(10); とすることで、pkeyをプライマリキーとして自動的に生成することができます。 PostgreSQLではシーケンス操作関数というものがあり、SERIAL型を定義すると自動的に作成されます。 例えば、現在の値を取得したければ SELECT currval(pg_catalog.pg_get_serial_sequence('test', 'pkey

PostgreSQLのトランザクションの仕様 DBD::Pgの謎 謎の解析 追記 メモ PostgreSQLのトランザクションの仕様 CREATE TABLE test(x INT UNIQUE); INSERT INTO test (x) VALUES (1); INSERT INTO test (x) VALUES (2); としておきます。 ここで、 => BEGIN; => INSERT INTO test (x) VALUES (3); INSERT 0 1 => INSERT INTO test (x) VALUES (1); ERROR: duplicate key value violates unique constraint "test_x_key" とするとエラーになります。PostgreSQLはトランザクション中にエラーが起こると、以後何をしてもエラーになり受け付け

adiaryをIE8（IE8モードの標準準拠時）に対応させたときのメモ。 IEモードスイッチを標準準拠にする HTTP_USER_AGENT CSSの@charset宣言 input type="file"で直接入力できない フォームのtextareaが勝手にスクロールする 追記 2009/06/17 さらに追記。 2010/10/15 substr(-1)の結果が正しくない 2014/08/23 IEモードスイッチを標準準拠にする DOCTYPEレンダリングモード以外に、IE6/7互換設定を一切無視して*1IE8以降の標準でレンダリングさせる。 <meta http-equiv="X-UA-Compatible" content="IE=edge" /> HTTP_USER_AGENT IE8ならば本来、 Mozilla/4.0 (compatible; MSIE 8.0; Window

問題発生 長いメールヘッダの規定 MIMEの規定 正しいメールヘッダ復元の実装 問題発生 ある方より、メール投稿利用時に長い日本語タイトルを付けると、途中に半角スペースが入ってしまうというバグ報告を受けました。 Subject: =?ISO-2022-JP?B?GyRCPmFHKz5hRys+YUcrPmFHKz5hRys+YUcrPmFHKz5hGyhC?= =?ISO-2022-JP?B?GyRCRys+YUcrPmFHKz5hRys+YUcrPmFHKz5hRys+YUcrPmFHKz5hGyhC?= のようにMIMEエンコードが長くなり空白が入ったときに、この空白がデコードされてもそのまま残ってしまうことが原因です。やっつけならこの空白を除去するだけで良いのですが、やっつけプログラムは最低なのできちんと調査してみました。 長いメールヘッダの規定 RFC 2822「Internet

daily dayflower などの情報をみて worker MPM な Apache を利用しても、同時に利用可能な Perlインタプリタ（mod_perlプロセス） は PerlInterpMax に制限されるように思っていました。デフォルトではこの値は 5 であり、一見少なく感じられます。 サーバDoS事件 ご存じのとおり本 blog.abk.nu サーバは、以前まで「データベースに接続できないエラー」を吐いてブログが表示されないことが多々発生していました*1。以前の設定値は次のとおりです。 mod_perl : PerlInterpMax 5 PostgreSQL : max_connections = 15 これでも、PostgreSQLへのコネクションが足りなくなりエラーとなっていました。PostgreSQLへのコネクションを保持するデーモンは adiary の他にありません

perl tips - Encodeを速く使う方法によると、find_encoding を使うと、Encode による文字変換が早くなるらしいということで実験してみました。 実験条件 use utf8 しない（use utf8 はトラブルが多すぎてやってられないので）。 変換前も変換後も utf8 フラグは立っていないこと。 実験用データとして、42KBのテキストファイル（EUC-JP, 日本語半分ぐらい）を用意。 ソースはこんな感じです。引数に処理したい euc-jp のテキストファイル名を与えます。 use strict; use Benchmark; use Encode; use Encode::Guess qw(euc-jp shiftjis iso-2022-jp); my $euc = join('', <>); my $utf = $euc; Encode::from_to

サンプルと概要 ASIN記法のサンプル 上のリンクのマウスを乗せるとわかりますが、画像がポップアップで表示されます*1。 このようなポップアップを実現するには、Firefox (Netscape)において、onMouseMoveを使うことが一般的のようです。しかし、マウス座標を取得するためだけに、マウス移動のイベントを拾うというのは非効率的すぎてどうにも釈然としません。 IE/Firefoxで使えるポップアップウィンドウ 以下のスクリプトは自由に使って構いません。（2008/09/17 Update） function popup_img( img_url, evt ) { var text = "<img src=\"" + img_url + "\">"; var div = document.getElementById( 'popup' ); var style = div.sty

adiary (176) 雑記 (54) お知らせ (13) リリース (61) β版 (36) 仕様 (2) ToDo (10) adiary2 (56) 内部構造 (6) 記法 (17) カスタマイズ (2) snapshot (24) バグ情報 (7) プログラム (51) mod_perl (3) cgi (6) Perl (27) JavaScript (11) DB (4) CSS (2) ネット (16) mixi_export (4) comiket (18) Satsuki-system (1)

################################################################################ # 全テーブル共通 ################################################################################ ・全カラム NOT_NULL ・特に断りのない場合、数値のデフォルト値は0、テキストのデフォルト値は'' ################################################################################ # Table: `wp_posts` ##########################################################################

use と require と import の関係 perldoc perlmodによると、use というのは次と等価と書かれています。 use Module; use Module LIST; はそれぞれ、 BEGIN { require Module; import Module; } BEGIN { require Module; import Module LIST; } と等価になります。 BEGINとは？ BEGIN というのは、perl がそのソースファイルをロード中、発見次第最初に１回だけ実行する構文であるという意味です。少しフォローしておくと、モジュールのロードは、@INCにあるパスを順番に見てロードされますが、lib/ 以下に自作モジュールがあるとき、 push(@INC, './lib'); use Module; はエラーとなります。先に use （BEGIN内構

Webアプリケーションで、prepare_cached() を使うと色々問題があったのでメモ。 問題あり テストコード DBD::Pgの場合 on PostgreSQL DBD::mysql on MariaDBの場合 prepare()でも落ちるのか？ まとめ 問題あり prepare_cached() を使用すると、キャッシュヒット時（同じSQL文実行時）に$sthを再生成せずに再利用され、データ取得を含めた実行速度が220usが200usになるぐらいの効果があります。 しかし、prepare_cached() された状態でテーブルのカラムが変更されると問題が起こることが分かりました。 続きを読む ダウンロードはこちらから。 内部的にあちこちいじっているので、普段よりもバグ等出るかもしれません。 Ver3.50 : 2023/02/02 - 2024/06/09 Perl 5.14.0

mod_perl2 (on Apache 2.x)で無理矢理MT（Movable Type）を動かそうとしたり、古いスクリプトをmod_perl2で動かそうとする人たちがいまして。そういうページの中で、mod_perl2はカレントディレクトリをスクリプトのdirに変更しないというのが日本ではなぜか迷信のごとく広まっています。……いやある意味では正しいのですけど。例えばこちらのページでは PerlFixupHandler "sub { \ chdir('/project/sfo/www/www.sfo.jp/lib/mt'); \ return OK; \ }" PerlResponseHandler ModPerl::Registry とやって明示的に chdir しています（別にやり玉に挙げているわけではなくて、どこのサイトを見てもおよそこんな感じです）。そもそもなぜ、ModPerl::

perl でオブジェクト指向を目指し、use strictしたプログラムを徹底していくと、どうにかしたくなるのが「ファイルハンドル」の存在です。 open(FD, "test.txt"); close(FD); この FD をオブジェクトとして使い関数に対して引数として与えたりしたいのですが、use strict な環境では my $fh = 'FD'; open($fh, "test.txt"); close($fh); とやっても、エラーになってしまいます。かと言ってこのためだけに no strict refs; ともしたくない。またこの方法では、Perlをマルチスレッド動作させるとき、ファイルディスクリプタの名前空間が衝突し、ファイルが開けなくなる問題もあります。 ネットで情報を漁っていると、こういうときはファイルハンドルを動的生成する方法が紹介されています。 use FileHan