keynoteのファイルからノートだけを取り出す

keynoteのファイルの中身の（コントロール＋クリックで「パッケージの内容を表示」を選択でフォルダが開く）「presentation.apxl」というファイルがが、HTMLやlatexの親戚のようなフォーマットになっている。CDATAというタグもどきの中身を適当なスクリプトでピックアップしてやればいい。たとえばこんな感じ。

#!/usr/bin/perl
$flag=0;
while(<>){
	$line=$_;
	if($flag==0 && $line =~ /\<\!\[CDATA\[/){
		$flag=1;print $line;
	}elsif($line =~ /\]\]>/){
		print $line;$flag=0;
	}elsif($flag==1){
		print $line;
	}
}

追記：この記載一部間違いid:siela:20040102参照