そういえば，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とかも.に含む