ＸＭＬでデータベース

XML & CGI

ＸＭＬでデータベース

フォームからのデータを受け取る

フォームから送られて来た内容（この場合は記事番号）を受け取るプログラムを作ります。デコードするプログラムはサブルーチンにします。（青字）test06.cgi

#!/usr/bin/perl

print "Content-type: text/html\n\n";

#フォームから送られてきた内容をデコードする
&decode_f;

#データを配列に入れる
&data;

#フォームから送られてきた記事番号を$nに伝達する
$n = $FORM{'n'};

#要素属性を配列に入れる／テキストの抽出
&zokusei;

$text[$n] =~ s/&lt\;br\/&gt\;/\n/g; #テキストのタグを有効にする

#入力／編集フォーム
&edit;

exit;

#==========サブルーチン==========

#データを配列に入れる
sub data{
open (IN,"dtb.xml");
@data=<IN>;
close(IN);

$n=0;
foreach(@data){
$data[$n] =~ s/\<新聞雑誌記事\>//g; #ルート要素を除く
$data[$n] =~ s/</&lt\;/g; #htmlタグを禁止する
$data[$n] =~ s/>/&gt\;/g; #htmlタグを禁止する
chop($data[$n]); #行末の改行コードを除く
$n++;
}
}

#要素属性を配列に入れる／テキストの抽出
sub zokusei{
@zokusei = split(/" /,$data[$n]); #属性を各配列に納める
$zokusei[0] =~ s/&lt\;記事 //; #タイトルから<記事を取り除く
$zokusei[11] =~ s/&lt\;\/記事&gt\;//g; #コメントから</記事>を取り除く
$l = index($zokusei[11],"\"&gt\;");
$text[$n] = substr($zokusei[11],$l+5); #テキストを取り出す
$zokusei[11] = substr($zokusei[11],0,$l-1); #属性の値を取り出す
$m = 0;
foreach(@zokusei){
$zokusei[$m] =~ s/"//g; #最後に残った " を取り除く
$l=index($zokusei[$m],"\="); #属性名を除く
$zokusei[$m]=substr($zokusei[$m],$l+1,length($zokusei[$m])-$l);
$m++;
}
}

#入力／編集フォーム
sub edit {
print <<"EOL";
<HTML>
<HEAD>
<META name="GENERATOR" content="IBM WebSphere Homepage Builder V6.0.1 for Windows">
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<META http-equiv="Content-Style-Type" content="text/css">
<TITLE>新聞雑誌記事編集フォーム</TITLE>
</HEAD>
<BODY bgcolor="#bbccbb">
<CENTER><B><FONT size="+1">新聞雑誌記事　編集フォーム<BR>
<BR>
</FONT></B>
<FORM ACTION="test05a.cgi" METHOD="POST">
<INPUT TYPE="hidden" NAME="action" VALUE="edit">
<TABLE border="0">
<TBODY>
<TR>
<TD colspan="2" align="center">
<FONT size="-1">タイトル</FONT><INPUT size="139" type="text" name="title" value=$zokusei[0]>
</TD>
</TR>
<TR>
<TD colspan="2" align="center">
<FONT size="-1">サブタイトル</FONT>
<INPUT size="118" type="text" name="subtitle" value=$zokusei[1]>
</TD>
</TR>
<TR>
<TD valign="bottom"><FONT size="-1">文献<BR>
<INPUT size="20" type="text" name="bunken" value=$zokusei[2]><BR>
人物<BR>
<INPUT size="20" type="text" name="jinbutsu" value=$zokusei[3]><BR>
年月日<BR>
<INPUT size="20" type="text" name="nengappi" value=$zokusei[4]><BR>
<BR>
連続<INPUT size="4" type="text" name="renzoku" value=$zokusei[5]><BR>
<BR>
画像<BR>
<INPUT size="20" type="text" name="gazou" value=$zokusei[6]><BR>
横<INPUT size="5" type="text" name="yoko" value=$zokusei[7]> 縦<INPUT size="5" type="text" name="tate" value=$zokusei[8]></FONT></TD>
<TD valign="top" height="268">
<TEXTAREA rows="19" cols="90" name="text">$text[$n]</TEXTAREA>
</TD>
</TR>
<TR>
<TD align="left" colspan="2"><FONT size="-2">
リンク名</FONT><INPUT size="37" type="text" name="linkmei" value=$zokusei[9]><FONT size="-2">リンク</FONT><INPUT size="99" type="text" name="link" value=$zokusei[10]></TD>
</TR>
<TR>
<TD align="right" valign="top"><FONT size="-1">コメント</FONT></TD>
<TD>
<INPUT size="130" name="comment" value=$zokusei[11]></INPUT>
</TD>
</TR>
<TR>
<TD colspan="2" align="center">
<INPUT type="submit" value="書き込み">
</TD>
</TR>
</TBODY>
</TABLE>
</FORM>
<FORM ACTION="dtb.xml">
<INPUT TYPE="submit" VALUE="ファイルに戻る">
</FORM>
</CENTER>
</BODY>
</HTML>
EOL
}

#フォームから送られてきた内容をデコードする
sub decode_f{
if ($ENV{'REQUEST_METHOD'} eq "POST"){
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}

@pairs = split(/&/,$buffer);
foreach (@pairs) {
($name, $value) = split(/=/, $_);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-f0-9])/pack("C", hex($1))/eg;
$value =~ s/</&lt\;/g; #htmlタグを禁止する
$value =~ s/>/&gt\;/g; #htmlタグを禁止する
$value =~ s/\r//g; #改行コード\rを消去
$value =~ s/\,/，/g; #半角コンマを全角コンマに
$FORM{$name} = $value;
}
}

