Guard - black-mountain-sideの日記
YAPCでのmalaさんの発表をUSTで見ててちらっと出てきた Guard モジュール。 http://search.cpan.org/perldoc?Guard 以下の２つの関数を提供してくれる。 scope_guard このスコープを抜けたとき実行したいブロックを登録する。 以下ほぼSYNOPSYS。 sub foo { scope_guard { chdir "/" }; chdir "/etc"; // etcでゴニョゴニョ } こうすると、fooサブルーチンを抜ける時、scope_guardで登録された { chdir "/"} が実行される。 guard こちらは、guardが返すオブジェクトが破棄されるタイミングで登録されたブロックが実行される。 my $guard = guard { print "destroyed!\n" }; undef $guard; # proba
App::RemoteCommand リリース - skaji's blog
App::RemoteCommand というのを cpan にあげた。 cpan: https://metacpan.org/release/App-RemoteCommand github: https://github.com/shoichikaji/App-RemoteCommand インストール方法 > cpanm App::RemoteCommand > rcommand -v App::RemoteCommand 0.01 なにするもの? ssh で複数ホストにはいって並列にコマンドを実行するスクリプト。 なんで作ったか fabric や chef を使えば複数ホストに並列にコマンドを実行できる。 が、専用のシンタックスで書かなくちゃいけないしイマイチカジュアルじゃない。 ssh, xargs を組み合わせて > cat host-list.txt | xargs -P5 -L
Perlで日本語全文検索できるCPANモジュール作りました - 俺とお前とlaysakura
この記事は↓に移転しました。 laysakura.github.io
Ukigumo::ServerがCPANに上がっていました | おそらくはそれさえも平凡な日々
https://metacpan.org/module/Ukigumo::Server CPANに上がっていない他の人のモジュールをあげる業をしている今日このごろ皆様如何お過ごしでしょうか。 さて、この度Ukigumo::ServerをやっとCPANに上げましたのでご報告です。 ukigumo-server起動スクリプト MySQL対応 辺りが大きなフィーチャーです。 % cpanm Ukigumo::Server % ukigumo-server --config=config.pl とかやればデフォルト2828ポートでサーバーが立ち上がります。「ふわふわ」なので2828なのですが、どう見ても「ニヤニヤ」でした。 configファイルにはDBの設定等を記載します。configファイルの指定は任意ですが、指定しない場合はdevelopment.dbというSQLiteのファイルがカレントディ
Logfile::Rotate - perl でログをローテート - うまいぼうぶろぐ
諸事情でlogrotate を使わないでスクリプトで自前でローテートしたいときがたまにあって、でも自力で hoge.log をhoge.log.1(.gz)、hoge.log.1(.gz)をhoge.log.2(.gz) にリネーム、、、なんてことやってたんだけど面倒くさくてやだなーと思っていたら素敵モジュールあった。 Logfile::Rotate 使い方はsynopsysのままで十分いけますね。ローテートの前後で何か処理をしたいときはPre,Post にコールバック書いておく。 use Logfile::Rotate; my $log = new Logfile::Rotate( File => '/var/adm/syslog/syslog.log', Count => 7, Gzip => 'lib', Post => sub{ open(IN, "/var/run/syslog.
かゆいところに手が届くマイナーCPANモジュールランキング - Articles Advent Calendar 2011 Casual
use strict; use warnings; print << 'PERL_ADVENT_CALENDAR_JAPAN_2011_DAY_7'; こんばんわ！こんばんわ！id:karupaneruraです！ Perl Advent Calendar Japan 2011の7日目を書かせて頂きます！お手柔らかに！ さてさて、みなさんCPANモジュール使ってますか？使ってますよね？僕は大好きです！ そんな、みんな大好きCPANモジュールの中から僕が独断と偏見で選ぶ、 『かゆいところに手が届くマイナーCPANモジュールランキング』を作ってみました！ 5位. Perl::MinimumVersion マイナー度 *** 使える度 **** 面白い度 **** 何番煎じ度 *** かっこいい度 **** これはPerlスクリプト、あるいはモジュールがどのバージョン以上で動作するかなどを調べるた
SQL::Interpで生がお好きなあなたも満足 - Articles Advent Calendar 2011 Dbix
Perl AdventCalendar初投稿でドキドキしているriywoです。目指せhirose31ということで「コードも書けるインフラエンジニア」を所望していますが、正直、DBI使ってゴリゴリアプリとか作ってない。。。限りなくひとりDBIx::Casual Trackではありますが、そんな僕だからこそ書けるゆるふわなエントリをどうぞ！ 情弱なんで生SQLがいいんです。。。 Tengとかすごい魅力的なんですが、ゆるふわ過ぎてついつい生でSQLを書きたくなります。ORMのメソッド覚える努力をしないだけ情弱なんですが、特にインフラはいつも慣れ親しんでいるSQLをそのままアプリでも使いたくなっちゃいます。 とは言え、こんなコードを書いてしまうと色々と残念な感じです(注：2年前くらいの僕)。 my @line = `mysql -N -uuser -ppass hoge -e "select *
Calendar::Japanese::Holiday - 日本の祝日を求める - Articles Advent Calendar 2011 Casual
こんにちはこんにちは、sakurako_sです。 日本の祝日を求めるのに便利なCalendar::Japanese::Holidayをゆるふわっと紹介します。 このモジュールには2つの関数があります。 isHoliday() - 指定日が祝日なら祝日名を返す getHolidays() - 指定月の祝日とその名前のハッシュリファレンスを返す コードを見てみましょう。 use strict; use Calendar::Japanese::Holiday; use YAML qw/Dump/; use Perl6::Say; binmode STDOUT, ':utf8'; # 祝日の名前 say isHoliday(2012, 1, 9); # 指定月の祝日 say Dump getHolidays(2012, 1); 実行結果は次の通り。 成人の日 --- 1: 元日 9: 成人の日 振
Smart::Matchで快適スマートマッチ - Articles Advent Calendar 2011 Casual
こんにちは。Perlで遊ぶと言うより、 未だ、Perlに遊ばれているtaiju (id:jdg) です。 YAPC::Asia TOKYO2011に参加したので、爪あとを残すべく、Perl Advent Calendar 2011に参加することにしました。 さて、Perl5.10から導入されたスマートマッチですが、これをより快適に使えるモジュールがないか、CPANで探してみたところ、Smart::Matchというモジュールが見つかりましたので、ご紹介したいと思います。 Smart::Matchはスマートマッチを快適に使うためのユーティリティをたくさん提供しているモジュールのようで、デフォルトで比較演算子でスマートマッチが採用される、switch文などで便利に使えそうなユーティリティがたくさん導入されています。 junctive Perl6のJunctionのような動作をするユーティリティ群
DBIx::Class で FORCE INDEX する方法 - Articles Advent Calendar 2011 Dbix
DBIC って… 最近なにかと dis られることの多い DBIx::Class (DBIC) ですね。 曰く「重い」「複雑すぎる」「コードが読めない」……まあそれはそうかもしれませんが、数年前の DBIC 全盛期に作られて今まで生き残っているシステムを、そう簡単に他の ORM や生 DBI に置き換えられるものでもありません。 自分の管理しているとあるシステムは DBIC + MySQL で動いていますが、最初はデータも多くなく、DBIC が生成する SQL で何ら問題はなかったのです。 が、データが増えて行くにつれて、 MySQL が適切な index を使用してくれないとパフォーマンス的に厳しい、FORCE INDEX 句を付けたい！という状況に出くわしました。そこで試行錯誤して見つけた、FORCE INDEX を指定する方法をご紹介します。 どうやって? たとえば以下のように、fo
Term::UI - サクッと対話的に入力を求める - Articles Advent Calendar 2011 Casual
こんにちは、コンビニに行くたびに店員さんから舌打ちされるdameninngennです。サックリと書きます！ 対話的に処理を進めるスクリプト書いたりしますよね！あの[yes/no]とか聞かれて入力するやつです！！ 例えばrsyncで--dry-runオプション付きで一旦実行して、そこから[yes/no]を聞いて本当にsyncするかどうかみたいな感じのやつです！！！ まず、標準入力から受け取るだけであれば、 my $str = <STDIN>; chomp $str; # do something # ... こんな感じに受け取ったりするかと思いますが、本当に[yes/no]が入力されたのか判定したりそうじゃなかったらもう一回入力求めたりとか書くのめんどくさいですよね。 そこらへんのめんどくささとかを解消してくれるTerm::UIというモジュールがあります。 誤解を招くかもしれませんがTerm
Geo::Coordinates::Converter - 位置座標の測地系やフォーマットを変換する - Articles Advent Calendar 2011 Casual
こんにちは。hatak (@hisashi) と申します。 モバイルデバイスでは GPS やネットワーク測位などで位置座標を簡単に取得できます。しかし、緯度や経度の計算は意外と面倒なものです。 14 日目は、このような位置座標を扱うときに便利なモジュール Geo::Coordinates::Converter をご紹介します。 測地系の違い 緯度経度で表された座標を扱う場合、「測地系」という基準を考える必要があります。 測地系には様々な種類があります。日本国内で利用されることの多い測地系は次の 3 種類です。 世界測地系 1984 (WGS84) アメリカで策定された測地系 GPS や Google Map などで採用されている 日本測地系 2000 (JGD2000) 日本で策定された測地系 2002 年以降の国内の基盤地図などで採用されている 旧日本測地系 (Tokyo) 2002 年
Time::Piece::Plus - Time::Pieceに便利メソッドを - Articles Advent Calendar 2011 Hacker
はじめに こんばんは、takuji31と申します。 今回はPerl歴2年弱の初心者である私が作ったTime::Piece::Plusというモジュールを紹介します。Hacker(笑)となってしまった方はすみません。 さて皆さん、Time::Pieceというモジュールはご存知でしょうか？ 既に[/articles/advent-calendar/2011/hacker/7:title=7日目のトラック]にて紹介されているのでご存知でない方はそちらを見ていただければと思います。 このTime::Piece、非常に軽快でシンプルが故に意外とかゆいところに手が届かないことがあるのではないでしょうか？ 例えばDateTimeにあるtruncateメソッドはTime::Pieceにはありません。 例えば今日の0時を取得したい時は use strict; use warnings; use utf8; u
にひりずむ::しんぷる - IO::Prompt::Simple 書いた
リリースしました にひりずむ::しんぷる - IO::Prompt::Simple 0.01 リリース あらすじ xaicron:> ExtUtils::MakeMaker はロードに1秒ぐらいかかるから遅延ロードにしたた。prompt 使いたいだけなんだけど。IO::Prompt はなんかごついし、今後はコピペでいい気がしてきた。 tokuhir○m:> @xaicron IO::Prompt::Simpleの予感 xaicron:> @t○kuhirom srd! というわけで適当にでっち上げた。 xaicron/p5-IO-Prompt-Simple - GitHub 基本的には ExUtils::MakeMaker の prompt() と同じだけど、第三引数で指定した文字じゃないとダメとか、この正規表現にマッチしたやつじゃないとだめとかを設定できる感じ。 あとは、terminal
Router::Simpleのソースを読む - Pixel Pedals of Tomakomai
最近モダンなPerlのソースを読んでなかったので、ぼちぼちソースを読んでみようかと。ってことで、Router::Simpleの0.09です。 まともに使ったこと無いのにソースだけ読んでるので、間違ってたらごめんなさい(これから使うつもりだけど)。 概要 Router::Simple がAPIの口。実際のマッチングをやってるのはRouter::Simple::Route で、このクラスが一番重要。Router::Simple::SubMapper は階層的なマッピングを実現するクラスだけど、こいつの中身は単なるシンタックスシュガー。Router::Simple::Declare はDSL的なインタフェースの提供。 Router::Simple connect する度に Router::Simple::Route を生成して保持する。マッチング処理もそのまま Router::Simple::R
YappoLogs: Devel::GlobalDestruction
Devel::GlobalDestruction Perl 終了時のゴミ回収フェーズに入ってるかどうかを調べるモジュール。 くわしくはhttp://perl-users.jp/expert_perl/hentai_modules.htmlでも見ればおk。 一番したに貼付けたサンプルコードを見ると、きっちり END フェーズの後にフラグが立ってるのがわかる。 しかし、 do と normal の実行順序が違うのが気になった。これは do ブロックの中に文を追加すると想定通りの実行順になるので、 perl 側でなんか最適化してるのかなーとかおもた。 ので B::Deparse さんの出番だとおもったけど https://gist.github.com/1145662よーわからん。 あ、 perl 5.14.1 Posted by Yappo at 2011年08月15日 12:31 | Tra
Dist::Maker覚書 - Islands in the byte stream (legacy)
h2xsからModule::Starter、Module::Setupといろいろなディストリ生成ツールを使ってきましたが、ここ半年ほどはDist::Makerという自作ツールを使っています。特にCPANにリリースするつもりはなかったのですが、Dist::Makerが良い。で紹介してもらったのでちょっと手を加えてリリース準備中です*1。 基本的な使い方は上記エントリにあるので以下は捕捉です。 サブコマンド 新しいディストリはinitで作ります。最近はinitのあとで自動的に`perl Makefile.PL && make manifest`をしてくれるようになりました。この挙動は`dim config template.dist_init 0`で抑制できます。 また、newで新しいファイルを作ることができます。これは、作成しようとしているファイルの名前に近いものを基本テンプレートから探し出
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Pelletkachels | Dé Expert voor jou duurzame Pelletkachel in huis
nishimiyahara.net
http://blog.moe-project.com/2011/07/16/distmaker%E3%81%8C%E8%89%AF%E3%81%84%E3%80%82/