このようなチェックボックスを作ってＡＢＣこのようなPerlの記述をして use CGI; $q = new CGI; @q1 = $q->param('q1'); このようなCGIの値の書き出し部分はどうしたらいいですか？ print " ●●{'q2'} \n"; 上記の @q1 = $q->param('q1'); に、チェックされた値が格納されているんですよね。その値を表示させたいと思っています。いろいろ教えてもらって、ここまでたどり着きました。

配列になっているので、他の方の回答のように一般的にはループさせて内容を書き出します。まぁ、一箇所に繋げてABCとかそのまんま書き出すだけでいいなら print " @q1 \n"; でも書き出してくれるけど。せめて（A,B,C みたいに）カンマで区切るとかしたほうが見易いかも。 $q1_str = join ',',@q1; print " $q1_str \n";

foreach my $value (@q1){ print " $value \n"; } 省略できるところを省略すると、 foreach (@q1){ print qq| $_ \n|; } forを使った書き方をしてみると、 for($i=0; $#q1>=$i; $i++){ print qq| $q1[$i] \n|; }

@×× = $q->param('**'); の書き出しについて

解決済

質問者：kajita
質問日時：2005/03/08 12:52
回答数：4件

このようなチェックボックスを作って
<INPUT type="checkbox" name="q1" value="Ａ">Ａ<br>
<INPUT type="checkbox" name="q1" value="Ｂ">Ｂ<br>
<INPUT type="checkbox" name="q1" value="Ｃ">Ｃ<br>

このようなPerlの記述をして
use CGI;
$q = new CGI;
@q1 = $q->param('q1');

このようなCGIの値の書き出し部分はどうしたらいいですか？
print "<td width=300><font size=2>●●{'q2'}</font></td>\n";

上記の
@q1 = $q->param('q1');
に、チェックされた値が格納されているんですよね。
その値を表示させたいと思っています。
いろいろ教えてもらって、ここまでたどり着きました。

通報する

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

質問の本文を隠す

回答 (4件)

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

No.4ベストアンサー

回答者： hikomin
回答日時：2005/03/08 20:25

#3さんの『お礼』にあるコードですが、間違っているところだけ書いておきます。

原因はCGI.pmと独自の入力処理が、それぞれデータをとり合っていることです。このコード上では、独自の入力処理の部分がSTDINを読み込んでしまうので、CGI.pmからは何も読む事は出来ません。

入力処理には、CGI.pmか独自入力処理の『いずれか』を用いてください。全て書いても使えるのは一つだけです。質問内容から考えられるお勧めは、CGI.pmを利用する事です。（オーバースペックですが、ひとまずそう言うことは考えない方針で。）

コードを見る限り、恐らく『データでコード処理』の部分を全て削除すれば大丈夫だと思います。

- 0
- 件

通報する

この回答へのお礼

hikominさんのおっしゃる通りにしましたら、上手くいきました！！今、ものすごく興奮しています。この作業を始めてから２週間、毎日本を探しに行ったり、人に聞いたり、こちらでお世話になったりと・・・。PerlもCGIも初心者の私には荷が重い作業でしたが、こうやって達成できるとなんとも言えない充実感があります。お陰で期日までに間に合いそうです。それもこれも、今までアドバイスをしてくださった皆さんのお陰で、この場をかりて感謝の気持ちを述べさせていただきます。本当にありがとうございました。

通報する

お礼日時：2005/03/09 10:04

No.3

回答者： steel_gray
回答日時：2005/03/08 17:54

配列になっているので、他の方の回答のように一般的にはループさせて内容を書き出します。

まぁ、一箇所に繋げてABCとかそのまんま書き出すだけでいいなら
print "<td width=300><font size=2>@q1</font></td>\n";
でも書き出してくれるけど。

せめて（A,B,C みたいに）カンマで区切るとかしたほうが見易いかも。
$q1_str = join ',',@q1;
print "<td width=300><font size=2>$q1_str</font></td>\n";

- 0
- 件

通報する

この回答へのお礼

本にもそういう風に書いてありましたが上手くいきません。以下は他人の見本を私が改造して作りましたが何かおかしいですか？余計な記述、意味不明記述もなあるかもしれません
#!/usr/local/bin/perl

# 日本語コード
require 'jcode.pl';

# データデコード処理
if ($ENV{'REQUEST_METHOD'} eq 'POST')
{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
　　@pairs = split(/&/, $buffer);
}
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
}

# 配列
use CGI qw(:standard);
@q1=param("q1");
$q1_str = join ',',@q1;

# 確認の画面

print "Content-type: text/html\n\n";
print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=shift_jis\">\n\n";
print "<html>\n <head>\n";
print " <title>テスト</title>\n";
print " </head>\n <body>\n";
print " <form method=post action=\"aaa.cgi\">\n";
print " <table border=1 cellspacing=2>\n";
print " <tr>\n";
print " <td width=100><font size=2>質問1</font></td>\n";
print "　　　<td width=300><font size=2>$q1_str</font> </td>\n";
print " </tr>\n";
print " </table>\n";
print " </center>\n";
print "<input type=\"submit\" value=\"送信\"><input type=\"button\" value=\"戻る\" onClick=\"history.back()\"><br><br>";
print " </body>\n";
print " </form>\n";

# エラー処理
sub error
{
($error,@error_fields) = @_;

if ($error eq 'missing_fields')
{
}
exit;
}

通報する

お礼日時：2005/03/08 19:02

No.2

回答者： Ethersky
回答日時：2005/03/08 16:00

foreach my $value (@q1){

print "<td width=\"300\"><font size=\"2\">$value</font></td>\n";
}

省略できるところを省略すると、

foreach (@q1){
print qq|<td width="300"><font size="2">$_</font></td>\n|;
}

forを使った書き方をしてみると、

for($i=0; $#q1>=$i; $i++){
print qq|<td width="300"><font size="2">$q1[$i]</font></td>\n|;
}

- 0
- 件

通報する

この回答へのお礼

print "<td width=300><font size=2>●●</font> </td>\n";

とあって「●●」に
foreach (@q1){
print qq|<td width="300"><font size="2">$_</font> </td>\n|;
}
と入れるのですか？
そうじゃないことは分かっています・・・。

@q1 = $q->param('q1');
で取った値を取り出したいのですが、
foreach my $value (@q1){ print $value;
}
で取り出せるけど、「確認画面」というものに自分がチェックしたものを表示させてあげるのは無理なのでしょうか？
そういうことで
print "～\n";
を使っています。

通報する

お礼日時：2005/03/08 16:43

No.1

回答者： hikomin
回答日時：2005/03/08 13:43

おっしゃる通り、@q1にチェックされた値が格納されています。

全部出すなら

foreach my $value (@q1){ # @q1から一つずつ取り出して$valueに入れるループ
print $value;
}

とかとかです。（整形はご自分で。）

いろいろ省略する事も出来ますが、うっかり省略しすぎると最初は分けが分からなくなりますので、ひとまず上の形で使ってみてください。