何故か["あ".."お"]すると[qw(あ い う え お)]と同じようになると思い込んでいましたが、そうではないみたいです。 use strict; use warnings; use utf8; print "ぁ".."お", "\n"; print map { chr } ord("ぁ")..ord("お"); __END__ ...(警告は省略)... ぁ …

tokuhiromさんにコメントで指摘されて、たしかに！と思ったので、そっちを作ってみました。 use strict; use warnings; use utf8; use Data::Dummy; use Data::Dumper; my %hash = ( id => dummy_int([1..100]), name => dummy_str(["あ".."ん"], size => 5)…

use strict; use warnings; use utf8; use Data::Dumper; use Hash::Dummy qw(create_dummy_hash); my %hash = create_dummy_hash( id => { type => "Int", array => [1..150], }, name => { type => "Str", size => 15, array => ["あ".."ん", "a".."z", "A…

multilog s<size> t .みたいな感じで書いてたけど、tが付いてるのにタイムスタンプが付いてくれなかった。 なんでやねんって思ってたら、songmuさんがtの場所変えれば直るかもと教えてくれたので、そうしたら直った。 multilog t s<size> .おわり。</size></size>

という名前で昔作っていた。ウケる。 15分に一回回すみたいなのやってて、30分くらいで使うのやめました。まだ動くかわかりません。 use 5.10.1; use strict; use warnings; use utf8; use WebService::RTMAgent; use Cocoa::Growl ':all'; use Encode qw(en…

追記：出来なかった。2接続以上だと詰まります。 use strict; use warnings; use Redis; use Encode; my $r = Redis->new( host => '127.0.0.1', port => 6379, ); my $app = sub { my $env = shift; return sub { my $respond = shift; my $writer = $respo…

オレオレアトリビュート増やしちゃうみたいなの、よくする。 やりすぎはよくないとは思いつつも、やってしまう。麻薬だ。こういう感じのコード書いて、forwardさせてちゃんとエラーが出るかみたいなテスト書いてたら、なぜか200が返ってきた。 package MyApp…

前提 Ark form validatorとdata validatorは役割が違うもの。 同じものを完全に使いまわすのは現状難しい。 結論 最終的にこうすると決めた。 package MyApp::FormValidator; use 5.10.1; use strict; use warnings; use FormValidator::Lite; sub validate …