1つのサーバでmysqlを2台動かしてmy.cnfを分けたときに、DBIから接続する際にそのmy.cnfをdata sourceとして読み込ませる方法を初めて知った。。。(see also DBD::mysql)
my $dbh = DBI->connect('dbi:mysql:foo;mysql_read_default_file=/path/to/my.cnf', 'root', '') or die $!;
こうやるとできるみたい。もちろんmy.cnfの[client]セクションに接続したいmysqldの起動してあるポートとかを指定する必要があります。まぁ最近はサーバのコストも低くなってきているので、1台で複数のmysqlを動かすなんて機会がないっちゃないんですけどね…。
これは個人サーバでやりたかっただけです。
MTのCaptchaプラグインってあるんですね。
http://code.as-is.net/wiki/Captcha_Plugin.ja_JP
http://www.nnistar.com/archives/200611111245.php
↑ここら辺にいろいろ書いてある。試すためにAuthen::CaptchaとGDをインストールしようと思ったのですが、GDをインストールしようとおもったけど手間かかりそうでやめてしまったｗ。libgdをちゃんとインストールしてないからだけど…。
ImagerでAuthen::Captchaみたいのできればいいのにな。Imagerの方がインストール楽だからインストールの手間省けるしー。そういうニーズってあるんですかね。
ちなみに、このCaptchaプラグインってアクセス毎にCaptcha用のイメージを生成してるようですので、DoS攻撃を受けたらCaptcha用イメージが大量に生成されてディスク容量を圧迫するんじゃないかと思ったり思わなかったり。気になったので計算してみた。
Captcha画像1枚が5KBとして、1秒で1000アクセスあると
5KB * 1000アクセス = 5000KB
5000KBの画像が生成されます。そしてそれが1時間続くと、1時間は3600秒だから
5000KB * 3600秒 = 18000000KB ≒ 18000MB ≒ 18GB
18GBになるのかー、大変だ大変だー！
…ふぅ。ま、ちょっと気になっただけです。実際はそれだけのアタックがあったら、弱いサーバだと固まったりするんじゃないかと。それに画像ファイルは、cronで定期的に削除しろって話ですね。
ちなみにAuthen::Captchaのpodのcheck_code()のところには、下記のように書いてあります。
If the $code and $md5sum are correct, the image file and database entry will be removed.If the $md5sum matches one in the database, and "keep_failures" is false (the default), the image file and database entry will be removed to avoid repeated attempts on the same captcha.
check_code()したときには画像は削除されるようです。
そんなことより、Imagerの連載の続きを書かなければ…orz
% perl -pi -e 's/foo/bar/' file
#!/usr/local/bin/perl -pi use strict; s/foo/bar/;追記：
Perlプログラマ必携本（ご存知でしょうけど）
あまり使わない部分が集まってしまった下巻ずっとなんかで使ってみようと思ってたのですが、時間がなくてできなかったので使ってみようと思う。
とりあえず、perldocとYappoさんのとこのを見てみた。
まずPullとPushを選ばらないといけないぽ。
検索クローラーを作ろうかなと思っているので、Pull型を選択。
→今ここ。
#!/usr/local/bin/perl
use strict;
use Imager;
my $string = "Let's use Imager.";
my $font = Imager::Font->new(
file => '/path/to/ImUgly.ttf',
color => '#000000',
size => 20,
);
my $bbox = $font->bounding_box(string => $string); # 文字情報を取得
my $img = Imager->new(xsize => $bbox->total_width, ysize => $bbox->font_height);
$img->box(color => '#ffffff', filled => 1); # 背景を白くする
$img->string(
font => $font,
text => $string,
x => 0,
y => $bbox->font_height + $bbox->descent,
aa => 1,
);
$img->write(file => 'font01.gif');
#!/usr/local/bin/perl
use strict;
use Imager;
use Encode;
my $string = decode('utf-8', 'Imagerを使おう');
my $font = Imager::Font->new(
file => 'sazanami-mincho.ttf',
color => '#000000',
size => 24,
);
my $bbox = $font->bounding_box(string => $string);
my $img = Imager->new(xsize => $bbox->total_width, ysize => $bbox->font_height);
$img->box(color => '#ffffff', filled => 1);
$img->string(
font => $font,
text => $string,
x => 0,
y => $bbox->font_height + $bbox->descent,
aa => 1,
);
$img->write(file => 'font02.gif');
これで下記のように文字を書くことができます。
