Gosuke Miyashita about feed

YapcAsia2007

23 April 2007

[[PageOutline(2, 目次, inline)]]

Mark Json Dominus - Higher-order parsing techniques

プレゼン資料

Higher-Order Perl という本で有名な人。通称 mjd.
日本の Perl ギークは「マジデ」と呼ぶ。（こともある。）

プレゼンの内容は Higher-Order Perl にも書かれてるみたい。

高階関数やクロージャを使うと、構文解析プログラムがこんなにすっきり書けるよ！というお話。

このプレゼン自体では、高階関数やクロージャの説明がなかった。ので簡単に説明すると、クロージャとは、Perl で書くとこんな感じ。（言葉の定義は Wikipedia とか参照。たぶん、言葉の定義だけ見てもよくわからないと思う。） 

#!perl
#!/usr/bin/perl

use strict;
use wanings;

sub calc {
    my $op = shift;
    return sub {
        my ( $a, $b ) = @_;
        return eval "$a $op $b";
    };
    # このリターンされている無名サブルーチンがクロージャ。
    # サブルーチンの外で定義されている $op を内部で参照している
    # ことに注目。この様に外部で定義された変数を内部に閉じ込める
    # ので「クロージャ（Closure, 閉包）」と呼ばれる。
}

my $plus = calc('+');
print $plus->(3, 2); # 結果は 5

my $minus = calc('-');
print $minus->(3, 2); # 結果は 1

こんな感じで、加算する関数と減算する関数を、ひとつの関数定義から生成できる、という感じで、クロージャを使うと似たような関数の生成が楽になる。（クロージャの用法はこれ以外にもあるけど。）

また高階関数とは、「関数を引数にとる関数」のこと。例えばこんな感じ。 

#!perl
#!/usr/bin/perl

use strict;
use warnings;

sub calc {
    my $op = shift;
    return sub {
        my ( $a, $b ) = @_;
        return eval "$a $op $b";
    };
}

my $plus  = calc('+');
my $minus = calc('-');

# ここまではクロージャの例と一緒

# 複数の関数の結果を掛け合わせる関数
# これが高階関数
# 引数だけでなく、結果も関数となっている（クロージャ）
sub multiply {
    my @funcs = @_;
    return sub {
        my ( $a, $b ) = @_;
        my $result = 1;
        for ( @funcs ) {
            $result *= $_->($a, $b);
        }
        return $result;
    };
}

# 加算関数と減算関数を掛け合わせる関数を multiply で生成し、
# 引数に 5 と 3 を与える
multiply($plus, $minus)->(5, 3); # ( 5 + 3 ) * ( 5 - 3 ) が実行され結果は 16

高階関数とかクロージャとか知らない人は、これだけでお腹いっぱいになる気がする。

クロージャとか高階関数って、どんなものかは知っていても、使うことがあまりなかったり、どう使うのかがよく分からなかったりするが、このプレゼンでの構文解析プログラムがその回答のひとつ。

あとは細かい Perl コードの話になるので省略。クロージャ使って似たようなパーサコードの生成を簡略化し、連続した関数の実行を if + && でやっているところを、高階関数をつかうことによってまとめてすっきりさせる、というのがだいたいの流れ。

あと、「バックトラッキングも重要だけど、詳しくは本を読んで」とのこと。

Ingy からの「Wiki パーサにも応用できるか」との質問に「できる」と回答してた。自分も Trac の Wiki 記法パーサモジュールを CPAN にあげてるので、参考になりそう。特に、リストのパースは自分で書いた処理がいけてなくて、時々動きがおかしかったりするのだけど、 これを参考にすれば いい感じで書けそうだ。というわけで、Higher-Order Perl 買う。

Naoya Ito - Perl and UNIX Network Programming

プレゼン資料(PPT)

Perl の「今風な」ネットワークプログラミングに関するお話。

Perl による UNIX ネットワークプログラミングの基礎

ブロッキング

並列処理

I/O 多重化

select

select(2)/poll(2) よりもモダンな API

epoll(4)

epoll on perl

今風の Perl ネットワークプログラミングライブラリ

POE

Event::Lib

Danga::Socket

まとめ

Ben Trott - How we build Vox

発表資料

APIs: Tools

APIs: Open Media Profile

APIs: Outboud

Ajax

Data::ObjectDriver

Data::ObjectDriver: Caching

Data::ObjectDriver: Partitioning 

#!perl
Data::ObjectDriver::Driver::Cache::Cache->new(
    cache => Cache::Memcached->new({ servers => [ ... ] }),
    fallback => Data::ObjectDriver::Driver::SimplePartiotion->new(
        using => 'Recipe',
    ),
);

JobQueueing

Template Toolkit

Perlbal

http://code.sixapart.com/

Tomohiro Ikebe - Inside livedoor 2006 - 2007

Softwares

WEB+DB PRESS とかまるごと Perl とか見れば詳しく載ってる。

CVS から Subversion へ

Sledge

Sledge 2.0

他の言語

Apache module

mod_livedoor_page.so

ClearSilver vs. Template Toolkit

Catalyst

Madeleine CMS

クローラ

Next Stage

Coming Soon