作者: INABA HITOSHI
日時: 2010/2/21(20:54)
藤岡さん、こんばんは

>> "$filename.e" に @ARGV を渡して実行できれば他の書き方でも
>> よいのですが。
>>
> 　いろいろと難しいことがありそうでよくわかりませんけど、次のようなevalを
> 使う方法は検討されたでしょうか。
>
> -----^
> #!/Perl5.10/bin/perl
> while(){
> $script .= $_;# スクリプト全体を読み込んで適当に処理する
> }
> eval $script;# スクリプトを実行する
> __DATA__
> print <> Content-type: text/html; charset=Shift_JIS
> 惑星ソ\ラリスに今日、十\月十\日に着陸した。ハローワールド!
> 惑星ソラリスに今日、十月十日に着陸した。ハローワールド!
> END
> -----$

検討はしてみて、試してみたりもしたのですが...
 
1. Sjis.pm とエスケープされて実行されるスクリプトの名前空間を分離したい
2. エスケープされて実行されるスクリプトの BEGIN, END, exit, die などが
  いつ、何が実行されるのかを分かりやすくしたい
3. exit を使ってスクリプトを実行しているプロセスに終了コードを返したい
 
上記のうち 1. は Safe モジュールで解決できそうな問題です。でも依存する
モジュールが増えるのが不安なので...。

稲葉 準
  		 	   		  
_________________________________________________________________
【節約！】インターネット代を見直そう！
http://campaign.live.jp/eaccess/Top/