はてなブックマーク

先日、cronで回しているとあるバッチジョブがたまに妙に時間がかかっているようだったので、その所要時間をZabbixで監視してみました。 time(1) コマンドの所要時間を計測するにはtime(1)コマンドが便利です。bash組み込みのtimeも便利ですが、time(1)はさらにいろんなオプションが使えます。 -oオプションは計測結果を指定ファイルに出力します。 -fオプションは結果の出力フォーマットを指定します。%eはいわゆるreal時間(単位は秒)、%xはCOMMANDのexit statusです。他にもいろいろな計測ができます。 デフォルトではCOMMANDのexit statusが非ゼロの場合にエラーメッセージを出力します。それを抑制するには--quietを指定します。 time(1)コマンドを使ってファイルに所要時間を出力しておけば、あとは適当な方法でそれをZabbixへアップ

Perlの関数には引数を省略した場合に$_が引数として与えられたものとして振る舞う関数があるが、この性質を使うと気持ち悪いほどHaskellっぽいコードをPerlで書くことができる。 逆に、自分のようなPerlプログラマーがHaskellに入門する時は、「あーここでは$_が省略されてんのね」って考えるとポイントフリー記法とか理解しやすいと思った。 map まずは基本中の基本のmap。 Perl $, = ","; ## リスト出力のセパレータ (以下同様) $\ = "\n"; ## 出力行の末尾 (以下同様) my @fruits = qw(apple orange strawberry); print map { length } @fruits; # => 5,6,10

package Sample; ######## Test target object use strict; use warnings; sub new { my ($class) = @_; return bless {}, $class; } sub foo { return "bar"; } package main; ######## Test code use strict; use warnings; use Test::More; use Test::MockObject::Extends; my $sample = Sample->new; my @foo_log = (); Test::MockObject::Extends->new($sample); my $original = $sample->can("foo"); $sample->mock(foo => s

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?

だいぶ習熟したつもりでも、いまだにweakenにはビビらされるのでメモ。 検証環境 Xubuntu 12.04 32bit perl v5.14.2 (Ubuntuレポジトリに入ってるやつ) AnyEvent 7.05 EV 4.15 概要 オブジェクトにコールバック関数を登録する場合、循環参照を防ぐためにコールバック関数にクロージャとして取り込む変数をweakenするのはよくあることだが、その場合、 コールバック関数の実行内容によって weak変数の指すオブジェクトがDESTROYされる可能性があることに注意しないといけない。 例 このあいだ、こんな感じのモジュールを書いた。 package Handle::Wrapper; use strict; use warnings; use AnyEvent::Handle; use Scalar::Util qw(weaken); sub n

autovivificationとうまく付き合う こんにちは。 @debug-ito です。PlackとAnyEventが好きですがautovivificationも好きです。 今回はautovivificationプラグマについて書いてみます。 検証環境 Xubuntu 12.04 32bit perl v5.14.2 (Ubuntuレポジトリに入ってるやつ) autovivification 0.12 autovivificationって？ undefの入った変数が配列やハッシュとしてdereferenceされる際に配列やハッシュオブジェクトが自動的に生成される機能です。 公式ドキュメントにはperlrefに記載があります。 例えば下のような場合、 ## 以下、全ての例でこの3行は有効とします use strict; use warnings; use Data::Dumper; my

OpenShift OnlineでPSGIアプリ立ててWebSocket挿す こんにちは、 @debug-ito です。PlackとAnyEventが好きです。よろしくおねがいします。 今回は最近作ったものの宣伝も兼ねて、OpenShift Onlineのチュートリアル的な記事を書いてみようと思います。 OpenShift Onlineって？ https://www.openshift.com/ Red Hatが提供しているパブリックPaaSです。Google App EngineやHerokuなんかと同じような感じで、Webアプリケーションとかをホストすることができます。小規模なアプリなら無料で使えます。 OpenShift Onlineでは公式でPerlがサポートされています。使い方は @mercysluck さんの記事が参考になります。 OpenShift OnlineでMojoli

のように、CONNECTメソッドを使わずhttpsスキームのリクエストURLをそのままプロキシに投げてしまう。 このようなリクエストはSquidなどのプロキシではサポートされておらず、エラーになってしまう。 (Apache mod_proxyならイケるっぽい？) CONNECTメソッドによる通信をやらせるには、いろいろと環境変数を設定する必要がある。 参考 http://stackoverflow.com/questions/12116244/https-proxy-and-lwpuseragent http://d.hatena.ne.jp/ragtarou/20070302 http://perl-users.jp/articles/advent-calendar/2009/casual/17.html https://metacpan.org/module/Net::HTTPS ht