keiyaの日記@PG

#!/usr/bin/perl

use strict;
use warnings;

my $h=-1;
my $maxh=0;
my $w=0;
my @d;
while(my $buf=<STDIN>){
	if($h==-1){
		$maxh=$buf;
	}else{
		chomp $buf;
		my @tmp = split(/\s/,$buf);
		$w=0;
		foreach my $e(@tmp){
			$d[$h][$w] = $e;
			$w++;
		}
	}
	$h++;
}
print &search(0,0,$maxh)."\n";

sub search {
	my ($l,$r);
	if($_[0]+1<$_[2]){
		$l=&search($_[0]+1, $_[1]  , $_[2]);
		$r=&search($_[0]+1, $_[1]+1, $_[2]);
		return $d[$_[0]][$_[1]]+($l>$r?$l:$r);
	}else{
		return $d[$_[0]][$_[1]];
	}
}

2010-06-23

なんかPerlをつかったWikiでいいものがなさそうなので作ってみる

20:50

HTML5対応の（ほとんど）Pure Perl製Wiki

TopPage@KeiSpade
リポジトリ: http://github.com/keiya/KeiSpade-CMS

まだまだ機能は足りないので，協力してくれる人募集中です．

概要

KeiSpade CMSはすべてPerlで書かれた，革命的で魔法のような軽量なCMSです。

データ管理には導入しやすいRDBMSのSQLiteを使用し，安全と高信頼性と手軽さを兼ね備えたアプリケーションです．

バックエンドがデータベースなので，データの集約，検索，加工が手軽に行えます．

HTML5準拠により，あらゆるメディアを集積できます．

機能

CMSとして必須の複数カテゴリ分け機能

RDBMSを活かした高速な検索機能

同じ内容のファイルが重複しないアップローダ

特長

書きやすいはてな記法に準拠

HTML5準拠

Pure Perl目指す感じ

近日追加される機能

内容を形態素解析により解釈し自動でタグをつける機能

TF-IDFとか

HTML5でWikiっぽいCMSつくってる - La Faïence

(注) 今はHTML5のテンプレートとして、http://giraffe.la/think_html5.htmlのスタイルシートを利用させていただいている。rightsの問題があるので、リリースするときに適宜差し替える。

2010-05-04

Text::Hatenaをつかってみる

14:58

はてな記法がつかえるWiki に使おうと思って．

Text::Hatenaを落としてくるだけでは依存が解決されてないので

Parse::RecDescentとRegexp::Assembleが必要です！

使うのはこんなかんじ，

require 'Text/Hatena.pm';                           #useでもいいけどメモリ節約のため
$htmlbody .= Text::Hatena->parse($hatenakihou);

ちなみにくだんのWiki，HTML5を吐いてるので<video>タグとかつかえます

コードが汚いのでリファクタリングしてくれるひと．．