集約演算を行うケースでは、行のサイズを小さく保つことはとても重要。アクセス頻度が低いコラムは別テーブルに追い出すとかしたほうがいいくらい。 一方、集約演算を行わないケース (単一行の insert, update 等を含む) の場合は、(クライアントとの通信のための) システムコールがオーバーヘッドになるので、小さなテーブルにたくさんアクセスをするよりも、長い行を持つテーブルに１回アクセスするほうが良い。 たとえば手元の環境での insert on duplicate key update の速度は、 行のサイズ 必要時間 0KB 1 3KB 4 6KB 7 9KB 13 12KB 13 とかそんな感じ (環境やクエリによる変わるので自分で測定してね。9KB の速度低下はページサイズの1/2を超えたからかな)。つまり、行のサイズが1KB程度だと、通信のオーバーヘッドが大きいからあまり問題に

はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28

ここを参考にして http://d.hatena.ne.jp/tokuhirom/20080418/1208503547 use overload を使ってみた package Acme::JS::Arguments; use strict; use warnings; use Devel::Caller qw(caller_args); use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(arguments callee); sub arguments { bless [ caller_args(1) ], 'Acme::JS::Arguments::Callee' } sub callee { my $self = '__callee__'; bless \$self, 'Acme::JS::Arguments::Callee

=========================================================== 結城浩の『Perlクイズ』≪パズル≫ 2005-08-08 Puzzle.0040 http://www.hyuki.com/pq/ [PQ/P]≪パズル≫では実用性を無視したクイズを出します。 =========================================================== ■今日の一言 ----------------------------------------------------------- こんにちは。結城浩です。 今回も、問題を出してから数時間くらいの間にどどっと 解答メールが届きました。 午前1時とか、午前2時の解答メールもありました…。 みなさん、ご解答ありがとうございます。 全員分紹介できず、ごめんなさい。

追記です コメントとブクマで今のところ experimental と書いてあるよ！ と教えてもらいました。気づいてなかったです。id:nihen さん、コメントくれた人、ありがとう。 This option is experimental and may change in future versions. Catalyst::Wiki もこれ書いた方が良さそうですね。書けるのかな。 それにしても、DBD 側でできると良いに越したことないので、早く確定して欲しいですね！ 追記2 あー、でもこれ、4.00からずっとこのままだ。かれこれ2年くらい experimental なんですがw Catalyst::Wiki に書いて来ちゃったけどw ここから元の内容 lyokato さん経由で woremacx さんに教えてもらった Using Unicode - Catalyst::Wiki に書い

Ruby勉強会@関西でFiberについて勉強してきた - はこべブログ ♨でPerlでもGeneratorをうまく書けるモジュールがないかなーとこぼしていたところ． perlではCoroでほぼ同じ事ができるが、どちらにしろCoroを使う利点は1個1個をresumeすることじゃなくて 非同期に実装することだと思うのでgenerator云々はちょっと用途が違う気もするです http://b.hatena.ne.jp/lestrrat/20090202#bookmark-11922880 というブコメをいただきました．id:lestrratさんありがとうございます． Coroについて調べてみたところ，Coro::Introによると The natural application for these is to include a scheduler, resulting in cooperati

2008年06月27日07:30 カテゴリLightweight Languages perl - Const released -- True Readonly 空前のXSブームにほだされたのか、気がついたら作ってました。 /lang/perl/Const/trunk - CodeRepos::Share - Trac @CPAN (coming soon) 一言で言うと、Readonlyを置き換えるモジュールです。 Readonlyをお使いなら、s/Readonly/Const/gで同じように動くはずです。 Readonlyはないすでだみあんなモジュールですが、実装にtieを用いているため低速です。 ところが、SVには、すでにREADONLY flagが用意されているのです。これを使わぬ手はありません。 実は、Perl 5.8以降では、Internals::SvREADONLY()とい

某所で運用しているサーバの話なんですが、割と"SSH Brute Force Attack"がヒドく、対策を行わないといけないんですが、その前にせっかくなので、攻撃者がどんなユーザ名でログインを試みているかの統計を取ってみました。 というわけで、ログインに失敗した回数、上位10ユーザ名の一覧を取得するワンライナー。 # cat /var/log/secure* | grep 'Invalid' | awk '{print $8}' | sort | uniq -c | sort -nr | head -n 10結果は、だいたい予想通りですが、↓のような感じです。 1474 admin 1399 test 1059 123456 751 oracle 703 user 570 guest 416 web 380 www 370 info 359 backupというわけで、"admin"とか"

