[kansaipm] self.pl

yamamiya takasi propella at yahoo.co.jp
Mon Apr 23 02:34:09 CDT 2001


山宮です。

『Perlクイズ』の回答非常に面白かったです。
http://backno.mag2.com/reader/BackBody?id=200002082310000000015670000

なるほど、q()を使うのがコツだったのですね。
答えを見てからじゃズルイですが、このパターンでいくつか考えました。

その1
print qq(print qq($1) if q($1)=~m((.*))) if q(print qq($1) if
q($1)=~m((.*)))=~m((.*))

その2
sub{print"@_->(q(@_))"}->(q(sub{print"@_->(q(@_))"}))

なんか q() を使った方法で、自己言及的なスクリプトを自動生成
するスクリプトを作れるような気がしますが、少し考えたけどやっぱり
難しくて出来ませんでした。


__________________________________________________
Do You Yahoo!?
インスタントメッセージを送ろう! Yahoo!メッセンジャー
http://messenger.yahoo.co.jp/




More information about the Kansai-pm mailing list