リストを任意件数ごとにぬるぬる処理する用のモジュール書いた
なんらかのリストの要素、要素に処理をするなんて場面よくありますよね。んで、そんなとき、リストが長大で 1 件ずつやってたら埒が明かなくて、適当な件数ごとに分割してぬるぬるしないとやってられない、みたいな深遠な事情もありがちですよね。 さて、まあ、そんなのを、毎度書くのに飽きたので、少し楽できそうなモジュール書いてみました。 Sub::Sequence こんな感じです。 use Sub::Sequence; my @user_id_list = (1..10_000_000); seq \@user_id_list, 50, sub { my $list = shift; my $in_id = join ',', map { int $_; } @{$list}; # UPDATE table SET status=1 WHERE id IN ($in_id) sleep 1; }; us
型一致ベースのテストに使えるPerlモジュール ~Test::Deep::Matcher,MouseX::Types~ | hirobanex.net
『PerlでTDD(テスト駆動開発)するなら覚えておきたいCPANモジュール群 』って記事書いたら、ありがたいことにikasam_aさんに「Tes::Deep::Matcherを書いたよ」ってご紹介頂きましたので、続けざまに型一致ベースのPerlのテストについていろいろと思うところを整理しておきたいと思います。 【宣伝】Yapc::Asia2012のトークに応募しています この記事アップしようとして、先の記事みたら、私のブログからしたらたくさんはてぶが付いているじゃありませんか!!そして、そのわり・・・。だったので、最初に紹介します。 Perlの最大のイベントYapc::Asiaが今年も開催されますが、今年はトークに応募してみました。バッチ処理とかジョブキューシステムとのQudoとかについて普段やっていることをまとめて発表する予定です。ご興味ありましたら、是非『不安定な環境の中でのバッチ処
Moose::Cookbook::Basics::Recipe11 Moose(0.92) - Japan Perl Association ドキュメント和訳プロジェクト
package My::DateTime; use Moose; extends qw( DateTime Moose::Object ); use DateTime::Calendar::Mayan; has 'mayan_date' => ( is => 'ro', isa => 'DateTime::Calendar::Mayan', init_arg => undef, lazy => 1, builder => '_build_mayan_date', clearer => '_clear_mayan_date', predicate => 'has_mayan_date', ); sub new { my $class = shift; my $obj = $class->SUPER::new(@_); return $class->meta->new_object( __IN
Perl テスティングハンドブックという電子書籍をだしてみた - tokuhirom's blog
主に KDP をためしてみたいという理由ですが、だしてみました。 Perl で Test を書くときのポイントを押さえてちいさくまとめています。ボリューム的にはちょっとした小冊子程度です。本当に自分で実践につかったことがあるものしかのせてないのがひとつの特徴です。 今回は pandoc でつくってみました。 gumroad からも買えるようにしてみました なお目次は以下のとおり - 前書き - 対象読者 - なにはのっていないか - 想定環境 - カイゼン - Test::More をもちいた基本的なテスト - 便利なユーティリティ関数 - is 関数 - cmp\_ok 関数 - is\_deeply($a, $b[, $msg]); - like($got, $regexp[, $msg]); - subtest 関数でテストケースをネストさせる - Test::More をたすけるラ
DBIx::TransactionManager の目的と、その使用法について - tokuhirom's blog
おはようございます。 DBI では当たり前のように $dbh->do('BEGIN') と $dbh->do('COMMIT') をつかえばトランザクションがつかえるわけですが、なぜ DBIx::TransactionManager のようなものが必要になったのでしょうか。 それは勿論、DBI で直接 transaction をとりあつかうと問題が発生するケースが存在するからです。 トランザクションと RAII一番おおきいのは、トランザクションが中途半端な状態になってしまうことを阻止することです。たとえば、以下のようなケースでは、おかしなことになってしまいます。 my $dbh = DBI->connect(...); for (@stuff) { eval { $dbh->do("BEGIN"); $dbh->do(q{INSERT INTO t1 (v) VALUES (?)}, $_
flymakeのためにプロジェクトのトップディレクトリを @INCに加える - Shohei Yoshida's Diary
perlbrew.elとProject::Libsを使ったflymakeの設定 - delirious thoughts の通りに flymakeを設定したんですが、トップディレクトリが @INCにないので 'use t::Util;'みたいなのを書くとエラーとして 指摘されていました。Project::Libsに pull requestを送ると いうことも考えたんですが、t::Utilが一般的かどうかがわからない ので、自分で '-I'オプションを追加することで対応しました。 コード 個人的には Perlプロジェクト = git管理下なので、git管理下であれば トップディレクトリを追加という形にしています。Makefile.PLか Build.PLが あればトップディレクトリという方が正確かもしれないですが。 追記 flymakeが機能しない問題があったので修正 (defun fly
今日はYokohama.pm #9の日です - Pixel Pedals of Tomakomai
残念ながら横浜市民ではなくなりましたが、Yokohama.pm #9に参加しています。USTはこちら。 myfinderさん - 転職して1年間(弱)やってきたこと こちらのトークは、USTなしでした。 自作サーバインフラ 引継 ケーブリング修正 サーバが落ちる問題 WEB+DB PRESSの寄稿の計画 → 寄稿 MySQLのパフォーマンス改善 → 30分のトランザクションなど web APIの整備 AWS JPAスポンサー YAPC::Asia 2012に fluentd、TreasureData 楽しいよ！ kanさん - use Smart::Options Getopt::Long 標準 使い方がキモい Getopt::Compat::WithCmd けっこう複雑 opts Smart::Argsをパクry 型の変換 optimist(node.js) 直感的、きっちりも使える S
DBIx::DSN::Resolver ってのを書いた - blog.nomadscafe.jp
YAPC::Asia Tokyo 2012 始まりましたね。 それとはあまり関係なく DBIx::DSN::Resolver というモジュールを書いてリリースしました https://metacpan.org/release/DBIx-DSN-Resolver 何をするモジュールなのかというと、DBIでデータベースに接続する際に使うDSN中のホスト名を名前解決してくれるモジュールです。mobage本でxaicronが書いていたのを参考にして作りました dbi:mysql:database=mytbl;host=dbserver.local これを dbi:mysql:database=mytbl;host=10.9.4.1 と変換してくれます。 また、名前解決する機能を差し替える事ができるので、そこでキャッシュを挟む事も可能です。Cache::Memory::Simpleを使うと以下のよう
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
perlの波ダッシュの文字コード変換のまとめ - (ﾟ∀ﾟ)o彡 sasata299's blog
2009年02月22日22:31 Perl perlの波ダッシュの文字コード変換のまとめ perlの文字コード周りはなかなかカオスです。外部エンコードとか、perl内部での文字コードとか、UTF8フラグとか。UTF8フラグ？なにそれ？な人は、こことかここを見てみると良いかも。（・∀・） 基本的には外部から入ってきた時点でdecodeして、出力時にencodeしてやれば全て解決するんですが、「〜（波ダッシュ）」と「−（全角マイナス）」だけは特別です。注意が必要なのはこの2パターン。 ① utf8⇔shift_jis ② utf8⇔euc-jp ①については以前、perl utf8→sjisで文字化けという記事で紹介しましたが、encode時に、'sjis'では無くて、'cp932'を指定すればOK。※「〜」とか「−」はsjisには含まれていない文字なのが原因。 今回紹介したいのは②の場合です
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 ); これダメ！ 絶対ダメ！ 死ぬ！ 最初に結論を書く 必ず以下のように
NinNin – casual background processing for perl - maaash.jp
https://github.com/mash/NinNin というのをつくった。 よくGearman::Workerを使うんだけれど gearman-starter.plのようなもので gearmanのworker poolをつくっていて 裏(gearman worker)で動かしたいコードと、 httpリクエストを同期的に処理してるコードの場所が離れるから行ったり来たりしたりするのが嫌だったりする。 もっとカジュアルに裏にまわしたい！ ということで、subroutine referenceを渡すと裏に回してくれるのが NinNin (ニンニン)。 予めgearman worker poolを用意しておけば NinNin->setup({ backend => NinNin::Backend::Gearman->new({ job_servers => [ '127.0.0.1:4730
JSON::Types ってのを書いた - unknownplace.org
JSON-Types-0.01 - variable type utility for JSON encoding - metacpan.org Perl から JSON 吐くときに、ここは絶対数値で（文字列で）だしたい、みたいなときに use JSON; print encode_json({ number => $num + 0, string => $str . '', bool => $bool ? \1 : \0, }); みたいにすることがあるかもしれませんが、これってやっぱりハックなので可読性悪いしわかりにくいってことで、 use JSON; use JSON::Types; print encode_json({ number => number $num, string => string $str, bool => bool $bool, }); みたいな感じで、まぁ内
Plackで静的コンテンツのMIME型を指定する方法 - kazuhoのメモ置き場
Apache の設定ファイルおける AddType を Plack でどうやるのか。 Plack::App::File (あるいはそれをラップしている Plack::Middleware::Static) は、拡張子から Content-Type を決定するのに MIME::Types を使っている thanks to miyagawa-san。 なので、たとえば Apache の AddType application/x-xpinstall .xpi AddType application/octet-stream .msiに対応する Plack::App::File の設定は、 MIME::Types->new(); MIME::Types->addType( MIME::Type->new( type => 'application/x-xpinstall', extensions
Teng::Schema::Loaderを使ったらTengオブジェクトが返るので - Perl日記
その後Teng->newする必要なかった。 0.14から0.14_01での変更点みたい。 以下Amon2での使用の例。 MyApp.pm use Teng; use Teng::Schema::Loader; use Test::DB; my $schema; sub db { my $self = shift; if ( !defined $self->{db} ) { my $conf = $self->config->{'DBI'} or die "missing configuration for 'DBI'"; my $dbh = DBI->connect(@{$conf}); # $schema ||= Teng::Schema::Loader->load( $self->{db} = Teng::Schema::Loader->load( namespace => 'MyAp
おそらくはそれさえも平凡な日々: Plack::App::Directory::Markdownが便利な件
https://metacpan.org/release/Plack-App-Directory-Markdown 自作自演乙。 意識の高いエンジニアの皆さんなら、markdown形式でメモを残しているんじゃないでしょうか。 plackup -MPlack::App::Directory::Markdown -e 'Plack::App::Directory::Markdown->new->to_app' のような感じで、ディレクトリ内のmarkdownファイルの一覧を出してくれるとともに、markdownファイルはhtmlに変換して出力してくれます。皆さんが見飽きたBootstrapデザインになっております。 padm とかでalias作るときっと楽ですね。 alias padm="plackup -MPlack::App::Directory::Markdown \ -e 'Plack
Amon2 がストリーミングに対応しました。 - tokuhirom's blog
最近、Amon2 のリアルタイムWebサポートをおこないました。 これにより、WebSocket や Long poll をつかうウェブアプリケーションを Amon2 で簡単にかくことができます。 というか、ストリーミングがちょっとあるだけで、Tatsumaki を勉強しなきゃいけないのが面倒だったので、つくりました。 Amon2::Plugin::Web::Streaming というプラギンが、今回のバージョンでついています。これをつかうとこれまで Tatsumaki でやっていたようなことが、簡単に Amon2 でできるようになります。 MXHR には対応していないけど、WebSocket と streaming に対応したので、Amon2 で Tatsumaki がやっている領域はサポートできたとおもいます。というか自分がつかってる範囲ではこれで十分です。 以下がチャットのサンプルで
Githubの各種イベント通知をPubSubHubbubで受け取るの巻 - unknownplace.org
tl;dr - 通常のHookではなくPubSubHubbubのほうのHookを使えばGithubのすべてのイベントをひとつのWebHookで受け取ることができる。 Github の WebHook ではレポジトリの更新しか受け取れず、issue とかも受け取れたら便利なのになーと思いつつ API ドキュメントを見てみると Hook を API から登録したりすることができるようになっていた。 だがこれは所詮は Web から登録できる Hook をいじるもので、このリストにあるものしか登録できない。 また、それぞれの Hook について登録できるイベントはリストで定義されている物に制限されているようで、たとえば WebHook だと push イベントしか設定することはできないみたい。（API 経由でも設定できなかった） 一方、それとは別に用意されている PubSubHubbub の Ho
Amon2 が WebSocket に対応していた!! - tokuhirom's blog
Amon2::Plugin::Web::WebSocket というプラグインをだしました。 Amon2 の中で非常に簡単に web socket がつかえます。 なんかよくわからん作法とかおぼえなくてもいいので楽すぎる。。 実装例は以下のとおりです。Twiggy でしかうごきません。 use strict; use warnings; use utf8; use Amon2::Lite; use Digest::MD5 (); get '/' => sub { my $c = shift; return $c->render('index.tt'); }; my $clients = {}; any '/echo2' => sub { my ($c) = @_; my $id = Digest::SHA1::sha1_hex(rand() . $$ . {} . time); $c->we
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Dear DBIx::Inspector user(includes Teng::Schema::Dumper user), install DBD::mysql 4.021+ - tokuhirom's blog