したらばTOP ■掲示板に戻る■ 全部 1-100 最新50 | |

プログラムスレッド

11：女傑 ◆nDpXSJz8i.：2012/03/14(水) 23:44:17 ID:hQMLjY7Y0
こんな感じで簡単な商品データベースを作りました。

//written by Jyoketsu

#!/usr/bin/perl

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;

$value =~ s/</</g;
$value =~ s/>/>/g;
}

$act = $ENV{'QUERY_STRING'};

$file = "./$act\.cgi";
if (!-e $file) { &error; }
if (!open(DB,"$file")) { &error; }
@lines = <DB>;
close(DB);
$youso = shift(@lines);
chop($youso) if $youso =~ /\n$/;
($01,$02,$03,$04,$05,$06,$07) = split(/,/,$youso);

push(@lines,"$act $01,$02,$03,$04,$05,$06,$07\n");

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

<html><head><title>$01$02のページ</title></head>
<body bgcolor=#$06>
<font>メーカー：$01</font><br>
<font>商品名：$02</font><br>
<font>容量：$03</font><br>
<font>入数：$04</font><br>
<font>販売期限：$05</font><br>
<img src=./barcode.php?code=$07&encoding=EAN&scale=1&mode=jpg>
</body></html>

EOF

exit;

sub error {

print "Content-type: text/html\n\n";
print '<html><head><title>エラー</title></head>' . "\n";
print "<body>\n";
print "<h3>エラー</h3>\n";
print '<p></body></html>' . "\n";
exit;
}

データファイル
,で区切ったファイル
拡張子cgi
新着レスの表示

名前： E-mail（省略可）：

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）
掲示板管理者へ連絡 無料レンタル掲示板