3643 '_compile_all' => <<'END_OF_FUNC',
3644 sub _compile_all {
3645 foreach (@_) {
3646 next if defined(&$_);
3647 $AUTOLOAD = "CGI::$_";
3648 _compile();
3649 }
3650 }
3651 END_OF_FUNC
3652
3653);
3654 END_OF_AUTOLOAD
3655 ;
ここでEND_OF_FUNC
とEND_OF_AUTOLOAD
はどのように機能しますか?CGI.pmの中で、END_OF_FUNCのようなものはどのように機能しますか?
ここで ';'、なぜ '、'が使われますか? – Learning
学習:<<の後の行から終わりのマークまでのすべてが、<<がある文字列だったのと同じですが、補間された文字列の後にあるものとして最初の行に他のものを含めることができます。同じ行に<<を複数持つこともできます。 – ysth
'print << TAG、" foo ";'と 'print << TAG;'を比較してください。または 'print << TAG x 2;' – ysth