Mojoliciousでアプリを開発後、本番運用時に別のパスで運用したい時の為に、prefixを付ける方法を実験してみた 結果からいうとMojolicious::Plugin::Mountを使ったMojolicious::Liteアプリを作成するとよいみたいです。 例では全てPSGIだが他の起動方法でも同じでいいはず 上手くいった例 script以下の↓こんな感じのコードを準備します。 target_appが作成したアプリの起動スクリプト。 # !/usr/bin/env perl use Mojolicious::Lite; use Plack::Builder; use FindBin; BEGIN { unshift @INC, "$FindBin::Bin/../lib"; $ENV{MOJO_HOME} ||= "$FindBin::Bin/.."; } my $prefix =

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

my $image = Image::Magick->new; $image->Read("$filename"); my ($width, $height, $format, $depth, $filesize, $colorspace) = $image->Get('width', 'height', 'magick', 'depth', 'filesize', 'colorspace'); 通常、formatは「format attribute」で取るが、返ってくる値が「Joint Photographic Experts Group JFIF format」とかなので、使いにくい。 「magick」アトリビュートを使用。 あと、depthが深いとAndroidで使えないことがあるのでチェック。

概要 Mojoliciousに付随しているMorboのような開発用サーバが欲しかったので、 勉強がてらにPorboという開発用PSGIサーバを作った。 以下のような条件を全て満たす開発用サーバが欲しかった。 シングルプロセスで複数のポートをListenできる(HTTP::Server::PSGIだとできない) SSLに対応している(Twiggyだと対応していない) Plack::Middlewareが使える(Morboだと使えない) 個人的にこれらの機能が備わっていると開発が捗る。 Porboの中身 複数ポートをListenするからイベント駆動が必要そうだな、 ということでAnyEventを使用して書いた。 TwiggyやHTTP::Sever::PSGIを読んで、見よう見まねで作ったので、 AnyEventの仕様や動作などをまだよく理解できておらず勉強中。 テストはTwiggyのものを流

何をしたの？ 何と言ったら正しいのかよくわからないのですが、、、 Perlでクロージャを使って、プログラム内で使用するデータを次々に生成してくれるようなものを作りました。 数パターンのデータを自動的に返してくれるような感じと言うか、 雰囲気的には、変則的な桁繰上りをしてくれるような感じです。 コード use strict; use warnings; my $get_status = sub { use POSIX qw(floor); use bignum; my $count = 0; my $skip = []; #スキップしたい回数目があれば、ここに整数値を配列で入れる my $rule = [ #ルール名・最小値・加算値・最大値をハッシュの配列で持たせる { name => 'a', min => 1, step => 1, max => 2 }, { name => 'b',

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

デフォルトで表示される恐竜は可愛いけれど、 エラー画面を変更したい場合がある。 その場合、templatesディレクトリ下に、 それぞれのエラーに対応するテンプレートファイルを置く。 not_found.html.ep (404) exception.html.ep (500) これらのファイルを置けば、画面を変更することができるけれど、 開発している場合は、エラー詳細が表示されるデフォルト画面が表示されてほしい。 テンプレートファイルは、以下のような命名規則にもなっている。 exception.$mode.$format not_found.$mode.$format $modeで切り替えることができる。 本番では"production"モードとなっているはずなので、 以下のファイルを置くことになる。 exception.production.html.ep not_found.prod

こんなときに使った。 DBI(DBD::Oracle)で取得したデータにutf8フラグが付いてくる。 取得データは全てutf8フラグなしで扱いたい。 全ての箇所にutf8フラグ落とす処理を書くの面倒。 DBD::Oracleでutf8フラグが付いてくる条件はこのあたり参照。 DBD::Oracle and Unicode - search.cpan.org DBIのサブクラス化で対応した。DBIのサブクラス化についてはこのあたり参照。 Subclassing the DBI - search.cpan.org コード #!/usr/bin/env perl use strict; use warnings; use DBI; use MySubDBI; # DBIサブクラス my $dbh = DBI->connect("dbi:Oracle:localhost", "scott", "t

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

セールスポイント： STDOUT / STDERR やユーザデータの受け取りをコールバックで行えるようにしてあります。 child process が die したときにも $pm->finish() を呼ぶようにしています。 なにげにハンドルと変数代入のperl IO レイヤのサンプルにもなっています。 # !/usr/bin/env perl use utf8; use strict; use warnings; use Data::Dumper; use Carp qw(croak); use Encode qw(decode_utf8); use Parallel::ForkManager; sub say { print $_[0], "\n"; } our $N_CHILDREN = 5; my $pm = Parallel::ForkManager->new($N_CHILD

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

初投稿のテストを兼ねて。 greple の高速化 greple というコマンドを作っている (Markdown が壊れているのはご勘弁を)。 中身は少し気の利いた grep コマンドということだが、それは本題ではなく、こいつに正規表現で "." 、つまり1文字にマッチするパターンを検索させると、こういうひどい結果になる。 % wc -c C1.bm1 196483 C1.bm1 % time greple . C1.bm1 > /dev/null 62.587u 0.094s 1:02.71 99.9% 0+0k 0+0io 0pf+0w もちろん、こんな使い方をするのが悪くて、マッチするパターンが少なければ、もっと普通の時間で終了する。 % time greple .+ C1.bm1 > /dev/null 2.353u 0.015s 0:02.37 99.5% 0+0k 0+0io 0

# DOCKER-VERSION 0.10.0 # VERSION 0.0.1 FROM centos MAINTAINER python_spameggs # sys network RUN echo 'NETWORKING=yes' > /etc/sysconfig/network RUN rpm -Uvh http://download.fedoraproject.org/pub/epel/6/i386/epel-release-6-8.noarch.rpm # yum RUN yum update -y RUN yum install -y passwd RUN yum install -y sudo RUN yum install -y gcc RUN yum install -y gcc-c++ RUN yum install -y make RUN yum install -

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

app->hook(around_dispatch => sub { my ($next, $c) = @_; eval { $next->(); 1; }; # アプリにエラーが起こった場合 if ($@) { $c->app->log->fatal('SYSTEM ERROR!!: '.$@); die $@; } }); これで、ログにエラーメッセージを出しつつ、 通常通りのエラー画面がブラウザに表示されるようになる。 around_dispatchについて デフォルトで around_dispatch で設定されている処理は以下のもの。 エラー処理(Mojolicious::_exception) ディスパッチ処理(Mojolicious::dispatch) 前節の設定を行うと、この２つの処理の間に入ることになる。 つまり、 エラー処理 ↓ 独自エラー処理 ↓ ディスパッチ処理

Python - ファイルの中にある特定文字列を数える - Qiita 触発されて。 pythonみたいにcountメソッドは無いのでsplitで代用。 splitは分割数なので-1する。(マッチしない行でも1個の分割数) splitでなくて正規表現の置換した数でもできそうだが、遅そう。 エラー処理は面倒だったので省略。 ファイルを丸呑みできるなら # !/usr/bin/perl use strict; use warnings; sub count_words { my ($stream, $search_word) = @_; my $num = 0; while (<$stream>) { my $match_num = scalar (my @list = split /$search_word/, $_) - 1; $num += $match_num; } return $n