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);
DBIx::Class - search.cpan.org
mst: Matt S Trout (project founder - original idea, architecture and implementation) castaway: Jess Robinson (lions share of the reference documentation and manuals) abraxxa: Alexander Hartmaier acca: Alexander Kuznetsov acme: Leon Brocard aherzog: Adam Herzog Alexander Keusch alexrj: Alessandro Ranellucci alnewkirk: Al Newkirk Altreus: Alastair McGowan-Douglas amiri: Amiri Barksdale amoore: Andre
JSON::Syck - JSON is YAML (but consider using JSON::XS instead!) - metacpan.org
NAME JSON::Syck - JSON is YAML (but consider using JSON::XS instead!) SYNOPSIS use JSON::Syck; # no exports by default my $data = JSON::Syck::Load($json); my $json = JSON::Syck::Dump($data); # $file can be an IO object, or a filename my $data = JSON::Syck::LoadFile($file); JSON::Syck::DumpFile($file, $data); # Dump into a pre-existing buffer my $json; JSON::Syck::DumpInto(\$json, $data); DESCRIPTI
WebService::YouTube::Util - Utility for WebService::YouTube - metacpan.org
NAME WebService::YouTube::Util - Utility for WebService::YouTube VERSION This document describes WebService::YouTube::Util version 1.0.3 SYNOPSIS use WebService::YouTube::Util; # Get an URI of RSS my $uri = WebService::YouTube::Util->rss_uri( 'global', 'recently_added' ); # Get an URI of REST API my $uri = WebService::YouTube::Util->rest_uri( $dev_id, 'youtube.videos.list_by_tag', { tag => 'monkey
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
otsune's FreeBSD memo :: ユーザー領域にCPANをインストールする方法
FreeBSD Tips and Memo (Jail, ports, etc.) http://www.otsune.com/bsd/ ユーザー領域にCPANをインストールする方法 Last updated $Date: 2011/03/22 06:19:28 $ 追記 いまは local::lib (devel/p5-local-lib) を使えば下記の設定と同じ事が出来ます。そのモジュールを使う事を強くお勧めします。 追記2 さらに今時は cpanm (devel/p5-App-cpanminus) をインストールしても同様のことが出来ます。 最近は local::lib を直接つかわないでもいきていけるという話 - TokuLog 改メ tokuhirom’s blog CPANとは？ CPANはComprehensive Perl Archive Networkの略で、Perlの
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 の変数の内容が表示される。 スクリプトの実行開始時間を表示したり、ループのプログレスバーを表示させるのも非常に簡単。
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
HTML-ExtractContent-0.12 - An HTML content extractor with scoring heuristics - metacpan.org
XML::Atom::Feed
XML::RAI
今日のCPANモジュール（跡地） 目次
Image::Thumbnail - Simple thumbnails with various Perl libraries - metacpan.org