AnyEvent::Intro チョー訳 その１ - download_takeshi’s diary
最近perl界隈で話題のAnyEventについて、今のうちに習得しておくとid:miyagawaみたいにクールになれて、もしかしてモテるのではないかと思い、よっしゃ、勉強してみるか、ということでドキュメント読み出したんですが、、えらいボリュームですね。心がポッキリ折れました。 い、いや、そんなことではいかん！頑張るぞ。 というわけで、折角なので、チョー訳を残していこうと思います。AnyEventはおさえておきたいけどドキュメントの長さに呆然としてしまったアナタ、ダウンロードたけしと一緒にレッツスタディしようぜ！ なお、AnyEventのドキュメントはすごく長いので、ぶつ切りでいきます。最後まで書き綴れるかどうかは不明です。 さらに英語にはあまり自信がないくせに、要所要所ですごく意訳的なことをしています。誤訳などありましたら指摘して下さいませ。 ※原文はこちら http://search.c
livedoor Techブログ : livedoor Wiki記法モジュールを公開しました
こんにちは。 livedoor Wiki担当のぽろきぃです。先週、livedoor Wiki記法モジュールを公開しましたのでその報告です。 livedoor Wiki記法モジュールとは Perlで書かれたlivedoor Wiki記法をHTMLに変換することが出来るモジュールです。Text::Livedoor::Wiki という名前でモジュール化されており、CPANからダウンロード & インストールできます。 sudo cpan install Text::Livedoor::Wiki サンプル 使い方はとても簡単です。__DATA__セクションにWiki文を記述すると、HTMLとして出力するCGIも簡単に作れます。 #!/usr/bin/perl use warnings; use strict; use Text::Livedoor::Wiki; use CGI; print CGI-
Graph::EasyとGraphvizでステキなグラフを作ってみる - iDeaList::Writing
Graph::EasyはASCII, HTML, SVG *1での出力が可能なグラフに変換し描画してくれるモジュールです。 ASCIIでの出力 +------+ +-------+ | AAA | --> | BBB | +------+ +-------+ +------+ +-------+ | test | --> | test2 | +------+ +-------+ #!/usr/bin/perl use strict; use warnings; use utf8; use Graph::Easy; my $graph = Graph::Easy->new(); $graph->add_edge_once ('AAA', 'BBB'); $graph->add_edge_once ('test', 'test2'); print $graph->as_ascii(); コマン
YappoLogs: Data::Model っていう ORM みたいの CPAN にあげたよ
Data::Model っていう ORM みたいの CPAN にあげたよ あざーす。循環参照しすぎるとバターになる。。なんでそんなに人の目を気にするのだろうと、マジレス。 早速ですが Data::Model っていう O/Rマッパー 的な物を CPAN にあげました。 Data::Model http://github.com/yappo/p5-Data-Model/tree/master 元来は MVC モデルで言う所の Model を一括でまかなえるつもりで実装していますが、ロジック処理は普通の Perl のクラスで書いちゃった方が潰しが聞くため、主にストレージを Perl のオブジェクトにマッピングする ORM 的な使い方が主流となっています。 そして、 Data::Model の多くの実装や設計などは Data::ObjectDriver を参考にして開発しました。 他にも後述して
CPAN::Miniの設定などなど - iDeaList::Writing
以前にCPAN::Mini使えばいいよ！って教えてもらって放置してたのでメモ。 CPAN::Miniがあればネットが繋がらない時に最新版モジュールがインストールできる。すばらしい＞＜ CPAN::Miniのインストール sudo cpan cpan> install CPAN::Miniminicpanコマンドを使って、好きな場所にインストールしてみる。この場合は~/minicpanディレクトリで容量は560MBだった。 minicpan -r http://www.cpan.org/ -l ~/minicpan あとはcronの設定をすれば常に最新のものが自動で取得できる。 0 3 * * * minicpan -q -r http://ftp.cpan.jp/ -l ~/minicpan CPANの設定 CPANのモジュールを取得するurllistにfile:///home/acoti
DBIx::Simple と SQL::Abstract::Limit - daily dayflower
なんちゃってマッパ DBIx::Simple DBIC などの O/R マッパを使うほどじゃないけど DB 操作で楽したい，という場合には tomi さんも御推薦の DBIx::Simple があります。tomi さんもお書きのように結構致命的なバグ（その1，その2）が放置されているのが悲しいところですが。 DBIx::Simple を生の状態で使ってもそれほど有難味がないですが，周辺モジュールがインストールされていると透過的に使ってくれるので格段に便利になります。たとえば SQL::Abstract でクエリを簡単に書くことができますし，クエリ結果をテーブルにしたい場合 DBIx::XHTML_Table を使うと楽です。 さらに，DBIx::Simple::OO という拡張モジュールを別途インストールするとクエリ結果を Object::Accessor ベースなオブジェクトにしてくれま
SQL::Abstract - Perlのデータ構造からSQL文を生成する - perldoc.jp
名前¶ SQL::Abstract - Perlのデータ構造からSQL文を生成する 概要¶ use SQL::Abstract; my $sql = SQL::Abstract->new; my($stmt, @bind) = $sql->select($table, \@fields, \%where, \@order); my($stmt, @bind) = $sql->insert($table, \%fieldvals || \@values); my($stmt, @bind) = $sql->update($table, \%fieldvals, \%where); my($stmt, @bind) = $sql->delete($table, \%where); # それから、これらをDBIステートメントで使う my $sth = $dbh->prepare($stmt);
Google ツールバーを使わずにページランク取得
FreeBSDでも、firefox用のGoogle ツールバーを使用することが出来る。当然、GoogleのPageRankも簡易にチェックすることができる。 ま、ページランク自体、従来いわれたように、Googleの検索結果の上位に表示するための魔法ではないのだけれども。でも、どのコンテンツがどの程度、評価されてるか、一応の目安となり、それなりに興味深い。 Google ツールバーをインストールせずに、Googleのページランクを知りたい場合は、対象となるURLとともに、そのURLのch値といわれるチェックサムが、Googleに問い合わせする際、必要になる。ch値の算出方法については、しばらく謎とされてきたが、 Google PageRank Checksum Calculator で、そのアルゴリズムが公開されてる。 それを応用したいろいろなアプリケーション等も開発されて、 r
YappoLogs: String::Diff - 行内差分取得モジュール
String::Diff - 行内差分取得モジュール 普通のdiffは行単位での差分を取るんですが、一行の中での差分がどうしても取りたくてString::Diff(2008/06/24リンク切れなおしたtokuhirom++)ってのを作りました。 既存のCPANモジュールだとString::ShowDiffが微妙に近かったんですが、目的の事が出来ないので作りました。 出来ることは 文字列同士の差分を作って変更無い場所、変更が合った場所で配列を分けて作成。 my $diff = String::Diff::diff_fully('this is Perl', 'this is Ruby'); for my $line (@{ $diff->[0] }) { print "$line->[0]: '$line->[1]'\n"; } # u: 'this is ' # -: 'Perl' fo
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
Smart::Comments 便利 - spiritlooseのはてなダイアリー
Smart::Comments っていう便利なモジュールがある。 Smart-Comments-1.06 - Comments that do more than just sit there - metacpan.org あんまり有名じゃないのか、検索してもあまり検索結果件数が多くないので紹介してみる。 だいぶ前にこちらのエントリーで知ってからよく使っているモジュール。 上のエントリーですごくよくまとまっているので、普段 warn "hoge:$hoge\n" if $DEBUG;とか書いてるPerl使いの方は一度読んでみることをお勧めする。 基本的にはデバッグメッセージを出力するモジュール。 スクリプト中に ### $hogeと書いておくと STDERR に $hoge の変数の内容が表示される。 スクリプトの実行開始時間を表示したり、ループのプログレスバーを表示させるのも非常に簡単。
CPANTS - CPAN Testing Service
CPANTS is an acronym for CPAN Testing Service. The goals of the CPANTS project are to provide some sort of quality measure (called "Kwalitee") and lots of metadata for all distributions on CPAN. Please take all the information presented here with a grain of salt. The methods used to test the distributions are a bit flakey, and some of the Kwalitee indicators are still subjects of discussions (whic
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Client Challenge
Client Challenge
Client Challenge
今日のCPANモジュール（跡地） 目次
DBIx::Class - search.cpan.org
Client Challenge
Client Challenge
Client Challenge