$res->is_redirect を使って、次のように書くみたい。 #!/usr/local/bin/perl use strict; use warnings; use utf8; use HTTP::Request::Common; use LWP::UserAgent; #↓今回の件とは関係ありませんが... my $LWP_OPT = {file =>"cookies.txt", autosave=>1,…

javascriptでは、array ≒ hash と信じていました。しかし、次のように書いた場合、hashのvalueは取得できるものの、jQuery.json.jsでjson化すると、null listなjsonしかできません。 var hash = new Array(); hash['KEY_A'] = 'VAL_A'; hash['KEY_B'] = 'VAL…

「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のドキュメントをご覧下…

vbaには、Mid()関数で文字列を分割(substr?)できますが、このMid()は、全角半角問わず、1文字として扱います。今回、全角=2文字,半角=1文字として、文字列を分割する機会があったので、調べてみたところ、次のように StrConv()とMidB()で実現できるようです…