際際滷

徭失�B初
￠ @emasaka
￠云兆�互�鰌��
￠ 40旗フリ�`タ�`
￠ブログ
仝云を�iむ々http://emasaka.blog65.fc2.com/
￠旗燕恬�Bash on Rails

nagaino恬りました
￠ �}方の玉�sURLを1リクエストで謹粁婢�_する
Web APIサ�`ビス

http://nagaino.herokuapp.com/

Perlのソ�`スフィルタ
￠ソ�`スを�iみ�zんでからパ�`スするまでの�g
に、スクリプトからソ�`スを岷俊いじれる

Filter::SQL
￠ Perlのソ�`ス嶄にインラインでSQL猟を托め
�zむ
￠安匯�[箆恬

どっちかというとAcme
�ネタ狼�モジュ�`ルで
聞われる

Acme::Bleach
￠徭蛍を�iみんでいるソ�`スファイルを��Qえ
て、腎易とタブだけにしてしまう
￠ �でも�g佩できる�

Acme::Brainfuck
￠ Perlのソ�`ス嶄にインラインでBrainf*ckを托
め�zむ

Acme::W
￠ Perlの�R�e徨を課だらけにする
￠ print ★ WWwwWW

Acme::Metification
￠ソ�`ス嶄に＾meta 2, 5￣と��函△修緑个��
2?5佩朕の坪否に崔きかわる
￠峺協��譴没垠屬�襪辰討い襪�o�壅｢
￠＾recursemeta depth => 10, 2, 5￣と��函�
10レベルまで壅｢

Rubyで�階�叟井�
ソ�`スフィルタ

Rubyのソ�`スにパッチ
￠姻顎恢霞.界の鉛看温糸喝韓庄鉛艶喝庄稼岳艶姻稼温鉛()

diff??up?ruby?1.9.2?p290/ruby.c?filter?ruby?1.9.2?p290/ruby.c
????ruby?1.9.2?p290/ruby.c??????2010?12?23?19:49:13.000000000?+0900
+++?filter?ruby?1.9.2?p290/ruby.c???????2011?10?28?21:50:44.452623054?
+0900
@@??1618,7?+1618,16?@@?load_file_internal(VALUE?arg)
????????return?(VALUE)rb_parser_compile_string(parser,?fname,?f,?
line_start);
?????}
?????rb_funcall(f,?set_encoding,?2,?rb_enc_from_encoding(enc),?
rb_str_new_cstr("?"));
?????tree?=?rb_parser_compile_file(parser,?fname,?f,?line_start);
+????{
+???????VALUE?source_filter?=?rb_intern("source_filter");
+???????if?(rb_obj_respond_to(rb_cObject,?source_filter,?1))?{
+???????????VALUE?s1?=?rb_funcall(f,?rb_intern("read"),?0);
+???????????VALUE?s2?=?rb_funcall(rb_mKernel,?source_filter,?1,?s1);
+???????????tree?=?rb_parser_compile_string(parser,?fname,?s2,?
line_start);
+???????}?else?{
+???????????tree?=?rb_parser_compile_file(parser,?fname,?f,?line_start);
+???????}
+????}
?????rb_funcall(f,?set_encoding,?1,?rb_parser_encoding(parser));
?????if?(script?&&?tree?&&?rb_parser_end_seen_p(parser))?{
????????rb_define_global_const("DATA",?f);

坪否
￠ source_filterメソッドが協�xされていれば
￠ファイルの坪否をStringに�iみ�zむ
￠ source_filterに宥す
￠ �Y惚をパ�`ス
￠協�xされていなければいつも宥り

箭1

仝Rubyのメソッド柵び
竃しが＾.￣なのは岷湖に
郡する。
＾->￣に々

フィルタ�arrow.rb�

def?source_filter(str)
??str.gsub(/?>/,?'.')
end

サンプル�arrow_sample.rb�

[3,?5,?7]?>map?{|i|?i?+?2?}?>each?do?|i|
??puts?i?>to_s
end

�g佩

$?ruby??rarrow?arrow_sample.rb
5
7
9
コマンドライン
で岷俊峺協

箭2�さらに
￠＾$￣＾{￣を�o�
￠＾}￣を＾end￣に
￠＾function￣を＾def￣に
￠＾this￣を＾self￣に

フィルタ�arrow2.rb�

??str.gsub(/?>/,?'.').gsub(/}/,?'end').
????gsub(/function/,?'def').
????gsub(/this/,?'self').
????delete('${')
end

サンプル�arrow2_sample.rb�

class?Hoge?{
??function?foo()?{
????puts($this?>class());
????return?$this;
??}
}

Hoge?>new?>foo();

�g佩

$?ruby??rarrow2?arrow2_sample.rb
Hoge

箭3

仝Rubyはrequireとinclude
が詞岱する々

フィルタ�include.rb�

??str.gsub(/^s*#s*includes+<(.[^>]*)>$/,
???????????'require?"1"'?)
end

サンプル�include_sample.rb�

#include?<uri>

u?=?URI.parse("http://example.com:80/hoge?
fuga#foo")
p?u

�g佩

$?ruby??rinclude?include_sample.rb
#<URI::HTTP:0x8463c84?
URL:http://example.com/hoge?fuga#foo>

箭4

＾ennnnnd￣で5レベル
まとめて艶稼糸したい

サンプル�ennd_sample.rb�

module?MyModule
??class?MyClass
????def?my_method
??????10.times?do?|i|
????????if?(i?%?2)?==?0
??????????puts?'even'
????????else
??????????puts?'odd'
????????ennnnnd

MyModule::MyClass.new.my_method

フィルタ�ennd.rb�

??str.gsub(/e(n{2,})d/)?do
????Array.new($1.length,?'end').join(';')
??end
end

�g佩

$?ruby??rennd?ennd_sample.rb
even
odd
even
odd
even
odd
even
odd
even
odd

箭5

＾end￣なしでインデントで
艶稼糸したい

すでにendless rubyが
あるのでパス

箭6

�k��④�
檎顎恢霞を慕く

サンプル�岳温岳艶喝壊温馨沿鉛艶.姻恢�
??e???????????(
??n???????????1
??d??e?????i??.
?????n?????f??.
?????d??p?????2
????????u??(??0
????????t??i??)
????????s?????.
???????????%??e
????????i?????a
???????????2??c
???????????)??h
???????????????
???????????=??d
???????????=??o
???????????????
???????????0??|
??????????????i
??????????????|

フィルタ�tate.rb�

??str.split(/n/).inject([])?{|r,?s|
????s.each_char.with_index?do?|c,?i|
??????r[i]?=?r[i]???r[i]?+?c?:?c
????end
????r
??}.reverse.join("n")
end

�g佩

$?ruby??rtate?tate_sample.rb
2
4
6
8
10
12
14
16
18
20

箭7

スペ�`スとタブで

サンプル�恢鉛艶温界鞄喝壊温馨沿鉛艶.姻恢�

需えません

フィルタ�bleach.rb�

??[str.delete("^?t").
???tr("?t",?'01')?].pack('b*')
end

�g佩

$?ruby??rbleach?bleach_sample.rb
Hello,?World!

箭8

�えないとつまらないので

＾ダァシエリイェス!!￣で

サンプル�kq_sample.rb�
ダァダァダァダァシエリイェス!!シエリイェス!!
シエリイェス!!ダァシエリイェス!!ダァシエリイェス!!ダァ
シエリイェス!!シエリイェス!!シエリイェス!!ダァダァダァ
シエリイェス!!ダァシエリイェス!!シエリイェス!!シエリイェス!!ダァ
シエリイェス!!シエリイェス!!ダァダァシエリイェス!!シエリイェス!!
シエリイェス!!ダァダァダァダァダァ
ダァシエリイェス!!ダァダァシエリイェス!!シエリイェス!!
シエリイェス!!ダァダァシエリイェス!!ダァダァ
ダァダァダァシエリイェス!!ダァダァ
シエリイェス!!ダァシエリイェス!!ダァシエリイェス!!ダァ
ダァシエリイェス!!シエリイェス!!ダァダァダァ
シエリイェス!!シエリイェス!!ダァシエリイェス!!シエリイェス!!ダァ
ダァダァシエリイェス!!シエリイェス!!ダァシエリイェス!!
シエリイェス!!ダァシエリイェス!!シエリイェス!!シエリイェス!!シエリイェス!!
シエリイェス!!シエリイェス!!ダァシエリイェス!!ダァダァ
ダァダァダァダァダァシエリイェス!!
ダァダァシエリイェス!!シエリイェス!!シエリイェス!!ダァ
シエリイェス!!ダァシエリイェス!!ダァシエリイェス!!シエリイェス!!
シエリイェス!!シエリイェス!!ダァシエリイェス!!シエリイェス!!ダァ
ダァシエリイェス!!ダァダァシエリイェス!!シエリイェス!!
シエリイェス!!ダァダァダァシエリイェス!!シエリイェス!!
シエリイェス!!ダァダァシエリイェス!!シエリイェス!!ダァ
シエリイェス!!ダァダァダァダァシエリイェス!!
ダァダァシエリイェス!!シエリイェス!!シエリイェス!!ダァ
ダァシエリイェス!!ダァダァダァシエリイェス!!
ダァシエリイェス!!ダァダァダァダァ

フィルタ�kq.rb�

#??*??coding:?utf?8??*?
??[str.force_encoding(Encoding::UTF_8).
???scan(/ダァ|シエリイェス!!/).
???map?{|s|?s?==?'ダァ'???'0'?:?'1'?}.
???join('')?].pack('b*')
end

�g佩

$?ruby??rkq?kq_sample.rb
Hello,?World!

際際滷

メタメタプログラミング檎顎恢霞

More Related Content

メタメタプログラミング檎顎恢霞