記事参照
No.2 2016/09/14 14:06
題：Re: パラメータの名前の取り出しができない
名：名無しさん
ご指摘、ありがとうございます。
35行目にPush前のデバッグと
36行目にPush後のデバックをいれた結果、
Push前は
mode=send
message=あ
name=ああああ ああ
kana=いいいい いいい
Push後は
空白でした。
pushの記述がおかしいのでしょうか。
15 sub FrmDcd{
16 my $query = new CGI;
17 foreach my $field ($query->param) {
18 my @value = $query->param($field);
19 for (my $i=0; $i < @value; $i++) {
20 # 不都合な文字を取り除く
21 # tab,&,",<,>をエスケープ
22 $value[$i] =~ s/\t//g;
23 $value[$i] =~ s/&/&/g;
24 $value[$i] =~ s/"/"/g;
25 $value[$i] =~ s/</</g;
26 $value[$i] =~ s/>/>/g;
27 $value[$i] =~ s/,/ /g;
28 # 改行コード(CR,LF,CRLF)を<BR>に変換
29 $value[$i] =~ s/\x0D\x0A/<BR>/g;
30 $value[$i] =~ s/\x0D/<BR>/g;
31 $value[$i] =~ s/\x0A/<BR>/g;
32 # 文字コードを変換(条件によって使い分ける)
33 jcode::convert(\$value[$i], 'sjis');
34 # 配列に内容をpush
35 #&debug($value[$i]);
36 push(@{$form{$field}},$value[$i]);
37 #&debug(@{$form{'mode'}}[0]);
38 }#for
39 }
掲示板に戻る