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ランキング
-
perl 矢印演算子 -> の使い方
-
EXCELファイルに誰がアクセスし...
-
クライアントサイドとサーバー...
-
ApacheでのCGIについての質問
-
DreamweaverCS6のサイトデータ移行
-
ユーザの所属するグループを取...
-
CGI実行環境下の.jsや.cssが動...
-
ラジオボタンのグループ化
-
Ajax React Jqueryの位置づけと...
-
ロリポップでCGIを設置する
-
SSIの『#exec cmd』と『#exe...
-
URLに~/cgi-bin/~を隠す方法
-
KENT WEBのTOPICS BOARDを改造...
-
perl PHP C++ それぞれのメ...
-
SSI(<!--#exec cmd="./XXXpl")...
-
CGIエラー
-
VBAでサーバーにアクセスするに...
-
vbでFTPサーバーに対して、サー...
-
ASPから既存のexcelブックを開...
-
SFTPなどは使わないホームペー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
perl 矢印演算子 -> の使い方
-
a.cgiからb.cgiを
-
KENT WEB(昨日の続きです)
-
iframeの中から、親frameのURL...
-
CGIの設置が分かりません・・・
-
カタカナを英語やフランス語に...
-
<a href="URL" utn>○○</a> で...
-
カリビアンビーチへの行き方
-
携帯サイトのページ移動
-
nickyのカテゴリ分け機能
-
cgiからcgiを呼び出す方法
-
Rubyでの条件分岐について
-
MacBookのメモリ増設について
-
<!--#exec cmdについて
-
「からし」と「マスタード」の...
-
SSIを使ってCGIを呼び起こした...
-
二つのcgiが干渉しあうのですが...
-
十把ひとからげ
-
ドロップダウンリストの情報を...
-
燃焼熱
おすすめ情報