ORM的なものでLEFT JOINしたカラムの値をRowオブエジュクトにまとめる - どんぞこ日誌(2011-06-08)
* [Perl] ORM的なものでLEFT JOINしたカラムの値をRowオブエジュクトにまとめる タイトルが意味不明ですが。DBIx::Skinnyなどを使っててhas-manyな関係のデータをLEFT JOINしたりします。するとまあJOINで掛け合わせた分、Rowオブジェクトが複数個返ります。 # 著者authorと著作bookがhas-manyな関係だとして # SELECT a.id, b.id AS book_id, b.title AS title # FROM author a JOIN book b ON a.id = b.author_id # WHERE ... ... なんか色々あって my $itr = $skinny->search_by_sql(...); # この$itrを回すとbook_idとtitle以外 # （つまりid）は同じデータ while (
引数の明示という観点からのPerlモジュール群 | hirobanex.net
Perlモジュールのバリデーターと呼ばれるジャンルのモジュールなどをバリデーションという観点ではなく、引数を明示するという観点から整理しました。 バリデーターの種類 バリデーターというものは、一般的に引数が期待される型など(整数か、文字列か、URLか、メアドか等)になっているかどうかをチェックするというものです。特に、Webアプリにおけるフォームから入力されるデータのチェックに活用されることが多いです。そういういった意味から、Perlのバリデーターモジュールはフォーム系と非フォーム系に分類することができます。 フォーム系のバリデーター等 FormValidator::Lite CPAN本にも紹介されている強力なフォームバリデーターです。フォームバリデーターとしては、フォームの型の定義、チェック、エラーメッセージの定義、が必要ですが、やりたいであろうことのだいたいがそろっているモジュールで実
Smart::Commentsでモジュールにサンプルコードを仕込む - Islands in the byte stream (legacy)
ソースコードを読んでいると、関数の引数や戻り値の具体的な例がほしいと思うことがよくある。。そこで、実行可能なコメントを仕込むモジュールであるSmart::Commentsを使って、モジュール内にテストを兼ねたサンプルコードを仕込めばいいのではないかと考えた。これにより、開発者にとっては簡単なテストコードとして動き、読者にとっては具体例となるコードを簡単にソースコード内に埋め込むことができる。 package MyUtil; use strict; use warnings; use parent qw(Exporter); our @EXPORT = qw(add); use if __FILE__ eq $0, 'Smart::Comments'; ### assert: add(10, 20) == 30 sub add { my($a, $b) = @_; ### add(a, b)
最近のDBIx::Skinnyのprofilerでtxn_*系のログをとる - どんぞこ日誌(2011-05-24)
* [Perl] 最近のDBIx::Skinnyのprofilerでtxn_*系のログをとる DBIx::Skinnyは環境変数SKINNY_PROFILEやSKINNY_TRACEを有効にすることで発行されるSQL文のログをとれることはご承知の通り。ところが最近はトランザクション管理をDBIx::TransactionManagerに任せるようになってこの部分（txn_begin → BEGIN WORK、txn_commit → COMMIT WORK とtxn_roallback → ROLLBACK WORK）は記録がとれないです。DBIx::TransactionManagerがtxn_*したときにhookルーチンを呼び出す機能があれば解決するでしょうが、汎用的なモジュールであることや、そもそもtxn_*のログを取りたいという需要がほとんどないであろうことを考えると、自分でなんと
どんぞこ日誌(2011-05-20)
* [Perl] sleep sortのithread版 常識を覆すソートアルゴリズム！その名も"sleep sort"！から。 threads版がないのが不憫なのでここにひっそり書いておきます。 use 5.010; use strict; use warnings; use threads; use threads::shared; use Time::HiRes qw(sleep); my @thrs; my @values : shared; for ( @ARGV ) { push @thrs, threads->new(sub { sleep $_[0] / 10; push @values, $_[0]; }, $_); } $_->join for @thrs; say join( " ", @values ); 様々なsleep sort
Perl5 works on browser! - tokuhirom's blog
I hacked jslinux, so I injected Perl5 binary to jslinux!! You can run Perl5 on browser!!!!!!!!!!!!!!!!!!!!!11111 Modify root.bin with CocProxyThis is a note for hacking jslinux. Very easy. https://gist.github.com/978211 use microperl;Perl5 provides micro version of perl. I used it. You should modify the Makefile.micro file for static linking, change the following line. -LIBS = -lm +LIBS = -lm -sta
The three significant features in Perl 5.14 - Islands in the byte stream (legacy)
perl 5.14.0がリリースされた。Ubuntuなどでは、perlbrew経由でインストールするといくつかテストが失敗するようなので--forceオプションを使わないとインストールできない。 # 念のため-DDEUGGINGもつける。threadは好みで。 $ perlbrew --force install perl-5.14.0 -DDEBUGGING -Duseithreads Task::Plackなどの主要モジュール群ではCoro以外はいまのところ問題なくインストールできている。 さて、このバージョンは数多くの機能がが追加されているが、特に重要な機能が三つある。このエントリではその機能を紹介する。 The package block syntax package宣言が他の言語のクラス宣言に近い形で書けるよう拡張された。特に、以下のような小さなクラスが分かりやすくに書けるように
Perlbrew
perlbrew is an admin-free perl installation management tool. The latest version is 1.00, read the release note: Release 1.00. Also, check out the special releasse notes: Perlbrew 1.00. For a quick installation, do this: \curl -L https://install.perlbrew.pl | bash Check the document of Installation for more descriptions and options. Quickstart After installing perlbrew itself, now it is time to ins
第41回 HTML::Template::Pro：テンプレートに極力コードを書かせたくないときは | gihyo.jp
何でも埋め込めるのは楽ですが 前回紹介したHTML::MasonやText::MicroTemplateのように生のPerlコードを埋め込めるテンプレートエンジンは、Perlをよく知っている人が画面の設計からウェブアプリケーションのコーディングまでひとり（ないし、よく統制のとれた少人数のチーム）で行うときには非常に手軽で便利なものです。 ただし、なんでも書けるからといって、たとえばテンプレートの中でO/Rマッパのメソッドを直接呼び出すコードを書いてしまうと、そのテンプレートは（利用するO/Rマッパの性質にもよりますが）おそらく実際に動作するデータベースやそれに付随するテストデータを用意しないと、途中で「Can't call method "..." on an undefined value」などのエラーが発生してレンダリングできなくなってしまいます。また、アプリケーションの設定にあわせて
紙面の都合で見送ったものコーナー - 「CPANモジュールガイド」サポートブログ
本書、編集者が予定していたページ数をオーバーした範囲も収録していただいた本なのですが、それでも編集過程で削ったものもありまして、それらを紹介してみるコーナーです。 多く使われているものStarlet や Starman などのPerl製サーバーこれらを使うメリットは多いのですが、nginx や lighttpd, apache なども悪いわけではなく、既存の情報があるため割愛。そのためウェブアプリについてはCGIでの動かし方とFastCGIでの載せ方のみ取り上げています。この関係で巻き添えをくらってServer::Starterも割愛に。敬愛する@kazuhoさんのモジュールが収録されなくて残念。 キュー最初 TheSchwarz か Gearman どっちか載せようかと思ったのだけど、ぼくが最後に使ったのがQ4M で、次つかうなら（EC2限定だけど）Amazon SQS ってどうだろう、
Ubuntu 11.04 (Natty) で perl がインストール出来ない場合の理由と対策 - punitan (a.k.a. punytan) のメモ
追記 perlbrew 最新版では修正済みです。 patchperl にパッチ投げておきました。 perlbrewも最新のpatchperl を使うようになったので、失敗する場合はもう一度perlbrew の最新版を再インストールしてください（perlbrew のバージョン番号は変わってないので注意） 追記終わり http://d.hatena.ne.jp/Itisango/20110504/1304487042 の原因。 原因 - Ubuntu の math ライブラリ諸々がディレクトリごと移動した Configure はデフォルトで /usr/local/lib /lib /usr/lib /usr/lib64を読みに行くところ、Ubuntu Natty からは libm などのライブラリが /lib/i386-linux-gnu /usr/lib/i386-linux-gnuなどに移
Perlでシグナル処理（DBIを黙らせる編） - D-6 [相変わらず根無し]
Perlでシグナル処理（DBIを黙らせる編） 2011年4月27日 01:42 D | ブログ記事のURL | コメント(0) | トラックバック(0) なんかふと気づいたら最近以前書いたPerlでシグナル処理の記事にブクマがついていたので続き的な感じで書いてみた。 例えば 以下のように、ワーカーとかでずーーーーっとDBにクエリを投げてその結果を使って処理をする、というような処理を書くとする while ( $loop ) { my $sth = $dbh->prepare( .... ); $sth->execute(); while ( $sth->fetchrow_arrayref ) { .... } } 以前書いた%SIGを用いたPerlの普通のシグナル処理では、もしexecute()でブロックしていた場合など（例：Q4Mでqueue_waitしてる）ではいくらSIGINTとかを
Perlの中をgdbで覗く | BLOG - DeNA Engineering
こんにちは。DeNAの樋口です。 Perlで書かれたアプリを動かしているときに、Perlのプロセスが今コードの何処を実行中なのか知りたいことがよくあります。そのような場合には、gdbで実行中のプロセスにアタッチし、Perlインタプリタインスタンスの内部を覗くことによって調べることができます。また同様の方法で、プロセスのコアダンプを取り、後でじっくりデバッガで調べることも可能です。 デバッグシンボル付きのPerlを用意する まず前提として、Perlの実行形式にデバッグシンボルが付いている必要があります。無い場合でも不可能ではありませんが、現実的には難しいでしょう。デバッグシンボル付きのPerlを用意する方法はOSによりますが、例えばrpmを使っているGNU/Linuxディストリビューションであればperl-debuginfoのように分離されたパッケージにデバッグシンボルが入っていることが多い
Perl5 用の Rake っぽいのできたよー - tokuhirom's blog
http://frepan.org/~tokuhirom/Daiku-0.01/ Rake みたいなの、Perl にも欲しいね、って5年ぐらい前からおもってたけどいいのができたって噂をきかないので自分でかいた。 #! perl use Daiku; use autodie ':all'; task 'all' => 'foo'; file 'foo' => 'foo.o' => sub { system "gcc -c foo foo.o"; }; rule '.o' => '.c' => sub { system "gcc -c foo.o foo.c"; }; build shift @ARGV || 'all'; こういうかんじでつかえる。簡単でしょ。 以下設計のメモ。 基本的には Rake とインターフェイスをあわせめでつくってる。巨人の肩に云々。 DSL を DSL としてゴリゴ
六角形（geohex）で地図をうめる その１ - soh335 memo
無性に六角形（geohex）で地図を埋め尽くしてみたくなったので、２週間ほど前からtwitterのstreamを使ってこの一週間でtrendに上がっているような流行りキーワードを位置情報付きでつぶやいているものをトラックしてDBに突っ込んでました。 ちなみにtwitterのstreamでtrackする場合は400wordsぐらいが限界のようです。 で、それをそのままgooglemaps上にgeohexを利用してマッピングします。 だいたい見てみると、ロンドン辺りと西海岸、東海岸辺りが埋まっていました。 一応これはキーワード事に色を変えているのですが、量が分からないので次にgoogleearthにマッピングをします。HexTweetMapっていうのがgooglemapsの方にマッピングする時に使ったプロジェクトで、ark使ったんでmodels->get('teng') という事になってます。
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
Imager::Marquee、あるいは、揺れるイケメン - Kentaro Kuribayashi's blog
画像を左右に動かしたり揺らしたりするモジュールを作成しました。 https://github.com/kentaro/imager-marquee 以下、使い方を説明します。 たとえばここに、イケメンを写した画像があります。 確かにイケメンです。しかし、しばらくほれぼれと眺めているうちに、いくらイケメンとはいえ、動きがないとちょっと飽きてしまうのも事実(「美人は3日で飽きる」ともいいますし)。これでは、せっかくのイケメンも片無しです。そこで、ちょっと動きをつけてみましょう。 use strict; use warnings; use Imager::Marquee; my $image = Imager::Marquee->new(file => shift); $image->marquee(3)->write( file => 'marquee.gif', gif_loop => 0,
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
bayashi.jp
https://greenteapress.com/perl/perl.pdf