「x」演算子を使用して、↓こう書きます。 my @list = ('?') x 10; 私の場合、↓こんな感じで、sqlの引数指定に使用しています my @args = ('?') x $csv->fields(); my $args_str = join(',',@args); my $sql =<

mysql> delete juchuu_result -> from juchuu_result jr -> join juchuu_summary js on (jr.id=js.id) -> where jr.is_new_bukken=1 and js.admit_juchuu_user is null; ERROR 1109 (42S02): Unknown table 'juchuu_result' in MULTI DELETEと、怒られました…

分かりやすく、まとめられています。CPAN DateTime::Formatまとめメモ http://ido.nu/kuma/2007/05/09/datetimeformat-summary/

http://search.cpan.org/perldoc?CGI::Cookieそりゃそうか use CGI::Cookie; my %cookies = CGI::Cookie->parse($ENV{HTTP_COOKIE}); my $c_val = $cookies{c_atri}->value; expires は、-1d や +3M を指定できますが、詳しくはCGI.pmのドキュメントをご覧下…