Devel::NYTProf で Starlet/Starman (Plack) でうごくウェブアプリケーションのプロファイリングをおこなう方法まとめ - tokuhirom's blog
Devel::NYTProf は Perl5 の世界でもっとも人気があるプロファイラである。表示が美麗であるし、ステップごとの処理速度が簡単にわかるのでとても便利だ。 そんな Devel::NYTProf であるが、Starlet/Starman のようなプリフォーク式のサーバーでうごくウェブアプリケーションとくみあわせる場合の方法論として、わかりやすい資料がみあたらなかったのでここに記すものである。 環境変数 NYTPROF を設定する Devel::NYTProf は環境変数で挙動を変えられる。 plack とくみあわせる場合には、以下のようにするとよい。 NYTPROF=sigexit=int:savesrc=0:start=no sigexit=int 通常、Devel::NYTProf は END { } ブロックでデータのファイナライズ処理をおこなうのだが、SIGNAL によっ
YAPC::Asia 2013 で Best Talk Awards 第2位いただきました。 - まいんだーのはてなブログ
まとめ 世界最大級のPerlの祭典「YAPC::Asia 2013」に参加＆トークして来ました。 そして参加者の投票で決まるBest Talk Awardsにて第2位をいただきました！ 60個近いトークの中での2位です！ありがとうございます＞＜ 第2位賞品は「国内技術カンファレンス(Perlに限らない)への参加費用補助」ということで、Perlに限らない国内のカンファレンスへの参加が出来るそうです。 他の言語カンファレンスあまり詳しくないので、おすすめがあれば id:myfinder 宛にメンション飛ばしていただけるとありがたいです＞＜ 昨今仕事はOpsを主軸としていますが、蒙古タンメン中本にハマったせいでだいぶDevってしまったので、来年までにまた巻き返したいと思っております。 今回の YAPC を振り返って「もっとこうしておけば」と思った点として、BOFにもっと行っとけばよかった!!とい
ゆーすけべー日記
__papix__ 君が主催をして開催している Perl入学式 というイベントがあります。Unix/Linux/OSXの環境構築から始まり最終的にはWebアプリケーションをつくるハンズオン形式の勉強会を今年は年6回に分けて開催しているようです。かなり丁寧にPerlを教えているという印象があって、それがどんな雰囲気か以前から気になっていたのですが、昨日「Perl入学式 in 東京 #2」にサポーターとして途中から参加させてもらいました。 簡単に感想を述べると「これはすごくいい」。肝は最適な練習問題が所々出され、するとみんな黙々とコーディングし始めるんだけど、それが終わると、参加者同士でコードを見せ合って「これで合ってるかな？」「私はこんな風に書いたよ」と言うようなコミュニケーションが生まれてたりしているのです。正直その様子を見て感嘆しましたよ。 ＊追記「Perl入学式の補講があるらしいよ！」
httpstatus コマンドで、HTTP のステータスコードをすばやくしらべる! - tokuhirom's blog
一般的な Web Programmer ならば、HTTP Status code はすべて暗記していると聞きました。 しかし、僕は初心者なので、なかなか覚えきれていないので、HTTPのステータスコードをさがすのに便利なツールを用意しました。App::httpstatus です。インストール方法は cpanm App::httpstatus です。というか依存とかないのでhttp://api.metacpan.org/source/TOKUHIROM/App-httpstatus-v1.0.0/httpstatus をコピーしてくればうごきます。 使い方は以下のとおりです。 4xx なコードを列挙する。 % httpstatus 4 400 Bad Request 401 Unauthorized 402 Payment Required 403 Forbidden 404 Not Foun
PerlでJavaプロセス状態をjmxの値を見て閾値チェックするmonプラグイン書いてみた - oranie's blog
多分一杯あるんだろうけど書いてみた。と言っても全部perlじゃなくてJboss Monitoring with check_jmxというのを利用している。普通にNagiosとかだったらこのまま使えば良いと思いますよ。僕はmonで利用するのと、一部の値はパーセンテージを計算したかったのでラッパーを作りました。ラッパーした事によってcheck_jmxの一部の機能が使えなくなっているので若干本末転倒感がある感じですね。 多分、書いたばっかりで適当な所をちゃんと直していないので色々変わるかも。 以下ソース #!/usr/bin/perl #このmonitorはjmxquery.jarを利用してmbeansをチェックします。その為、jmxquery.jarの仕様に則った形でコマンドを生成してチェックします。 ##Usage: check_jmx -U url -O object_name -A at
Pythonの辞書は存在しないキーでアクセスしてはいけない → 改め、存在しないキーでアクセスする場合はget()を使う - すぎゃーんメモ
Perlではハッシュから存在しないキーで値を取り出そうとするとundefが返ってくる。それを評価してプログラムを書いても動く。 $ perl -w %hash = (foo => 'hoge', bar => 'fuga'); print $hash{baz} ? "あるよ！\n" : "ないよ！\n" ^D ないよ！ Pythonの場合、存在しないキーで値を取り出そうとした瞬間にエラーが発生してしまう。 >>> hash = {'spam': 'hoge', 'ham': 'fuga'} >>> print 'あるよ！' if hash['eggs'] else 'ないよ！' Traceback (most recent call last): File "<stdin>", line 1, in <module> KeyError: 'eggs' ので、"has_key()"関数で辞書
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 ); これダメ！ 絶対ダメ！ 死ぬ！ 最初に結論を書く 必ず以下のように
複数行を単位としたログを grep する perl one liner
Landscape トップページ | < 前の日 2003-07-13 2003-07-14 次の日 2003-07-15 > Landscape - エンジニアのメモ 2003-07-14 複数行を単位としたログを grep する perl one liner 当サイト内を Google 検索できます * 複数行を単位としたログを grep する perl one linerこの記事の直リンクURL: Permlink | この記事が属するカテゴリ: [Perl] ログというのは行単位が基本。しかし、一部には複数行にまたがって出力されるものもある。そんなときにどう grep するかを考えた。JM で grep の man を見てみたが、良さそうなオプションは無かった。こんなときは perl で one liner を書くと楽だ。 - 複数行にわたるログの例。架空のものだけど。 Date:
Perlのスコープについて理解しよう - Perl入門ゼミ
Perl › スコープ Perlのスコープについて理解を深めましょう。この記事はstrictプラグマを有効にした前提で書いていますので、ソースコードの先頭には普段どおり以下のように書いてくださいね。 use strict; use warnings; スコープの作成 Perlのスコープは「{」で始まり「}」で終わります。 { # スコープ } スコープの意味 レキシカル変数 スコープの中で宣言されたレキシカル変数(myで宣言された変数)は、そのスコープ内でしか参照することができません。また変数に含まれる値はスコープが終わった時点で解放されます。 { my $num = 1; # 参照できる print $num; } # この位置では参照できない print $num; パッケージ変数 スコープの内部で宣言されたパッケージ変数(ourで宣言された変数)は、そのスコープの中では部分名で参照で
Script::Ichigeki - 相手は死ぬ - Articles Advent Calendar 2012 Hacker
@songmuです。Hackerではありませんが、僭越ながら書かせていただきます。 運用とは戦いであり、オペレーションエンジニアたちは日々殺す殺されるの戦いを繰り広げています。 殺る前に殺るしかない。可能なら一撃で。そこでScript::Ichigekiの出番です。 Script::Ichigekiは一撃こっきりしか実行しないスクリプトを安全に実行するために作られたモジュールです。 具体的には以下の要件を満たしてくれます。 クリティカルな一発スクリプト(ゲームの報酬付与処理、データ修正処理等)を 実行前に実行確認プロンプトを表示して 実行ログを残しつつ 再実行を防ぎたい(特にシェル履歴からの誤爆とか) 後々の参照のために、スクリプト自体は残しておきたい 使い方は簡単で、あなたが実行するplファイルに use Script::Ichigeki; と書くだけ。以下使用例。 % ls -A ic
CSVファイルのヘッダー行だけを置換するPerlワンライナー - give IT a try
はじめに CSVファイルのヘッダー行だけを置換するPerlワンライナーを作ってみました。 下の例では列名に含まれるスペースをアンダーバーで置き換えています。 2行目以降のデータは置換されません。 DBD::CSVモジュールでは列名にスペースが入るとダメみたいなので、これを作りました。 ワンライナー perl -0777pi -e 's/^([^\n]+)\n/join("_", split(" ", $1)) . "\n"/e' test.csv 置換前 COL 1,COL 2,COL 3 A 1,B 2,C 3 D 4,E 5,F 6 置換後 COL_1,COL_2,COL_3 A 1,B 2,C 3 D 4,E 5,F 6 ワンライナーの読み方 1行目だけを取得したいので、ワンライナーのオプションで「-0777」を指定してファイル全体を一つの文字列と見なしています。 さらに「^([^\
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
perl -0777 による slurping
連想配列の中身をワンライナーで読みやすくdumpしたい - すぎゃーんメモ
一本道 期間限定スペシャルー無料お試し開始！