Xcode4に上げた状態でppcサポートが入ってるCPANモジュールを入れる方法
訂正
ログ見直したところ、YAML::Syckは該当してませんでした。早とちりしてたようです。あと、環境設定とバージョンによっては記述が含まれてないようで（設定弄って入れなおしてみたら含まれてなかった）、実際にこけたら対処するのがいいのかも。
-arch ppc
が入っているモジュールの場合、Xcode3からXcode4に上げた時点でppcサポートがなくなるため、testの段階でこけるようになる。
Makefileに修正いれればこけなくなるけど、毎回ppcサポート入ってるモジュールにそれをするのも面倒な場合は、Xcode3を別ディレクトリに入れる。その際にSDK関係のファイルは入れなくても問題ない。
MacBookAirを使ってAriakeWalkerの設定を行う方法
Windowsでのやりかたはあちこちに溢れてるんだけど、わりとmacでのやり方が見つからなかったので、今後の備忘録も兼ねてメモしておく。転送先デバイスはGalaxy Tab SC-01C。
作業自体はTerminalにて。予めhomebrewを入れておく。
コミケカタログCD内のデータを編集するのに必要なコマンドを入れる。
brew install nkf brew install sqlite
- CCATALOG79.DB
- C079CUTH.CCZ
- C079CUTH.CCZ
を適当な場所に置いて、
sqlite3 CCATALOG78.DB .dump | nkf -Es -Sw -Lu | sqlite3 CCATALOG78_3_u.DB mv C079CUTH.CCZ C079CUTH.zip mv C079CUTL.CCZ C079CUTL.zip mkdir H L unzip C079CUTH.zip -d H unzip C079CUTL.zip -d L
あとはSDカード直下に、AriakeWalker\C78\とディレクトリを作って、その中に
- CCATALOG78_3_u.DB
- H
- L
を投下。ファイルに転送にはsmbよりもBluetoothを使うほうが、手間掛からないかもしれない。
Yacafiの動作を読み解く3
http://d.hatena.ne.jp/hao_yayoi/20100827/1282843571:titlle=Yacafiの動作を読み解く2より引き続き
86 〜 95行目
86 $yacafi =~ s/### NO PACK\n.+?### NO PACK END\n//sg; 87 $yacafi =~ s/\n__END__\n.+$//s; 88 $yacafi =~ s/'\.\$CURRENT_CLASS\.'/$CURRENT_CLASS/g; 89 $yacafi =~ s/\$CURRENT_CLASS/$CURRENT_CLASS/g; 90 91 my $global = ''; 92 for my $code ( $yacafi =~ /### GLOBAL\n(.+?)### GLOBAL END\n/sg ) { 93 $global .= $code; 94 } 95 $yacafi =~ s/### GLOBAL\n(.+?)### GLOBAL END\n//sg;
引き続きYacafi.pmのソースコードを置換する処理。Yacafi.pmの中身の殆どがメタプログラミングのためのものというのがよくわかる。
97 〜 104 行目
97 my $cgi = _read_file( ( caller(1) )[1] ); 98 $cgi =~ s/use (?:Yacafi|strict|warnings).*?;\n//sg; 99 $cgi =~ s/\$Yacafi::/\$/g; 100 101 my $shebang; 102 if ( $cgi =~ s/(\#\![^\n]+)//s ) { 103 $shebang = $1; 104 }
今度は、use Yacafiで実際に書いていたソースコードを対象にした置換作業。98行目でuseしてた行を消し、99行目でYacafiのグローバル変数名から名前空間部分を消す。102行目にてシェバン（UNIXのスクリプトの#!から始まる1行目）があればそれを変数に保持。
次はtemplate_builderなんだけど、多分これが一番手が込んでる感じなので、とりあえずここまで。
Yacafiの動作を読み解く 2
Yacafiの動作を読みとく より引き続く。
79 〜 95行目
_pack
79 my $yacafi = _read_file( $INC{'Yacafi.pm'} );
_read_fileについては、143〜147に実装が書かれてる。
143 sub _read_file { 144 my $file = shift; 145 open my $fh, '<', $file or die $file . ': ' . $!; 146 do { local $/; <$fh> }; 147 }
%INCには、読み込まれたファイル名とフルパスがkeyとvalueの組み合わせでつっこまれてる。Yacafi.pmのファイルパスを持ってきて、Yacafi.pmの中身を丸ごと取得する。$/はslurping（丸呑み）なモードのこと。79行目の$yacafiには、Yacafi.pm内のソースコードが丸々収まっていることになる。
次に、Yacafiのソースコードから EXTEND 〜 EXTEND .. END の部分を対象にして正規表現のmatchを行う。
81 # extends 82 $yacafi =~ s!### EXTEND (\w+)\n(.+?)### EXTEND \1 END\n! 83 $args{extends}->{$1} ? $2 : '' 84 !esg;
実態は、
$yacafi =~ s!〜!〜!esg;
84行目のesgは、
- e:式の右側の評価を行なう
- s:ワイルドカードのドット( . )が改行にもマッチするようにする
- g:繰り返し置換
特にYacafi.pmを弄っていない場合、importで呼び出された時に渡されるハッシュのextendsがtemplateをkeyの一つとして保有していれば、2番目にマッチした値が 382 〜 607行目の ###EXTEND 〜 ### EXTEND template END と置き換わる。
一見して分かりにくいこと間違いないけれど、
$yacafi =~ /### EXTEND (\w+)\n(.+?)### EXTEND \1 END\n/; $yacafi = $args{extends}->{$1} ? $2 : '';
と同義。
とりあえずここまで。82〜84行目の把握にかなり時間食った気がする。
Yacafiの動作を読み解く
軽量フレームワークの話題が殆ど上がらなくなった感もあり、とってつけたような記事に思われない丁度いいタイミングかなーとか思ったのでやってみることにした。
wget http://svn.coderepos.org/share/lang/perl/Yacafi/trunk/lib/Yacafi.pm
以前Yacafiを使った掲示板を書いてた事があったけど、当時は細かい挙動とか全然分かってなかったから、方々からのコピペで更に理解不可能になり気味だった。理解を正確に行って、使えるような代物にするのが目的。
42 〜 75行目
- import
45 my $caller = caller; 46 $CURRENT_CLASS = $args{current_class} || $caller;
引数にcurrent_classをkeyとした値を渡すと、それが基本classとして扱われる。そうでなければmainが基本classになる。
実際に書くとすると、
use Yacafi current_class => 'hogehoge';
という具合。
- pre config
49 if ( exists $args{extends} 50 && exists $args{extends}->{template} 51 && ref( $args{extends}->{template}->{params} ) eq 'HASH' ) 52 { 53 while ( my ( $key, $val ) 54 = each %{ $args{extends}->{template}->{params} } ) 55 { 56 $TEMPLATE_PARAMS->{$key} = $val; 57 } 58 }
指定のハッシュが渡されていれば、templateのパラメータを指定。
実際に書くと、
use Yacafi current_class => 'hogehoge', extends => { template => { params => { tag_start => '<tmt', tag_end => 'tmt>', }, }, };
こんな具合。params内の指定は24〜35行目のkey。
60 〜 61行目
pack
60 # create a pack file$ 61 _pack(%args) if @ARGV && $ARGV[0] eq '--pack';$
perl hogehoge.cgi --pack > hogehoge.cgi
な感じで、Yacafi.pm + index.cgiなファイルを作るコマンドのための行。_pack自体は77〜141行に。
63 〜 72行目
function export
63 # functions export 64 no strict 'refs'; 65 for my $name (qw/ dispatch query controller model view redirect filter / ) 66 { 67 *{ $caller . '::' . $name } = \&{$name}; 68 } 69 if ( exists $args{extends} && exists $args{extends}->{template} ) { 70 *{ $caller . '::view_template' } = \&view_template_nocompile; 71 } 72
呼び出し元のスクリプトへ、メソッドを定義する。
- dispatch
- query
- controller
- model
- view
- redirect
- filter
が使えるという具合に。
なお、
use Yacafi extends => { template => { params => .... } };
のようにtemplateを定義しておくと、view_templateメソッドで 407 〜 414行目のview_template_no_compileが呼び出されるようになる。
次は_pack辺りでも触る。
moxyがエラーで転けてた
最新のmoxyを実行すると転けるのでソース辿ってみたら、最後のcommitが原因だった。
diff --git a/lib/Moxy.pm b/lib/Moxy.pm index e788ffa..adc1fb6 100644 --- a/lib/Moxy.pm +++ b/lib/Moxy.pm @@ -276,6 +276,7 @@ sub _make_response { (my $url = $req->uri->path_query) =~ s!^/!!; - $url = uf_uristr($url); + $url = uf_uristr( uri_unescape $url); if ($url) { # do proxy my $res = $self->_do_request(
URIはuri_escapeされた文字列を使うと、正規表現に当てはまらずURIオブジェクトがうまく作成されないらしい。
今回の$req->uri->path_queryに含まれるurlはuri_escapeされていたため、escapeされた文字列をベースにuf_uristrが実行されてescape状態でのURLとなり、結果正規表現から外れたためにURIオブジェクトがうまく作成されず、hostが取得できていなかったためエラーとなっていた模様。
WassrにiTunesで再生してるタイトルを送信する
AppleScriptで何気なしに書いてみた。再生が始まったとたんに送信する形のほうが楽な気もするけど、それも微妙だとおもったので手動に。
リファレンスの類いがあまり落ちてないから複雑なのは書きづらいけど、ちょっとしたやつなら割と書きやすい感じ。Macでしか動かないから応用しようがないのも事実。
