'tags' => [ { 'lock' => 1, 'tag' => "NNI\x{30aa}\x{30ea}\x{30b8}\x{30ca}\x{30eb}\x{66f2}" }, { 'lock' => 1, 'category' => 1, 'tag' => "\x{97f3}\x{697d}" } ], json my $tags = $j->{tags}; #my $tags2 = $tags->[0]; #print Dumper $tags2; for my…

content 文字化け http://hirobanex.net/article/2013/04/1366943782

memohttp://weble.org/2012/01/23/grep-filename-onry egrep -rl 'hoge' ./ > ~/result.txt

分割基準文字しか、文字列に含まれていなかった場合、undefが返るとな。 my @arr = split(/\n/, "\n"); これだと、@arrはundefになる。 my @arr = split(/\n/, "\n\n"); これでもundef。 my @arr = split(/\n/, "\na"); このように少しでも文字が入ってれば…

set()のvalueに空文字（""）を入れると、undefとしてストアされる。厳密に調査してないけど、少なくとも、Cache::KyotoTycoonのcursorで while (my ($k, $v) = $cur->get(1)) { で取るとそうなった。 あーもうマジで無駄な時間をすごした - あ、普通にcur使…

use Net::Twitter; ↓ use Net::Twitter 4.0000001; traits => [qw/API::RESTv1_1/], http://cl.hatenablog.com/entry/2013/02/05/Net-Twitter_4.00000_01

use Cache::KyotoTycoon use Data::Dumper##略print Dumper $db->get("aaa"); 上のように直接出力したりすると、こんな感じに配列になる。 $VAR1 = 'hoge hoge value!'; $VAR2 = undef; 一度変数へ結果を代入すれば無問題っぽい

Webサービスのバックグラウンドで激しくread writeする用途に使おうと思ったが、なんか簡単には無理っぽい。こんな感じのエラーがでて、複数のプロセスが同時に開けないっぽい。 /path/to/dir/with/levelDBdatabase/LOCK: Resource temporarily unavailable …