#perlcasual #5 で stats コマンド(App::LogStats)紹介してきた
この手のイベントに参加するのは半年振りくらいだったので、 Perl Casual すごい新鮮でした。@yusukebe さん @dameningen さん あと懇親会の幹事さんお疲れ様でした。NHN ぱねえ。 とにかく、ライブコーディングは面白いですね。@sugyan ++ 自分の発表 さて、いまになって思い返してみると、自分が Perl Casual で発表するの #1 以来だなって気づいた。たしか #1 のときは cho45 さんの Config::Pit が便利だよ！ みたいな話をしたら xaicron さんに 「windows で使えなくて困ってるんです！」ってすごい勢いで突っ込みいれられた記憶だけあるけど詳細はどうだったか忘れてしまいました。 まあそんな昔の話はおいておいて、今回は perl でワンライナー書くとこんなんですねとか言いつつ、自作モジュールであるところの App::
リストを任意件数ごとにぬるぬる処理する用のモジュール書いた
なんらかのリストの要素、要素に処理をするなんて場面よくありますよね。んで、そんなとき、リストが長大で 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
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
