一定時間ログを吐かないとイスが飛ぶ Log::Minimal::FlyingChair というモジュールを作りました - （ひ）メモ

package Log::Minimal::FlyingChair; use strict; use warnings; use utf8; use open IO => ':encoding(utf-8)', ':std'; use Log::Minimal; use Time::HiRes qw(sleep); our $VERSION = '0.01_01'; our $Interval = 5; our $Chair = "ε=コ＿"; my $pid; my $print_orig = $Log::Minimal::PRINT; $Log::Minimal::PRINT = sub { $print_orig->(@_); kill "TERM", $pid if $pid; $pid = fork || do { $|++; while (1) { sleep $Interva

[sfujiwara]

自分は椅子投げないですよw

[xaicron]

記事のタグや、画像の背景にあの人がうっすら見えるなど、芸が細かい

[riywo]

えーｗ

[n986121]

これもイイ ヾ(´▽｀;)

[hiboma]

ε=コ＿

[antipop]

うけるｗｗ

[hiroyukim]

ふじわら神がいる

[hiroshi_revolution]

一定時間ログを吐かないとイスが飛ぶ Log::Minimal::FlyingChair というモジュールを作りました - (ひ)メモ

[kazeburo]

やばいwRT @xaicron: 記事のタグや、画像の背景にあの人がうっすら見えるなど、芸が細かい / 一定時間ログを吐かないとイスが飛ぶ Log::Minimal::FlyingChair というモジュールを作りました - (ひ)メモ