2014-09-29 単純に。。。 Perl module に出会ったら $flag=1; $flag=1の間 テキストの内容をファイルに出力 endmoduleに出会ったらそのループぬけると同時にflag=0にする。 その続きからまたmoduleを探し、 moduleに出会ったら $flag=1; 。。。と繰り返す。 どうよ。