<< 68/89 >>
First Last

perl -p

 perl -pe '$\=$_.$\}{'

perl -p は各行読み込んで $_ に入れてスクリプト実行が終わるたびに print する、というものなのだけど、 perl interpreter は

 "while (<>) {" + <script> + ";}continue{print;}"

相当のコードを作ることでこれを実現している (toke.c)

 while (<>) {$\=$_.$\}{;}continue{print;}