alp と Plack::Middleware::QueryCounter を合わせて使うと捗る - 酒日記 はてな支店
OSS紹介 Advent Calendar 2017 - Qiita 4日目の記事です。 @tkuchiki 氏が作っている alp (Access Log Profiler) は、もはや ISUCON 競技者必須ツールとなった、LTSV 形式のアクセスログをいい感じに集計してくれるツールです。 github.com 通常は alp では reqtime, apptime など、リクエストの処理に要した時間を集計するこのでパフォーマンスチューニングするのですが、実は集計対象は引数 --apptime-label を指定することで、集計時に自由に決めることができます。パフォーマンスに影響するなんらかの数値をログに出力しておけば、それを key にして集計できるということですね。 そこでもうひとつ、@acidlemon 氏作の便利 Plack::Middleware を組み合わせてみました。
perl で複数のプロセスからログを吐くときは :unix layer で開いてもいい - skaji's blog
File::RotateLogs が大変便利でよく使っているのだが、これはファイルへ書き込むときに print を呼んでいる。 一方 にひりずむ::しんぷる - perl で復数のプロセスからログを吐くときは syswrite または flock すべし によると長いログを吐くときは syswrite にしないと混ざるとある。 よって File::RotateLogs も実は混ざることがあるのかなと思い、複数プロセスから長いログを吐きまくってみたが一向に混ざらなかった。 いろいろ調べた結果、open layer に最も低級な layer である :unix を指定すれば print 時も 1 つの write(2) になるようだった。 > cat test.pl open my $fh, ">:unix", "test.txt"; print $fh "a" x (1024 * 100);
リロケータブル Perl - skaji's blog
tl;dr github の release ページ からすきな場所に置けば使える perl がダウンロード可能 リロケータブル perl って? 通常 perl は build 時に モジュールの読み込み path (@INC) を決定するため、インストール後 perl のディレクトリを移動するとモジュールが読み込めなくなり、使い物にならなくなる。 Can't locate strict.pm in @INC (you may need to install the strict module) (@INC contains: ...) しかしながら実際は -Duserelocatableinc オプションを指定しbuild すれば、 @INC は perl binary の相対path で管理されるようになるため、インストール後 perl の directory を移動しても問題なく動
Starlet 0.24で子プロセスごとに乱数系列が初期化されるようになった - 酒日記 はてな支店
Perl 5で fork する場合に乱数系列が親と同じになってしまう現象については過去にもいろいろエントリがあります。 乱数と Perl5 にかんする蘊蓄の話 - blog.64p.org #22 カジュアルに乱数を使う方法とその注意点 | tech.kayac.com - KAYAC engineers' blog 0.23以前の Starlet では、親で一度でもどこかで rand (またはsrand) が呼ばれていると、初期化された乱数系列が fork された子プロセスにも引き継がれるため、その後に実際のユーザアプリケーションが走る子プロセス内で rand() しても同じ系列が返ってきてしまう、という現象があったのですが、0.24 では子プロセス生成後に srand() が呼ばれるようになりました。 # 正確にいうと、0.14 で --min-reqs-per-child がサポート
Server::Starterに対応するとはどういうことか - limitusus’s diary
StarletやStarmanと組み合わせてよく使われているServer::Starterですが、普段気にしないような部分を読む機会があったのでメモ。 Server::Starterは --port (TCP) や --path (Unix Domain Socket) を渡すとこれでlisten(2)して起動するworkerに引き渡してくれる。 これはfork(2)とexec(2)によってファイルディスクリプタを引き継ぐことにより実現されているが、ファイルディスクリプタそのものをどのように引き渡しているのか、という問題。 exec(2)により実行バイナリは差し換わってしまうので、プログラム中の変数により引き継ぐことはできない。 Server::Starterではこれを環境変数SERVER_STARTER_PORTにより実現している。 おおよそ以下のような感じ。 FD = integer
Ukigumo入門 ― 2014年スタイル - その手の平は尻もつかめるさ
とりあえずデモサイトを示しますので適当に見て下さい． http://ukigumo.moznion.net/ さて今回はゆるふわCIシステムであるところのUkigumoのナウいスタイルについて説明しようと思います． ここ最近ではUkigumo::AgentというAgentサーバが存在しており，これを使うとまあ便利なんですけれども，ドキュメントが少ない為か *1 あまり利用されている事例を見かけませんので，それらも踏まえて解説したい感じです． まずUkigumoとは何か CIシステム．Perl製． Perl製だが，もちろん他言語のプロジェクトでも使える． Travisのようにサービスとして提供されている感じではなく，自前でインストールして使う． 多分，感覚としてはJenkinsに近いと思うが，そこまで複雑ではなく，シンプル． 基本的に，「テストの実行及びその結果の取得」と「テスト結果の保存」
Perl 5.19.9 で実装された signatures の構文をためしてみる - tokuhirom's blog
use 5.019009; use autodie; use feature 'signatures'; no warnings "experimental::signatures"; package Foo { sub new($class, $n) { bless {n=>$n}, $class; } sub bar($class, $a) { $a+3; } sub baz($self, $a) { $self->{n} * $a; } } sub add($left, $right) { return $left + $right; } say add(1,2); say Foo->bar(4); say Foo->new(5)->baz(4); みたいな感じでつかえる。 【追記】 use 5.019009; use feature 'signatures'; no warning
Carton考2014 | おそらくはそれさえも平凡な日々
こうするのがいいかなーと思ってる。経緯は端折って大枠だけ。Webアプリケーションプロジェクトの場合です。 cpanfileちゃんと書いてコミット 今やどこでもやってますね。scan-prereqs-cpanfileも便利です。 開発者は各自carton installでモジュールをインストール。プロジェクトごとにPerlをビルドしたりしてる場合は、cpanm --installdeps .でも別に良い。 CI環境でcpanfile.snapshotを作る CI環境は必ず以下のとおりとする。 本番環境と同じアーキテクチャ 本番環境と同じバージョンのPerl まっさらな状態(Globalに何のモジュールも入っていない) CIにcarton installもさせて、必要なモジュールをlocal/に入れてテストさせる。毎回サラからcarton installしてたら時間かかるので、git pull
Test::Base::SubTest というモジュールを作った。またはテストケースとテストコードは分離されていたほうが嬉しい話 - Cside::Weblog
2014-01-15 Test::Base::SubTest というモジュールを作った。またはテストケースとテストコードは分離されていたほうが嬉しい話 perl 自分は Test::Base が好きでよく使うのだけど、subtest 的な、テストのグルーピングができないのがずっっっと不満だったので、Test::Base::SubTest というモジュールを書いた。 https://metacpan.org/release/CSIDE/Test-Base-SubTest-0.1 https://github.com/Cside/Test-Base-SubTest 以下の様な拡張記法が使えるようになる。### でsubtestの 1 単位を表現する。 use Test::Base::SubTest; filters { input => [qw(eval)] }; run_is input =
plenv や perl-build をさっくりアップデートする - Qiita
こんばんは。いよいよ年の瀬という趣になってきましたが，みなさんはいかがおすごしでしょうか。わたしはまだ大掃除やっていないので面倒だなぁこまったなぁと思っているところです。 さて，みなさんは plenv や perl-build のアップデート (追随)，どうしていますか？ 各ディレクトリに移動して git pull する，でしょうか。でも，ひとつひとつのディレクトリに移動して git pull するの，めんどうですね (ということにしてください)。 今回ご紹介する plenv-update を使えば，ワンステップで各プロダクトをアップデートできます。 インストール 以下のようにして ~/.plenv/plugins/ 以下にプラグインをチェックアウトします。 $ git clone https://github.com/dayflower/plenv-update.git ~/.plenv
普通のデーモンを 1) Server::Starterでホットデプロイ+ 2) slow-restart対応にする - Qiita
序章 最近筆者があるシステム上の非同期ワーカーに対して作業していたところ、新しいコードをデプロイしてこのプロセス達を再起動すると全てのワーカーが同じタイミングで停止→再起動してしまうのでアラートがちらほら流れてきました。クリティカルなものではないのですが、アラートはうざいです。さらに開発機では何回か失敗もしたのですが、その失敗のせいでワーカーが起動に失敗することもありました。その間は当然ワーカー機能は止まったままです。 アラートはできればみたくないのです。さらに万が一新しいコードが起動に失敗した場合でも前の世代が動いていればこのあたりの心配をする必要がなくなります自分がそのあたりに手を入れるタイミングでServer::Starterをかまして対処してしまうことにしました。 元のワーカー まず前提として、このワーカー達は以下のような形で「実行するワーカーのコマンド名（実際はクラス名）」と「い
Starlet + Server::Stater で UNIX domain socketに対応しました - Hateburo: kazeburo hatenablog
Starlet-0.21がリリースされました。 Starlet-0.21 - a simple, high-performance PSGI/Plack HTTP server - metacpan.org - Perl programming language このバージョンからServer::Staterとの組み合わせでUNIX domain socketをListenすることができるようになりました。 $ start_server --path /tmp/app.sock -- plackup -s Starlet app.psgiServer::Stater は以前からUNIX domain socketをサポートしていたのですが、Starlet側でうまくハンドリングできていなかったのを修正したのが今回のリリースです。 ベンチマーク #plackconでの発表にもある通り、UNIX
Pod::Text::Color::Delight というモジュールをリリースしました - その手の平は尻もつかめるさ
[追記] 色々と問題を修正しましたので、最新版 (v0.0.5) をご利用なさる事をおすすめ致します。 (問題を報告して下さった@__gfx__さん、@uzullaさんありがとうございます) [追記ここまで] この度、Pod::Text::Color::Delight というモジュールをリリース致しました。 https://metacpan.org/pod/Pod::Text::Color::Delight https://github.com/moznion/Pod-Text-Color-Delight Perlの入門書や入門エントリ等を読みますと、「Perlのドキュメント調べるなら、`perldoc` コマンドでひくのが手っ取り早くて良い！」みたいな事がよく書かれていて、まあまあそれはその通りだよなーとは感じつつも、 `perldoc` コマンドで出力されるドキュメントって白黒で淡泊す
Perlの変数はCoWで共有されてもいずれCopyされるという話 - heboi blog
https://gist.github.com/nihen/7085103 http://www.perlmonks.org/?node_id=905667 https://rt.perl.org/rt3//Public/Bug/Display.html?id=119937 http://d.hatena.ne.jp/kazuhooku/20100909/1284005880 大きいマスターデータなどを親プロセスで読み込んでおいて、その後forkし、子プロセスでCoWで共有する、そんな幻想を抱いていた時期が僕にもありました。 PerlのGCのための参照カウンタは、変数の内部にカウンターをもっているため、そのカウンターに増減があるとCoWで共有されていたメモリのうちカウンターと同一のページ内のメモリは文字通りCopyされる。 通常のコード内でそのことに気をつけたとしても、子プロセスが死ぬとき
GitHub - hirose31/inspect-perl-proc: get %INC and dump into file
#!/usr/bin/env perl use strict; use warnings; use Getopt::Long qw(:config posix_default no_ignore_case no_ignore_case_always permute); use Pod::Usage; use Carp; my $PROG = substr($0, rindex($0, '/')+1); my $Debug = 0; sub dprint (@) { return unless $Debug; my @m = @_; chomp @m; print STDERR @m,"\n"; } MAIN: { my $target_pid; my $mode; GetOptions( 'pid|p=i' => \$target_pid, 'mode|m=s' => \$mode, 'd
ゆーすけべー日記
好きな季節は？ と聞かれると花粉症の春、雨が降る梅雨を除いて... と消去的に考えがちですが、 とはいえ気分が高揚する熱い夏が好きだなーって結論になって大抵「 夏 」と答えます。 そんな夏がこのBlogエントリーを期に終わろうとしています。 毎年、プログラミング言語Perlの祭典である「 YAPC::Asia 」は季節の節目として存在していて、 大抵9月/10月の夏から涼しくなる時期に行われる開催されています。なので僕は YAPCが終わるまで夏だ！ なんて勝手に思い込んでいます。「YAPCの感想Blog記事を書くまでがYAPC」という素晴らしい スローガンがあるので、この記事をポストした時点で2013年の僕の夏は終わりますね。 実際、YAPCが終わってからここ数日はちょうど涼しくなって、それがまた、 一抹の寂しさと共に名残惜しさを感じています。 季節の節目としても僕の中にあるYAPC::A
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
https://www.netdev01.org/docs/sowa-perf-analytics.pdf
http://argrath.ub32.org/perldocjp/5.20.0/perl5200delta.html
今年見たPerlコミュニティそしてこれから #hokkaidopm
http://yappo.github.io/talks/20130920-amon2-line-setup/