Changeset 23798 for docs/tokuhirom

Timestamp:

11/15/08 20:57:12 (8 weeks ago)

Author:

tokuhirom

Message:

added slides

Location:

docs/tokuhirom/20081115-llonsen-lt

Files:

• . (copied) (copied from docs/tokuhirom/20080917-memcachedcon)
• main.txt (modified) (1 diff)

docs/tokuhirom/20081115-llonsen-lt/main.txt

@@ -1 @@
-memcachedに最適な言語はなにか
+PerlがもっともLightweightな件
 <div style="text-align: right">
-2008-09-17(Wed) Memcachedの未来サミット
+2008-11-14(Sat) LL温泉のLT
 tokuhirom
 </div>
 ----
-memcachedは速い
-libmemcachedは速い
+Lightweight?
 ----
-アプリケーションは?
+軽量言語とは
+脳にかける負担がすくないこと
 ----
-推測するな
-計測せよ
+Perl がもっともいい
 ----
-Benchmarking
+Perl はプログラマの柔軟性を活かそうとしている
 ----
-incr 10000 times.
+WHY?
 ----
-<img src="assets/img/benchmark.png" width="600" />
-1.2x faster
+たとえば
 ----
-結論: <B>memcached</B> をつかうときは <B>Python</B> をつかう
+たくさんのメソッドをつくりたい
 ----
-That's all
+コピペしたいなあ……
+----
+そこで
+----
+Module::Compile::TT
+----
+>||
+sub foo {
+    my $self = shift;
+    $self->{foo} = shift if @_;
+    $self->{foo};
+}
+sub bar {
+    my $self = shift;
+    $self->{bar} = shift if @_;
+    $self->{bar};
+}
+||<
+----
+>||
+use tt ( fields => [qw/foo bar/] );
+[% FOREACH fields IN fields %]
+sub [% field %] {
+    my $self = shift;
+    $self−>{'[% field %]'} = shift if @_;
+    $self−>{'[% field %]'};
+}
+[% END %]
+no tt;
+||<
+----
+ソースコードフィルタ
+----
+すばらしいですね
+----
+たとえば
+----
+>||
+sub get {
+    my ($self, $key) = @_;
+    $self->{$key};
+}
+||<
+----
+use Method::Signatures;
+----
+>||
+method get($key) {
+    $self->{$key};
+}
+||<
+----
+Perl に実行時に動的に
+パッチをあてている!
+----
+すばらしいですね
+----
+たとえば
+----
+Switch 文をかきたいケド
+Perl には Switch がない
+----
+if 文いっぱいかくのめんどい
+----
+use Switch;
+----
+>||
+switch ($val) {
+    case 1     { print "number 1" }
+    case "a"   { print "string a" }
+    case /\w+/ { print "pattern" }
+}
+||<
+----
+ソースコードフィルタって
+すばらしいですね
+----
+SQL を楽に書きたい
+----
+>||
+for my $row (SELECT * FROM t;) {
+    print "v: $row[0]\n";
+}
+||<
+----
+実にすばらしいですね!!!
+----
+まとめ
+----
+Perl の柔軟性は神!