恐れ入ります。 Perlで、フォームから送信して、変数に代入したいのですがうまくいきません。 print qq! !; opendir(DIRHANDLE, "./xxx"); foreach(readdir(DIRHANDLE)){ next if /^\.{1,2}$/; print qq! とし、ディレクトリ内のフォルダ名をnameに格納してxxx.cgiへ送信します。 xxx.cgi側では、 #!/usr/bin/perl use cgi; $form = CGI->new; として、送信されたデータを次々と代入したいのですが、どのようにしたらよいでしょうか。

perl 変数　代入

解決済

質問者：spider32
質問日時：2013/05/10 19:10
回答数：1件

恐れ入ります。
Perlで、フォームから送信して、変数に代入したいのですがうまくいきません。

print qq!<form action="./xxx.cgi" method="get">!;

opendir(DIRHANDLE, "./xxx");
foreach(readdir(DIRHANDLE)){
next if /^\.{1,2}$/;

print qq!
<input type="checkbox" name="$_" value="$_">
<input type="submit" value="送信"></form>

とし、ディレクトリ内のフォルダ名をnameに格納してxxx.cgiへ送信します。

xxx.cgi側では、

#!/usr/bin/perl

use cgi;
$form = CGI->new;

として、送信されたデータを次々と代入したいのですが、どのようにしたらよいでしょうか。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： hirotn
回答日時：2013/05/10 23:33

まず、チェックボックスのnameは固定にします。

HTMLを吐き出すcgiにに記載するフォーム側は、

<input type="checkbox" name="flist" value="$_">$_ <br>

xxx.cgiは、

$form = new CGI;
@list = $form->param("flist");

でvalueを取得できます。これで解決出来ませんか？

あと、気になったのですが、readdirしてるので、この場合ファイルもチェックボックスに出てしまいますよね？

参考URL：http://www.futomi.com/lecture/form/cgi-pm.html#s …