Perl › 日付・時刻 祝日というのは人間が決めたものなので非常に扱いにくいものです。春分、秋分という前年の2月に決まる祝日や、振替休日などもあります。 今回のサンプルではGoogleがGoogle Calendar Data APIで提供してくれている日本の祝日のデータを取得することにします。 あくまでGoogleが調べた日本の休日のデータなので絶対的な信頼性はありません。Googleが間違っていれば間違った祝日のデータを取得しますので、日付の間違いが損害を及ぼすようなアプリケーションにそのまま使用してはいけません。かならず他の手段で正しいことを確かめるようにします。 use strict; use warnings; # Web上から情報を取得するのでHTTPクライアントを使用する。 use LWP::UserAgent; #フィードがXMLで与えられるのでXML::Simpleで解

RSS を読み込んでランダムな文章を生成する 2008-09-07-3 [Programming][NLP][IIR][WebAPI] 今日のIIR輪講[2008-09-07-2]の内容のフォローも兼ねて、ちょっとしたハックを紹介。 bigram language model に基づく、ランダム文生成を行います。 って、まあ、単純にある単語の次に現れる単語の分布を用いて、文章を生成していくだけですが。 以下、サンプルプログラムと実行例です。 サンプルコード rss-lm.pl #!/usr/bin/perl use strict; use warnings; use XML::RSS; use LWP::Simple; use XML::Simple; use URI::Escape; use utf8; binmode STDOUT, ":utf8"; my $appid = "Yaho

というわけで、現在はてなサマーインターンに参加中です。 インターン期間も半分が過ぎ、いよいよ佳境に入っていくわけでありますが、このエントリで話したいことは、Perlについて。 ご存知のようにはてなではPerlを使ってサービスが実装されていますが、私はこのインターンが決まるまでまったくPerlを触ったことがなく、たまに見かけるPerlのコードを見かけては、$@%など記号が多くてよくわからない言語だと思っていました。一方で、Plaggerなどが代表的なCPANモジュールという他の言語にはない魅力があったので兼ねてから勉強したかった言語でもあります。 んで、インターンが始まってから2週間、毎日というわけではありませんが、Perlに触れてきて、それなりに自分で書きたいものが表現できるようになってきたので、今現在のPerlへの感想について。 前提 私の母国語はJavaで経験は大体3年ぐらい。 作った

http://subtech.g.hatena.ne.jp/miyagawa/20080708/1215473551 絶望した！rubyと比較したときのperlの難解さに絶望した！ #!/usr/bin/perl use strict; # ここはpackage main; BEGIN { # プログラムのはじめにサブルーチンを定義．なくても動いたりする # ()は プロトタイプ． 引数をとらないことを言明してる # Xクラスのコンストラクタ, 実体は$sのリファレンス sub X () { bless \(my $s = "ひだまり"), "X" } # _ == 1 にする sub _ () { 1 } } package X; # ここからXクラスの定義 my $i; # クロージャ変数だけど，スコープはファイルだよ use overload # X オブジェクトの / と < 演算

id:tomi-ru さんが [http://e8y.net/mag/015-encode/:title] というとてもプラクティカルな [http://search.cpan.org/perldoc?Encode:title=Encode] 入門をお書きになったので，わたしも違う切り口で書いてみたくなりました。 いちおうの基礎（読み飛ばし可） 文字セット, キャラクタセット, 文字集合, 文字集合 - Wikipedia エンコーディング, 符号化方式, 文字符号化方式 - Wikipedia この2つは異なります。とくに知らなくても下記の文書を読むことはできますが，理解しているとためになります。くわしく知りたい人は自習してください。 文字セットの例 Unicode JIS X 0208 ひらがなとかカタカナとか漢字とか ASCII 文字 エンコーディングの例 UTF-8 ISO-202

Kansai.pm に参加しました。とても楽しかったです。自分も "Hadoop Streaming で MapReduce" という題目で発表しました。取り急ぎ、資料を以下に公開します。 http://bloghackers.net/~naoya/ppt/080530kansaipm.ppt MapReduce は Google のバックエンドで動いている分散並列バッチ処理システムです。GFS は Google の分散ファイルシステムです。Google ウェアのクローンとしてオープンソースで開発されているのが Hadoop。Hadoop は Yahoo! Inc や Facebook, Amazon.com などでも利用されているとのこと。Hadoop は Java ですが、Hadoop Streaming を使うと　Java 以外でも MapReduce できます。 以下のエントリも合

ディー・エヌ・エー（DeNA）は5月16日、「モバゲータウン」などで利用している、携帯電話向けウェブアプリケーションのフレームワークをオープンソースとして公開した。オープンソースの成果物を配布するサイト「SourceForge.JP」にて公開している。 このフレームワークは「MobaSiF（Moba/Mobile Simple Framework）」と名づけられている。DeNA取締役で、モバゲータウンなどを開発した川崎修平氏が手がけたものだ。 MobaSiFには携帯電話向けサービスで共通に使えるモジュールが組み込まれている。具体的にはNTTドコモ、au、ソフトバンクモバイルの3キャリアに対応した絵文字変換機能や、ユーザーの利用キャリア、利用機種の判別機能がある。テンプレートエンジンも搭載しており、1つのコードで3キャリアに対応したサービスが構築できるという。携帯電話向けのメール配信機能につ

Perl の言語組み込みのリスト操作は関数形式で、push(@array, 1, 2) のような記述になります。一つのリストに対して複数の操作をしたい場合などは、関数呼び出しを複数行にわたって書いていくことになり、少々面倒です。しかし Perl は、Perl のリスト実装である配列のリファレンスに bless してメソッドを定義したクラスを作ることができます。この独自に定義したクラスにプリミティブな操作を加えていって、Ruby のように連続したメソッドの呼び出しによるリスト操作を実現することが可能です。 ここでは List::RubyLike という配列クラスを作成します。まずは手始めに配列に bless して、size() メソッドが呼び出せるようにします。以下のようになります。 package List::RubyLike; use strict; use warnings; sub