A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
どうやって取得しているか、具体的なソースコードを教えて下さい。
また、どううまくいかないのか、具体的なエラーメッセージも教えて下さい。この2点があれば、早くいい回答を得られるようになると思います。さて、ここからは勝手に貴方の環境を予想して答えますが・・・CGI.pmだとすると、
my $check = $cgi->param('check');
ってしてますか?
my @check = $cgi->param('check');
とするといいかもしれないです。
この回答への補足
ご回答、ありがとうございます。
こちらの疑問点を、箇条書きします。
(1)CGI.pmとは、なんでしょうか?perlのソースもしくは、環境をみればいいのでしょうか?
(2)ソースコードを書きます。かなり、長いので、受け取りの部分を中心に書きます。
# 初期設定
#======================================================================#
require $require if -e $require;
if($ENV{'REQUEST_METHOD'} eq "POST"){
read(STDIN,$QUERY,$ENV{'CONTENT_LENGTH'})
}else{
$QUERY = $ENV{'QUERY_STRING'}
}
$i = 0;
@QUERY=split(/&/,$QUERY);
foreach (@QUERY){
($n,$v)=split(/=/);
$v=~ tr/+/ /;
next if $n eq "data" && $v !~ /[^\d\%]/ && (@data = split('%',$v));
$v=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$n=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$v=~ s/\r|\n|\t| / /g;
$v=~ s/\s+(""|"|,)\s+/ /g;
$v=~ s/^(""|"|,)$//g;
next if $n eq "" || $v eq "";
&jcode'convert(*v,'sjis') if $jcode'version;
if($n=~ /^IDn/){
$ID{$n}=$v
}elsif($n=~ /^IDv(\d+)/){
$IDv{$1}.=" " if $IDv{$1};
$IDv{$1}.=$v
}else{
$s=$n=~ /^join/ ?"":" ";
$FORM{$n}.=$s if $FORM{$n};
$FORM{$n}.=$v
}
}
if($FORM{'query'}){$i = 0;
@QUERY = split(/&/,$FORM{'query'});
foreach (@QUERY){
($n,$v)=split(/=/);
next if $n eq "" || $v eq "";
if($n=~ /^IDn/){
$ID{$n}=$v
}elsif($n=~ /^IDv(\d+)/){
$IDv{$1}.=" " if $IDv{$1};
$IDv{$1}.=$v
}else{
$s=$n=~ /^join/ ?"":" ";
$FORM{$n}.=$s if $FORM{$n};
$FORM{$n}.=$v
}
}
}
$print_max=$FORM{print} if $FORM{print} && $FORM{print} !~ /\D/;
$print_max=$max_max if $print_max > $max_max;
$n=~ /IDn(\d+)/ &&($FORM{$v}=$IDv{$1})while ($n,$v)=each(%ID);
if($QUERY=~ /join/){
$n=~ s/^join// && push(@form,"$n\t$v"),delete $FORM{"join$n"} while ($n,$v)=each(%FORM);
foreach(@form){
($n,$v)=split(/\t/);
$FORM{$n}=$v if $n ne "" && $v ne ""
}
undef @form;
}
if($QUERY=~ /select/){
while(($n,$v)=each(%FORM)){
if($n=~ s/^select// && $FORM{"$v$n"} eq ""){
push(@form,"$v$n\t$FORM{\"value$n\"}");
delete $FORM{"select$n"}
}
}
foreach(@form){
($n,$v)=split(/\t/);
$FORM{$n}=$v if $n ne "" && $v ne ""
}
undef @form
}
です。
以上
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- JavaScript javaScriptで画面に値を入れるには 1 2022/08/14 12:27
- Perl perlでリテラル値はメモリにどのように格納されているか? 1 2023/01/15 20:45
- Access(アクセス) アクセスで、androidのスマホサイズのフォームは作れますか?テキストとチェックボックスだけのフォ 1 2023/05/31 00:53
- Excel(エクセル) 画像のようなチェックボックスとハイパーリンクがありますが、 ハイパーリンクを押すと、チェックボックス 1 2023/04/07 12:56
- Excel(エクセル) スプレッドシートのチェックボックスとフィルタを連携させたい 2 2022/09/26 18:02
- Excel(エクセル) 表内で、Enterキーで横→行の最後入力したら次の行の先頭に移動するマクロを作りたい 3 2022/05/01 21:19
- Excel(エクセル) エクセルVBAでチェックボックスにチェックを入れる 1 2022/09/14 00:52
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) Excel・ユーザーフォームの情報を受け渡したい 4 2022/06/08 10:11
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで集計したい。
-
生成AI画像について
-
フォームを再送信しますか?
-
perlで書いたcgiでsqliteの使い...
-
CGIって何ですか?簡潔に教えて...
-
apacheでPerl CGIが作動せず、5...
-
ホームページでCGIのフォームを...
-
cgiでのアクセスカウンターの表...
-
3DCG
-
ホームページにメールフォーム...
-
cgi アクセス制限 エラー
-
CGIの記述について教えてくださ...
-
CGIの設置が分かりません・・・
-
ホームページにCGIを設置したの...
-
ホームページにCGIを設置したの...
-
サーバーのエラーでおしえてく...
-
ホームページの事でおしえてく...
-
さくらサーバーにcgiフォームを...
-
一番簡単なCGI,掲示板の設置教...
-
(フリーの)ツリー掲示版CGI、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
perl 矢印演算子 -> の使い方
-
カタカナを英語やフランス語に...
-
KENT WEB(昨日の続きです)
-
CGIの設置が分かりません・・・
-
NANAの革ジャン!!!
-
cgiからcgiを呼び出す方法
-
カリビアンビーチへの行き方
-
apacheのScriptAliasの記述につ...
-
インテル製インタフェース82...
-
iframeの中から、親frameのURL...
-
カレンダー(スケジュール)を...
-
歌詞画ってどうやって作るの?
-
十把ひとからげ
-
Aopen Aeolus 6600GT-DVH128 AG...
-
水天宮前・人形町周辺深夜まで...
-
EXCELファイルに誰がアクセスし...
-
《エクセルVBA》「他の人が該当...
-
SFTPなどは使わないホームペー...
-
VBAでサーバーにアクセスするに...
-
URLに~/cgi-bin/~を隠す方法
おすすめ情報