俺と同じ事をする人が将来いるかもしれないのでまとめておきます．Apache2でサブドメインを実現する方法は二つあります．（俺が調べた限り） １つは，httpd.confでVirtualhostを設定する方法です． 下のように設定します． <Virtualhost *> ServerName hogehoge.com ServerA</virtualhost>…

いやー，SQLiteすごいよですよ． perl -MCPAN -e 'install DBD::SQLite'ってだけでインストールできるんですよ？ これだけで，ほかになんにもインストールの必要ないんですよ？ my $sth = $dbh->prepare('select * from log where bid=? and no=?;'); $sth->…

CGI.pmのescapeHTMLは特殊文字を&#...;の形に治してしまうようだ． 日本語がうまくいかなかったりする． 困ったな

今，学校で確率やってます．（数A） んでまぁ，積事象とか和事象とかそんなところをみてて，やっと論理和（or）とか論理積（and）が和とか積っていうかわかりました． if($a && $b) if($a * $b)はほぼ等価なんですね！ どちらかが偽(0)なら条件全体が偽に if…

そういえば，mod_perl2でディレクトリが変なとき sub BEGIN{ $ENV{SCRIPT_FILENAME} =~ /(.+\/)/; chdir($1); }こんな感じで対処がよさげデス．

http://ingres.t.u-tokyo.ac.jp/Lecture/WebApplication/ わかりやすいですわ

だいぶわかってきたんだが，次は最近更新された20個というのの求め方に苦悩している． select * table order by LASTUPDATE desc; これで，最終更新で降順したのは取り出せると思うんだけど，最新20というのがわからない． いっそ，($sth->fetchrow_array())…

id:PaiNさんから教えていただいた． select * tablename order by LASTUPDATE desc limit $LIMIT offset $OFFSET; これでok. もちろんユーザーからくる$OFFSETはs/\D//gとしてますYO!

#! /usr/bin/perl # usage: ./permtation.pl 2 2 2 3 3 4 4 5 5 6 7 # 引数にリストを与えると、それで順列を作って、引数がなければ1, 2, 3, 1, 2, 3で実行 # 引数は、アルファベットなどでもok use strict; # main my @list = scalar @ARGV ? @ARGV : (1, …

正規表現を使っていて，いまいちオプションを覚えられないのでここにメモしておきます． i 大文字小文字を区別しない m 改行コードの前を行末と見たり，後を行頭とみたりして，^や$でマッチするようにする s \nとかも.に含む