記事閲覧画面で「編集」ボタンをクリックすると該当データが表示されます。（左肩の数字＝記事番号が出ていますが、これは意図しないことですがあってもいいです）

編集中の記事番号をプログラムに引き渡すために input type="hidden"行を追加します。（青字）
test07a.cgi改

#入力／編集フォーム
sub edit {
print <<"EOL";
<HTML>
<HEAD>
<META name="GENERATOR" content="IBM WebSphere Homepage Builder V6.0.1 for Windows">
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<META http-equiv="Content-Style-Type" content="text/css">
<TITLE>新聞雑誌記事編集フォーム</TITLE>
</HEAD>
<BODY bgcolor="#bbccbb">
<CENTER><B><FONT size="+1">新聞雑誌記事　編集フォーム<BR>
<BR>
</FONT></B>
<FORM ACTION="test07a.cgi" METHOD="POST">
<INPUT TYPE="hidden" NAME="action" VALUE="edit">
<INPUT TYPE="hidden" NAME="n" VALUE=$n>
<TABLE border="0">

うまく記事番号が引き継がれているかをチェックします。臨時に表のような確認用プログラムも作りました。本プログラムの&datacheck_anteラベルはチェック後はずします。

#データ確認用（臨時）
sub datacheck_ante{
print <<"EOL";
$data<P>
記事番号: $FORM{'n'}<BR>
action : $FORM{'action'}<BR>
要素top: $FORM{'yoso_top'}<BR>
タイトル: $FORM{'title'}<BR>
サブタイトル:$FORM{'subtitle'}<BR>
文献 : $FORM{'bunken'}<BR>
人物 : $FORM{'jinbutsu'}<BR>
年月日 : $FORM{'nengappi'}<BR>
連続 : $FORM{'renzoku'}<BR>
画像 : $FORM{'gazou'}<BR>
横サイズ: $FORM{'yoko'}<BR>
縦サイズ: $FORM{'tate'}<BR>
リンク名: $FORM{'linkmei'}<BR>
リンク : $FORM{'link'}<BR>
コメント: $FORM{'comment'}<BR>
テキスト: $FORM{'text'}<BR>
要素end: $FORM{'yoso_end'}<BR>
EOL
exit;
}

#!/usr/bin/perl

print "Content-type: text/html\n\n";

#フォームから送られてきた内容をデコードする
&decode_f;

if($FORM{'action'} eq "edit"){
&datacheck_ante;

} else {
#ファイルデータを配列に入れる
&data;
#フォームから送られてきた記事番号を$nに伝達する
$n = $FORM{'no'};
#要素属性を配列に入れる／テキストの抽出
&zokusei;
#テキストのタグを有効にする
$text[$n] =~ s/&lt\;br\/&gt\;/\n/g;
#入力／編集フォーム
&edit;
}
exit;

#==========サブルーチン==========

チェックの結果は以下の通りです。