以下の get_dummy_context() 内に記載しているようにAmon2クラスに対して、plug-inを書くとOK use strict; use utf8; use t::Util; use CGI; use Date::Calc; use JSON; use Plack::Session; use Plack::Test; use Plack::Util; use Test::More; use Data::D…

サーバからjsonを受け取った javascript が、 数値(例:2)を期待し厳密等価演算子 (===)でvalidateしたところ、 文字列(例:"2")だった為、false となったことがきっかけです。 perl製サーバアプリとしては、$val += 0 により、数値化( numfy )しましたが、 数…

前準備 - 必要moduleのinstall # yum groupinstall "Development Tools" # yum install openssl-devel readline-devel zlib-devel curl-devel \ libyaml-devel ImageMagick ImageMagick-devel # yum install ipa-pgothic-fonts # yum install ruby ruby-deve…

end0tknr.hateblo.jp 以前↑このように書いて動作していた気がしますが、 googleに2段階認証が導入された為でしょううか? 動作しなくなっていたので、以下のように修正しました。 #!/usr/local/bin/perl use strict; use utf8; use FindBin; use File::Spec; …

ググルと、「Let's Encryptは、amazon linuxでは試験段階」と言う情報が チラホラ見られましたが、私の試した範囲では、迷うようなことはありませんでした。 STEP0 参考url 何より日本語urlがあったお陰ですね。 https://letsencrypt.jp/docs/using.html#ins…

sub add_auto_increment_record { my ($self,$dbh) = @_; my $sql =<<EOF; insert into test_table (key, val) values (?, ?) EOF my $sth = $dbh->prepare($sql); my @vals = ('FOO','BAA'); unless($sth->execute(@vals)){ $self->error( $sth->errstr ); return undef; } return $sth->{mysql_insertid}; }</eof;>