2006-06-16

はてなグループにおけるスーパーpre記法の拡張について

http://hatena.g.hatena.ne.jp/hatenagroup/20060616/1150453529

どうぞご利用下さい。

figlet

http://www.figlet.org/

plugins:
  - module: Subscription::Config
    config:
      feed:
        - url: http://feeds.feedburner.jp/strawberry

  - module: Publish::Pipe
    config:
      command: /usr/bin/figlet

_     _   _             ______               _        __               _
| |__ | |_| |_ _ __ _   / / / _| ___  ___  __| |___   / _| ___  ___  __| |
| '_ \| __| __| '_ (_) / / / |_ / _ \/ _ \/ _` / __| | |_ / _ \/ _ \/ _` |
| | | | |_| |_| |_) | / / /|  _|  __/  __/ (_| \__ \_|  _|  __/  __/ (_| |
|_| |_|\__|\__| .__(_)_/_/ |_|  \___|\___|\__,_|___(_)_|  \___|\___|\__,_|
              |_|
 _                                 _         __   _                      _
| |__  _   _ _ __ _ __   ___ _ __ (_)_ __   / /__| |_ _ __ __ ___      _| |__
| '_ \| | | | '__| '_ \ / _ \ '__|| | '_ \ / / __| __| '__/ _` \ \ /\ / / '_ \
| |_) | |_| | |  | | | |  __/ | _ | | |_) / /\__ \ |_| | | (_| |\ V  V /| |_) |
|_.__/ \__,_|_|  |_| |_|\___|_|(_)/ | .__/_/ |___/\__|_|  \__,_| \_/\_/ |_.__/
                                |__/|_|
                     ___                 _  ___   ___ _____
  ___ _ __ _ __ _   |__ \_ __ ___  _____/ |/ _ \ / _ \___ /
 / _ \ '__| '__| | | |/ / '_ ` _ \|_____| | | | | (_) ||_ \
|  __/ |  | |  | |_| |_|| | | | | |_____| | |_| |\__, |__) |
 \___|_|  |_|   \__, (_)|_| |_| |_|     |_|\___/   /_/____/
                |___/

夢を見た

夢の中で、「あ、プレゼンが下手な人ですよね！」ってみんなに云われた。そうだとおもう。

ライブドア構築ノウハウ大公開

各所から参考になるとの声が！perl だったり apache だったりするひとは読んだ方がいいですよ！ボクは ruby で lighty だからまだ読んでないけど[あとで読む]

英語 blog が周りで流行ってる

局所的にというか一人だけど。一年ぐらい前に _why に RedHanded で書かない？つわれて英語書けないしぺちぺらまーだから無理だよ、つって断ったんだけど引き受けていたら今頃は結局書いてなかったと思います!!!

そういえば子供が言う「みんなが」とかいうみんなは一人だったりほんの数人だったりすることがあったりするんだよな俺も使ってた。

パイプを使う regexp は32倍遅い！！！

http://qootas.org/blog/archives/2006/06/perl_regex_perf.html

さぁやってみよう！

#!/usr/bin/perl
use strict;
use warnings;

use Benchmark;

my $text = ';lsghikjdf;klvckxv;zijxcv;oa;vlkaefiuqewizlkvnzlxkcnv'
. '.z,xmc v/z.x,cmv.z,xnvlafda isjdnfl aksjdfauerfaie'
. 'jnlfakjdsn;akj;v akjdfvoaijdhfvoiaheriufahpsdiufhaeuhr'
. ' iuahriufhairuhfapsidfalksjfhaiuphrofiankfjas;dofha[s9'
. 'hfskjdf;ase;f,sedhfaiuwhefs,dnvflk dfis fapoisf fqjr';

my $count = 500_000;

timethese($count, {
        '00_pipe' => sub { $text =~ m/abc|def|ghi/ },
        '01_nopipe' => sub { $text =~ m/abc/ or $text =~ m/def/ or $text =~ m/ghi/ },
});

実行

:!perl regexp_bench.pl
Benchmark: timing 500000 iterations of 00_pipe, 01_nopipe...
   00_pipe: -1 wallclock secs ( 0.44 usr +  0.00 sys =  0.44 CPU) @ 1136363.64/s (n=500000)
 01_nopipe:  0 wallclock secs ( 0.80 usr +  0.00 sys =  0.80 CPU) @ 625000.00/s (n=500000)

パイプを使ったときの方が2倍弱速いよ！！！

時と場合で使い分けましょう、って事ですね。パイプを使わない時の方が最大32倍ぐらいパフォーマンスが上がる場合もあるよ、と。

あわせて読みたい: d:id:fbis:20060615:1150333992

A Day in the Life