end0tknr's kipple - web写経開発

太宰府天満宮の狛犬って、妙にカワイイ

2015-06-01から1ヶ月間の記事一覧

(perlでも)クーポンコードの打ち間違えを防ぐために工夫した話

ほ〜 クーポンコードの打ち間違えを防ぐために工夫した話 - クックパッド開発者ブログ一方、perl では、Algorithm::LUHN が利用できるらしい。 http://search.cpan.org/perldoc?Algorithm%3A%3ALUHNperlでクレジットカードのvalidationといえば、Business::C…

(再) amon2 + Starlet + Supervisor による PSGI/Plack の自動起動(daemon化)

amon2 + Starlet + Supervisor による PSGI/Plack の自動起動(daemon化) - end0tknrのkipple - web写経開発 以前、同様のエントリを記載していますが、 supervisordが起動するアプリの設定ファイルを外部化(*.ini) supervisord の自動起動を見直し superviso…

CGI::param() for perl を リスト内で使うと、脆弱性につながるらしい

mod_perl環境に Devel::Cover を適用しようとしたら、次のようなエラー。 CGI::param() for perl を リスト内で使うと、脆弱性につながるらしい。 CGI::param called in list context from /home/endo/dev/.../Test.pm line 304, this can lead to vulnerabi…

perltidyを入れたので、.emacsにあるcperl-mode設定を見直す

以下、.emacsの抜粋です。 cperl-indent-parens-as-block と cperl-indent-subs-specially を加えることで、perltidyの結果に近づいた気がします。 (autoload 'cperl-mode "cperl-mode" "alternate mode for editing Perl programs" t) (setq auto-mode-alis…

amazon wsのELB配下のnginx.confでアクセス元のIPによる接続制限

例えば、AWS ELB配下では、次のように $http_x_forwarded_for で、nginx.confを書くようです。 まぁ、リバースプロキシな環境では、どれも同じノリになるはずですけど # for pre-open closed test map $http_x_forwarded_for $allowed { default deny; ~\s*1…

JSON.pm for perl には、日本語文字列のエスケープ?により複数の方法があります

http://search.cpan.org/perldoc?JSON 今のところ、JSON::to_json() / from_json() 派です #!/usr/local/bin/perl use strict; use utf8; use Encode; use JSON; use Data::Dumper; main(); sub main { my $org_data = {hash_str_ascii => 'ABCDE12345', has…

perl cgiでダウンロードさせるファイル名を指定 (RFC6266準拠版)

perl cgiでダウンロードさせるファイル名を指定 - end0tknrのkipple - web写経開発 以前、↑こんな感じで記載しましたが、最近、RFC6266なブラウザも増えてきたはずなので、書いてみた。 動かしていませんが、多分、↓こんな感じ use CGI; use Encode; ## refe…

nginx の自動起動script

は、次のurlで公開されています。 http://wiki.nginx.org/InitScripts

amon2 + Starlet + Supervisor による PSGI/Plack の自動起動(daemon化)

「とりあえず、動きますよ」程度のメモです Starlet の install $ wget http://search.cpan.org/CPAN/authors/id/K/KA/KAZUHO/Starlet-0.24.tar.gz $ tar -zxvf Starlet-0.24.tar.gz $ perl Makefile.PL $ make $ make test $ su #make install supervisord …

perlの四捨五入は、IEEE754 ?に影響されるので、一旦、整数化しましょう

Math::Round::nearest を使ったとしても、そもそもperlの浮動小数点はIEEE754による実装なので、四捨五入は正確ではありません。次のような感じで、一旦、整数化しましょう #!/usr/local/bin/perl use strict; use Math::Round qw/nearest/; my $MAGNIFICATI…