perlでデータベース [perl]
データベースに接続するのはPHPが簡単だともてはやされているようだが
perlでも十分実用可能だと思うのだが、いかんせんPHPの勢いがありすぎて
perlのサンプルスクリプトが少ない。
use DBI; $db = DBI->connect("DBI:mysql:データベース",ユーザ名,パスワード); $sth = $db->prepare("select * from テーブル名); while($res = $sth->fetchrow) { print $res; } $sth->finish; $db->disconnect;
こんな感じ?動作確認なし。
エラー処理とか最適な処理方法は各自勉強。そして俺に教えてくれ。
perlでグラフを作る [perl]
今日は勉強したので忘れないように書いておくぞ。
サーバ移ってからperlのモジュールが豊富になったので今回は
GD::Graph
GD::Text
を使ってグラフを作ってみました。
以下ソース。
use strict; use GD::Graph::pie; use GD::Text; use Jcode; my @data = ( [ ( jcode("バーチャルボーイ")->utf8, jcode("プレステ")->utf8, jcode("太鼓の達人")->utf8 )], [ 43, 32, 15 ] ); my $graph = GD::Graph::pie->new( 300, 300 ); $graph->set( title => jcode("円グラフ(日本語版)")->utf8, '3d' => 0, t_margin => 10, b_margin => 10, l_margin => 10, r_margin => 10, start_angle => 180, transparent => 0, ); GD::Text->font_path( "./" ); $graph->set_title_font( "GOTHIC_FONT", 12 ); $graph->set_value_font( "GOTHIC_FONT", 8 ); my $image = $graph->plot( \@data ); open( OUT, "> graph.png"); binmode OUT; print OUT $image->png(); close OUT; print "Content-type: text/html\n\n"; print <<"HTML"; <html> <img src="graph.png"> </html> HTML exit;
日本語を扱うにはTTFが必要なわけだが
windowsのフォントをアップしてもダメ(当たり前?)だったので
そうだ!MacOSXってUNIXベースのOSだったなと思いOSXから適当な日本語のTTFを拝借。
あら、見事に日本語表示できたじゃないですか。