YAPC::Kyoto 2023に登壇しました - Pepabo Tech Portal
こんにちは @kenchan / @hiboma / @ryuichi_1208 / @rsym1290 です。今回は先日開催されたYAPC::Kyoto 2023にペパボから4名が登壇しましたので、イベントレポートをお届けします。 春のエンジニア ぶつかり稽古 2023 by @kenchan 技術責任者の高橋健一(@kenchan)です。企画という枠で@__kanさんとぶつかり稽古をさせていただきました。 ぶつかり稽古とは、YAPC::Asia 2013のノベルティをきっかけに行われたエンターテイメントペアプログラミングです。詳しくはあんちぽさんのブログ「「#ぶつかり稽古」という事件について」を参照ください。今年はそのイベントから10周年ということで、京都でリバイバルさせようという企画が立ち上がり、かくかくしかじかの事情で私が力士を務めることになりました。 初回の打ち合わせ(稽古の稽古
Munin プロセスごとのスワップサイズを監視するMuninプラグインを作ってみた - ぱち ブログ
Muninについて今まで書いてきた記事。 Munin ことはじめ Munin インストール Munin 既存のプラグインの導入( 概要編 ） Munin 既存のプラグインの導入( Apacheプラグインの追加編 ） Munin 既存のプラグインの導入( MySQLプラグインの追加編 ） Munin アラート通知機能を試す（ファイル記録、メール通知） 今回は、Muninプラグインの書き方について書いていきます。また、自分も１から勉強しているところなので、１つMuninプラグインを書き上げようと思います。 Muninプラグインは誰でも作れる 『そもそもMuninプラグインは誰にでも作れるの？』 という疑問の答えは、『誰でも作れます！』です。 Muninプラグインはmunin-nodeに対して特定のフォーマットで(RRDの構成に基づく)グラフ情報とリソース値を返すことが出来ればいい
The Benchmark with Go REST API Server - stanaka's blog
I gave a presentation about lightweight REST API Server by Go, and performance comparison with Go, Perl and Ruby at GoCon 2013 autumn. The slide about benchmarking result is as follows. This shows milliseconds per request with 10,000 sequential requests at various conditions, which are go/perl/ruby, messagepack/json, and mysql SQL query/innodb memcached plugin. "direct memcached (innodb)" is direc
Freak: Image::Imlib2で画像のrawデータを取得できるようにする
202312 « 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 » 202402 Image::Imlib2のソースImlib2.xsに少し変更を加えてビルド＆インストールし直せばいい。 # vi lib/Image/Imlib2.xs で、MODULE = Image::Imlib2 PACKAGE = Image::Imlib2 PREFIX= Imlib2_ の下辺りに↓を追加。void Imlib2_get_data(image) Image::Imlib2 image PROTOTYPE: $ PPCODE: { DATA32 *blob; int width; int height; imlib_context_set_image(image); width
Image::LibRaw で raw 画像を操作する - Articles Advent Calendar 2010 Hacker
おなかがすきすぎたので、そろそろ昼飯をたべにいきたい tokuhirom です。 Image::LibRaw をつかうと、raw 画像を簡単に操作できます。これは、libraw という C++ (だったはず)でかかれたライブラリのラッパーです。 use Image::LibRaw; my $libraw = Image::LibRaw->new(); $raw->open_file($fname); $raw->unpack_thumb; $raw->dcraw_thumb_writer('libraw-thumb.jpg'); raw 画像をあつかいたい場合にはぜひごりようください。 POD ERRORS Hey! The above document had some coding errors, which are explained below: Around line 3: No
YAPC::Asia 2013でLT『How to inspect a RUNNING perl process』してきました＆スピーカーへのお願い - （ひ）メモ
YAPC::Asia 2013でLT『How to inspect a RUNNING perl process』してきました How to inspect a RUNNING perl process / YAPC::Asia Tokyo 2013 http://www.slideshare.net/hirose31/inspect-runningperl ハングアップとかメモリバカ食いとか、稀にしか発生しないヘンテコ状態のシューティングやるには静的デバッグより、今ヘンテコ状態にあるプロセスを直接まさぐるのが手っ取り早いよねーということで、既存の手法、 strace gdb bulkdbg gdbperl に加え、拙作の inspect-perl-proc について話しました。 https://github.com/hirose31/inspect-perl-proc 今のところ 3 つ
YappoLogs: DSN に sql-mode=... 付けてもなんもなんないんだよ糞が！
DSN に sql-mode=... 付けてもなんもなんないんだよ糞が！ 最初の方に追記しておくと生DBI限定の話です。僕のしらない wrapper モジュールだと動くのかもしれません。 けど、こういうエントリを僕が書いてる時点で、そういうモジュールは筋悪いんだとおもいます。 人のプロジェクトのコードを見てたら my $dbh = DBI->connect('dbi:mysql:dbname=geekdb;sql-mode=STRICT_TRANS_TABLES', 'yappo', 'moneyfriend', %attr); みたいな感じの DSN があったんですよね。 他にも attribute てんこもりだったんで、それコミットした人に聞いて見たら「秘伝のタレです」的なのが帰ってきたので、僕も何も考えないで「これでSTRICT_TRANS_TABLES効いたら、まぁ捗るから付けとこ
Perlでコマンドラインオプションの解析に Getopt::Long を使う時、絶対に忘れてはいけない引数 - たごもりすメモ
Perlでコマンドラインオプションをparseしようと思うと組込みモジュールとしては Getopt::Std と Getopt::Long がある。が、long style option *1 つまり --option-name のようなオプションを解釈してくれるのは Getopt::Long だけだ。なので普通はこちらを使おう。 ただし 絶対にデフォルト、つまり以下のようにして使ってはいけない。 use Getopt::Long; my (@primary, @secondary, $silent); GetOptions( "server-primary|p=s" => \@primary, "server-secondary|s=s" => \@secondary, "silent|S" => \$silent ); これダメ！ 絶対ダメ！ 死ぬ！ 最初に結論を書く 必ず以下のように
Perlの $0の変更に関するメモ - Shohei Yoshida's Diary
少し前に kfreebsdで $0を変更しても psの結果に反映されない ことについて調べたのでメモ。 ソースコード https://github.com/mirrors/perl/blob/blead/mg.c#L2981 mg.cの Perl_magic_set関数の switch文の case '0'の部分です。 処理の流れ 以下のいずれかを実行する setproctitle関数を呼ぶ BSD系のOSで実装される関数 pstat(command: PSTAT_SETCMD)システムコールを呼ぶ HP-UXで実装されるシステムコール argv[0]を書き換える setproctitle, pstatが実装されていない場合。 prctl(command: PR_SET_NAME)システムコール呼ぶ Linuxで実装されるシステムコール。よくわからないがこのときは argv[0]の書き換え
Perlでstrace -p pidして目的のシステムコールが来たら終了する - blog.nomadscafe.jp
riywoさんの「Perlでssh tail -fして目的の行が来たら終了する」に便乗するコネタ。 ログをtailしながら(ほぼ)リアルタイムで解析していくworkerの処理がどれくらい遅延しているのか確認して、それをgrowthforecastでグラフ化したいなと思ったので以下のようなスクリプトを書いてcronで実行しているよという話 #!/usr/bin/perl use strict; use Time::Piece; use LWP::UserAgent; my $worker = `/usr/bin/pgrep worker.pl`; chomp($worker); die "couldnot find worker pid" unless $worker; pipe my $logrh, my $logwh or die "Died: failed to create pipe
TheSchwartz のような RDBMS をつかったジョブキューをリアルタイムに処理するアイディア - tokuhirom's blog
TheSchwartz のような RDBMS をつかった job queue は、新規に daemon をたてたりする必要がないので楽でいいのですが、一方で job の追加の timing が storage から push でおくられてこないので、若干の delay が生じてしまうのが難点でした。 この問題を解決するために、mysql の binlog API を用いて、処理してみるハックを考えてみました。 binlog API を利用すると更新クエリを streaming で処理できるので、こういったハックも簡単にできちゃいます。おもしろい。 use 5.016000; use MySQL::BinLog; use TheSchwartz; my $sch = TheSchwartz->new(...) or die; $sch->can_do($_) for ...; $sch->w
mysql の binlog api を利用するための Perl Binding を作りました - tokuhirom's blog
mysql の binlog api をあつかうためのライブラリである libreplication というものがあるのですが、これの perl binding を開発しました。 https://github.com/tokuhirom/MySQL-BinLog とりあえず、examples/basic-2.cpp でやっていることができるところまでつくっておきました。 バイナリログの内容を streaming で処理できるのがおもしろいです。 以下のような用途での応用が考えられるようです。夢がひろがりんぐですね。 libreplication のセットアップ方法については riywo さんの記事をごらんください。 http://blog.riywo.com/2012/07/08/133005 はまりポイントは、streaming 開始時に ROTATE_EVENT が発生して、最新のログ
App::RadというCLIがだいぶ良い - Perl勉強メモ アルパカDiary出張版
App::Rad というコマンドラインツールがあるのですが、 手軽にサブコマンド作れてだいぶウマーな感じなのに 日本語情報が全くないので紹介してみます。 基本系 まずは「rad.pl」に「bucho」というサブコマンドを作ってみたいと思います。 use App::Rad; App::Rad->run; sub bucho { return "Hello Bucho!"; } たったこれだけです。まずは実行してみましょう。 $ perl rad.pl Usage: rad.pl command [arguments] Available Commands: bucho help show syntax and available commandsいい感じにヘルプが出ました。 定義したサブルーチン「bucho」が勝手にサブコマンドとして認識されていますね。 buchoコマンドを実行してみましょ
Test::System::Config で サーバの設定をtest - うまいぼうぶろぐ
perldoc Test::Config::System use Test::Config::System tests => 4; check_package('less', 'package less'); check_package('emacs21', 'emacs uninstalled', 1, 'rpm'); check_link('/etc/alternatives/www-browser', '/usr/bin/w3m'); check_file_contents('Test/Config/System.pm', qr/do {local \$\//); check_package dpkgかrpm packageがinstallされているか。defaultはdpkgをtest check_file_contents 指定したファイル内に指定したregexがマッチするかte
ログの任意のキーワードに好きな色をつける - Cside::Weblog
Apacheログに色を付けて快適tail生活 - y-kawazの日記 というのがあるけれど、 [31m とかで色を指定するのあまり人間が読める感じがしないので、もっと簡単に定義できるやつ作った。https://gist.github.com/2929372こんな感じにキーワードと色を定義できる。 ' (200) ' => 'green', ' (5\d{1}) ' => 'red', ' (404) ' => 'red on_yellow', こんなふうに、tail とか cat とかにパイプでひっかけて使う。 $ tail -f access_log | perl colorize.pl $ plackup app.psgi 2>&1 | perl colorize.pl
App::Monitor::Simpleというモジュール書いた - Perl勉強メモ アルパカDiary出張版
https://github.com/toritori0318/p5-App-Monitor-Simple シンプルに「リトライ数だけ指定して全部エラーなら何かする」 ということがしたくて探してみたけど見つからず。 コードボリュームからしてもわざわざモジュールにする程でもないかもしれませんが、 あったらあったでまあまあ嬉しいかも、と思い書いてみました。 仕様 やることは至極単純で 「コマンド実行した戻り値が０ or ０以外でOKかNGを判定するだけ」 です。 オプションとしてリトライ数とリトライ間隔を指定することが出来ます。 コマンドラインツール monitor-simpleというのがついてきます。 詳しくは--help参照ですが、例を説明してみます。 httpサーバの監視 monitor-simple 'curl http://hogehoge.co.jp/'curl が正常終了するかど
Cooking Perl with Chef - Grant Report #2 - The Perl Foundation
David Golden reported: Current progress Three of the eight deliverables are complete: Publish a Chef cookbook for Perl interpreter deployment Publish a Chef cookbook for CPAN module deployment Publish a Chef cookbook for Plack application deployment These have been uploaded to the Opscode Community Cookbooks site in two separate cookbook distributions: perlbrew The perlbrew cookbook satisfies deli
NginxのPerlモジュールで自由にリアルタイム画像変換する方法 - 9mの日記
Webサイトでいろいろなサイズの画像を使いたいとき、URLのパラメータを変えるだけでサイズ変換してくれると非常に便利です。クックパッドのTOFUとかわりと有名ですね。開発効率も上がるし、面白そうだったのでNginxで実装してみました。 TOFU : 料理を楽しくする画像配信システム フルサイズの画像 元の画像です http://pic.kksg.net/shirakawago.png 比率固定リサイズの画像 /scale/128x128 を挟むと縦横の最少が128pxの画像になります。 http://pic.kksg.net/scale/128x128.shirakawago.png サイズ指定切り抜き c オプションで切り抜き。指定サイズいっぱいに、いい感じに切り抜きます。 http://pic.kksg.net/scale/c.600x150.shirakawago.png グリッチ
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
check_mem - Nagios Exchange
GitHub - dragon3/Plack-App-GitSmartHttp: Git Smart HTTP Server Plack Implementation