パールのサブルーチンについて

Kei [E-Mail] [HomePage] 1998/04/20(月) 00:03:27
sub main'cgiinit {%main'form = &forminport( @_ );}
の意味がよくわかりません。これが記述してあるのは違うファイルで
本文のほうには cgiinit としか書いてありません。（もちろんrequireでファイル指定はされていますが）
簡単なことなのかもしれないのですが確信が得られないのでだれか
教えてください。

miyasiro 1998/04/20(月) 02:44:39
sub main'cgiinit というのは、requireされたファイルのパッケージ内で定義された関数をKeiさんのスクリプト内（パッケージmain）で普通に&cgiinit();として呼び出せるようにするための書き方です。%main'formもKeiさんのスクリプト内で%formとしてアクセスできるようにするものです。
だから、Keiさんのスクリプトで例えば、
　read( STDIN, $query, $ENV{'CONTENT_LENGTH'} );
　&cgiinit($query);
とかすれば、
　print FH "名前:$form{'NAME'}";
というような感じでフォームから送られてきたデータを処理できるんじゃぁないですか。

Kei [E-Mail] [HomePage] 1998/04/20(月) 12:24:22
[[解決]]
miyasiroさん、どうもありがとうございました。
たぶん、そうだろうなとは思っていたのですが、確信が得られなかったので聞いてみました。これであとは余分な心配をせずに進めることが
できます。

[上に] [前に] [次に]