質問者 TAKA
投稿日 8/18(日) 18:30:11
簡易データーベースで検索し、検索結果の一行ををブラウザー上で削除しようと思い
現在苦戦中なのです。
今考えているのは検索結果にフォームを埋め込み削除用プログラムにフォームで飛ばして削除しようかな？
って思ったんですけど、その削除用プログラムが作れなくって・・初心者なりにいろいろやってみたのですが・・
諸先輩方、アドバイスを頂けないでしょうか？
#!/usr/bin/perl
require './jcode.pl';
$file = "./data.csv";
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }
if ($buffer eq "") { &error('エラー','使い方が間違っています.'); }
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*value,'sjis');
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\n//g;
$value =~ s/\r//g;
$value =~ s/\t//g;
$value =~ s/\,//g;
$FORM{$name} = $value;
}
#削除
open DAT, "$file" ;
@dat=<DAT>;
@dat = grep !m/$FORM{'EMAIL'}/, @dat;�
print DAT @dat;
sub error {
if (-e "$lockfile") { unlink($lockfile); }
print "Content-type: text/html\n\n";
print "<html><head><title>$title</title></head>\n";
print "$body\n";
print "<h1>$_[0]</h1>\n";
print "<h3>$_[1]</h3>\n";
print "ブラウザの[戻る]ボタンを押して前の画面に移動してください.<p>\n";
print "</body></html>\n";
exit;
}
プロバイダ参照：
サーバのＯＳ：(未選択)
パソコンのＯＳ：(未選択)
エディタ：
ＦＴＰソフト：
サーバ移転：していない
改造：(未選択)
ＣＧＩ習熟度：beginner
|