変更不可能な変数を作るには Readonly というモジュールが使えます。スピードに関してネガティブなことが書いてあるのですが，気になる向きは Readonly::XS を「追加で」インストールすると自動的にそちらが使われるようになります。 通常は，定数などを表現するのに使ったりしますが， #!/usr/bin/perl use strict; use Readonly; { my $hash = { msg => 'hello, world' }; sub fetch { Readonly::Scalar my $r => $hash; $r; } } my $r = fetch(); $r->{msg} = 'konnnichiwa';などのようにすると，きちんと「Modification of a read-only value attempted」と怒られます。mod_perl 環

先日書いた記事新人教育 - Unknown::Programmingのトラバやはてブとか読んでてあーやっぱりオールドファッションなPerlも未だに廃れてはいないんだなぁと実感させられました。 あの一覧全てを仕事で使うか？と問われると、ま確かに頻繁には使わないけどいやでも場合によっては結構使うよと。 なのでPerlで仕事するなら必須項目であると言えますね。 知らないとまずCPANモジュールのソースが読めないし。 問題にブチ当たった時に困ったりする。 どこバグってんのかとかわかんないってことになるわけです。 COREパッケージ知らないと組み込み関数と同じメソッド定義した時にうがーってなるし、 UNIVERSALパッケージ知らないとisaとかcanメソッドがどっからやってきたのかわかんないし、 AUTOLOADメソッド知らないと謎のメソッドに悩まされるし、 tie変数知らないともの凄い不思議なハ

僕が今までPerlの勉強、及び学習のために利用したPerl関連の書物についてのまとめをば書いてみます。 Perlデバッグ明快技法 作者: Martin Brown,岡田長治出版社/メーカー: オーム社発売日: 2001/05メディア: 単行本 クリック: 1回この商品を含むブログ (4件) を見る まずは僕が始めて購入したPerl本。 会社に置いてあったラクダ本をざっと一通り読み終わったときになんか自分でも本が欲しいなと思ってたときに見つけた本。 バグやエラーに対する心構えやstrictとwarningsの詳細な使い方と説明、シグナルハンドラについて色々と学ぶところがあって良かった。あとはプロファイラについての説明が熱くてこれを知った当時はプロファイラ使っていろんなプログラムの負荷テストとやってみたりしたもんだ。 最後に付録として診断（エラー）メッセージもついててナイス。 そういや診断メッ

PerlのTipsになりそうなものを過去ログから引っ張り出してみました。 ランダムな文字列を生成するString::Random - Unknown::Programming local our $hoge; - Unknown::Programming whileでファイルハンドルをループする時の暗黙の$_について - Unknown::Programming リストの要素数を取得する - Unknown::Programming Perl6::Say-0.10 - Unknown::Programming クラスメソッドのインポートをModule::Compileでやっちゃう。 - Unknown::Programming メソッド呼び出しで継承する - Unknown::Programming どう書くでリハビリ - Unknown::Programming メソッド名一覧どーかく？

NAME Catalyst::Request - provides information about the current client request SYNOPSIS $req = $c->request; $req->address eq "127.0.0.1"; $req->arguments; $req->args; $req->base; $req->body; $req->body_data; $req->body_parameters; $req->content_encoding; $req->content_length; $req->content_type; $req->cookie; $req->cookies; $req->header; $req->headers; $req->hostname; $req->input; $req->query_keyw

NAME HTML::DoCoMoCSS - css inliner SYNOPSIS # src use HTML::DoCoMoCSS; my $inliner = HTML::DoCoMoCSS->new(base_dir => '/path/to/documentroot/'); $inliner->apply(<<'...'); <html> <head> <link rel="stylesheet" href="/css/foo.css" /> </head> <body> <div class="title">bar</div> </body> </html> ... # foo.css .title { color: red; } # result <html> <head> <link rel="stylesheet" href="/css/foo.css" /> </h

NAME HTML::StickyQuery::DoCoMoGUID - add guid query for DoCoMo imode SYNOPSIS use HTML::StickyQuery::DoCoMoGUID; my $guid = HTML::StickyQuery::DoCoMoGUID->new; print $guid->sticky( scalarref => \$html ); add sessionid my $guid = HTML::StickyQuery::DoCoMoGUID->new; print $guid->sticky( scalarref => \$html, param => { sessionid => 'SID' }, ); guid=ON を出さない my $guid = HTML::StickyQuery::DoCoMoGUID->n