週替わりランキング作成cgiを探しています

質問

• 週替わりランキングを作成するためのcgiを探しています。1位〜10位まで表示項目が4つ以上表示されるものを希望しています。
• 自動でも手動でも構いませんが、2つの項目はリンクを設けたいです。
• cgiやhtmlなど、表示形式は問いません。perlやphpで希望に近い機能やスクリプトをご存じの方がいらっしゃれば、ご教示いただけると助かります。

回答No.5

Dpop

Dpop です。

あー。申し訳ない！！ Jcode は使おうと思って use したのですが、結局使わなかったのです(^_^;;)
別のCGIを利用する時、利用するかも知れないので、良し。と言う事にしてください(^_^;;)

> ただ、商品名へのリンクはできたのですが、メーカーサイトへのリンクができていなかったので、これから少し手を入れていきたいと思うのですが少し不安です…

これについては、機能を追加しました。そのため、データフォーマットが変更になりますので、注意してください。

> 保存されたcsvを見てみたら、日本語が文字化けしてしまっています…

それは、違います。正しく保存されています。
初めにも書きましたが、全て「日本語EUC」で保存する。と言う事を前提としています。
ですので、日本語EUCを利用できるエディタで、開いていただければ問題なく確認できます。
UNIXの世界では、漢字コードは日本語EUCで保存します。一部の文字の文字化けを防ぐために必要な処置となります。

そのリスクがある事を承知で、どうしてもSJISで保存したい場合には、readdatafile, updatedatafile のコメントを外してください。(Jcodeの行です。)
この部分については、テストしていませんが、まぁ問題無いでしょう。

ranking.thtml には修正がありませんが、念のため3ファイルともアップしておきます。

----- ^^^ entry.cgi ^^^ -----
#!/usr/local/bin/perl

use HTML::Template;
use Jcode;
use CGI;
use strict;

my($max, $datafile);
my($cgi, %in);
my($i, @rdata, %conf);

$max = 10;
$datafile = 'ranking.csv';
$conf{'keywords'} = '';
$conf{'description'} = '';
$conf{'pagename'} = '';
$conf{'htmlfile'} = 'ranking%y%m%d.html';

$cgi = new CGI;

$in{'smode'} = $cgi->param('smode');
$in{'yy'} = $cgi->param('yy');
$in{'mm'} = $cgi->param('mm');
$in{'dd'} = $cgi->param('dd');
for ($i = 0; $i < $max; $i++) {
$in{"item$i"} = $cgi->param("item$i");
$in{"itemurl$i"} = $cgi->param("itemurl$i");
$in{"maker$i"} = $cgi->param("maker$i");
$in{"makerurl$i"} = $cgi->param("makerurl$i");
$in{"value$i"} = $cgi->param("value$i");
}

&readdatafile(\@rdata);

if ($in{'smode'} eq '読込') {
&dispday(\@rdata);
}
elsif ($in{'smode'} eq '登録') {
&updatedatafile(\@rdata);
&disp();
}
elsif ($in{'smode'} eq '生成') {
&makehtml(\@rdata);
&disp();
}
else {
&disp();
}

exit(0);

sub disp {
my($i, @entry_loop, $template);
my($yy, $mm, $dd, $week);
my(@mmax) = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);

$template = HTML::Template->new(filename => 'entry.thtml');

($yy, $mm, $dd, $week) = (localtime(time))[5, 4, 3, 6];
$yy += 1900;
$mm++;
if ($week != 0) {
if (($yy % 4) == 0) {
$mmax[1] = 29;
if (($yy % 100) == 0) {
$mmax[1] = 28;
if (($yy % 400) == 0) {
$mmax[1] = 29;
}
}
}
$dd -= $week;
if ($dd < 0) {
$mm--;
if ($mm == 0) {
$yy--;
$mm = 12;
}
$dd += $mmax[$mm-1];
}
}

$template->param(YY => $yy);
$template->param(MM => $mm);
$template->param(DD => $dd);

for ($i = 0; $i < $max; $i++) {
my(%row);
$row{'RANK'} = $i+1;
$row{'ITEM'} = qq|<input type="text" name="item$i" size="30">|;
$row{'ITEMURL'} = qq|<input type="text" name="itemurl$i" size="50">|;
$row{'MAKER'} = qq|<input type="text" name="maker$i" size="20">|;
$row{'MAKERURL'} = qq|<input type="text" name="maker$i" size="50">|;
$row{'VALUE'} = qq|<input type="text" name="value$i" size="7">|;
push(@entry_loop, \%row);
}

$template->param(ENTRY_LOOP => \@entry_loop);
$template->param(KEYWORDS => $conf{'keywords'});
$template->param(DESCRIPTION => $conf{'description'});
$template->param(PAGENAME => $conf{'pagename'});

print "Content-Type: text/html\n\n";
print $template->output;
}

sub dispday {
my($rdata) = @_;
my($i, $ymd, @d, @entry_loop, $template);

$template = HTML::Template->new(filename => 'entry.thtml');

if (($in{'yy'} eq '') ||
($in{'mm'} eq '') ||
($in{'dd'} eq '')) {
$template->param(ERROR => '日付が入力されていません。');
}

$ymd = join('/', $in{'yy'}, $in{'mm'}, $in{'dd'});
for ($i = 0; $i <= scalar(@{$rdata})-1; $i++) {
if ($rdata[$i]->{'from'} eq $ymd) {
$d[$rdata[$i]->{'rank'}-1] = $rdata[$i];
}
}

if (scalar(@d) == 0) {
$template->param(ERROR => '指定された日付のデータはありません。');
}
else {
$template->param(YY => $in{'yy'});
$template->param(MM => $in{'mm'});
$template->param(DD => $in{'dd'});

for ($i = 0; $i < $max; $i++) {
my(%row);
$row{'RANK'} = $i+1;
$row{'ITEM'} = qq|<input type="text" name="item$i" size="30" |
. qq|value="|. $d[$i]->{'item'}. qq|">|;
$row{'ITEMURL'} = qq|<input type="text" name="itemurl$i" size="50" |
. qq|value="|. $d[$i]->{'itemurl'}. qq|">|;
$row{'MAKER'} = qq|<input type="text" name="maker$i" size="20" |
. qq|value="|. $d[$i]->{'maker'}. qq|">|;
$row{'MAKERURL'} = qq|<input type="text" name="makerurl$i" size="50" |
. qq|value="|. $d[$i]->{'makerurl'}. qq|">|;
$row{'VALUE'} = qq|<input type="text" name="value$i" size="7" |
. qq|value="|. $d[$i]->{'value'}. qq|">|;
push(@entry_loop, \%row);
}

$template->param(ENTRY_LOOP => \@entry_loop);

}

$template->param(KEYWORDS => $conf{'keywords'});
$template->param(DESCRIPTION => $conf{'description'});
$template->param(PAGENAME => $conf{'pagename'});

print "Content-Type: text/html\n\n";
print $template->output;
}

sub makehtml($) {
my($rdata) = @_;
my($i, %d, $day);
my($yy, $mm, $dd);
my($template, $htmlfile, @fd, @td, @entry_loop);

for ($i = 0; $i <= scalar(@{$rdata})-1; $i++) {
$d{$rdata[$i]->{'from'}}[$rdata[$i]->{'rank'}-1] = $rdata[$i];
}

foreach $day (sort keys %d) {

(@fd) = split(m|/|, $d{$day}[0]->{'from'});
(@td) = split(m|/|, $d{$day}[0]->{'to'});

$htmlfile = $conf{'htmlfile'};
$yy = sprintf("%04d", $fd[0]);
$mm = sprintf("%02d", $fd[1]);
$dd = sprintf("%02d", $fd[2]);
$htmlfile =~ s/%y/$yy/g;
$htmlfile =~ s/%m/$mm/g;
$htmlfile =~ s/%d/$dd/g;

$template = HTML::Template->new(filename => 'ranking.thtml');

$template->param(FROMDAY => sprintf("%4d年%2d月%2d日", @fd));
$template->param(TODAY => sprintf("%4d年%2d月%2d日", @td));
@entry_loop = ();
for ($i = 0; $i < $max; $i++) {
my(%row);
$row{'RANK'} = $i+1;
$row{'ITEM'} = qq|<a target="_blank" |
. qq|href="|. $d{$day}[$i]->{'itemurl'}. qq|"|
. qq|title="|. $d{$day}[$i]->{'item'}. qq|">|
. $d{$day}[$i]->{'item'}
. qq|</a>|;
$row{'MAKER'} = qq|<a target="_blank" |
. qq|href="|. $d{$day}[$i]->{'makerurl'}. qq|"|
. qq|title="|. $d{$day}[$i]->{'maker'}. qq|">|
. $d{$day}[$i]->{'maker'}
. qq|</a>|;
$row{'VALUE'} = $d{$day}[$i]->{'value'};
push(@entry_loop, \%row);
}
$template->param(ENTRY_LOOP => \@entry_loop);

open(HTML, "> $htmlfile") || die("Panic! open error $htmlfile");
print HTML $template->output(). "\n";
close(HTML);
}
}

sub readdatafile($) {
my($rdata) = @_;
my($line);
my($from, $rank, $item, $itemurl, $maker, $makerurl, $value);

if (-f $datafile) {
open(IN, $datafile) || die("Panic! open error $datafile");
while(<IN>) {
chop;
$line = $_;
# どうしても、SJISで保存した場合には、次のコメントを取ってください。
# $line = Jcode->new($line)->euc;
($from, $rank, $item, $itemurl, $maker, $makerurl, $value)
= split(m/,/, $line);
my(%d);
$d{'from'} = $from;
$d{'to'} = &add6day($from);
$d{'rank'} = $rank;
$d{'item'} = $item;
$d{'itemurl'} = $itemurl;
$d{'maker'} = $maker;
$d{'makerurl'} = $makerurl;
$d{'value'} = $value;
push(@{$rdata}, \%d);
}
close(IN);
}
}

sub updatedatafile($) {
my($rdata) = @_;
my($ymd, $i, @work, $line);

$ymd = join('/', $in{'yy'}, $in{'mm'}, $in{'dd'});
for ($i = 0; $i <= scalar(@{$rdata}-1)-1; $i++) {
if ($rdata[$i]->{'from'} ne $ymd) {
push(@work, $rdata[$i]);
}
}

for ($i = 0; $i < $max; $i++) {
my(%d);
$d{'from'} = $ymd;
$d{'rank'} = $i+1;
$d{'item'} = $in{"item$i"};
$d{'itemurl'} = $in{"itemurl$i"};
$d{'maker'} = $in{"maker$i"};
$d{'makerurl'} = $in{"makerurl$i"};
$d{'value'} = $in{"value$i"};
push(@work, \%d);
}

@work = sort sortsub @work;

open(OUT, "> $datafile") || die("Panic! open error $datafile");
for ($i = 0; $i <= scalar(@work)-1; $i++) {
$line = join(',', $work[$i]->{'from'}
, $work[$i]->{'rank'}
, $work[$i]->{'item'}
, $work[$i]->{'itemurl'}
, $work[$i]->{'maker'}
, $work[$i]->{'makerurl'}
, $work[$i]->{'value'});
# どうしても、SJISで保存した場合には、次のコメントを取ってください。
# $line = Jcode->new($line)->sjis;
print OUT $line. "\n";
}
close(OUT);
}

sub sortsub {
$a->{'from'} cmp $b->{'from'} ||
$a->{'rank'} <=> $b->{'rank'};
}

sub add6day($) {
my($day) = @_;
my($y, $m, $d);
my(@max) = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);

if (($y % 4) == 0) {
$max[1] = 29;
if (($y % 100) == 0) {
$max[1] = 28;
if (($y % 400) == 0) {
$max[1] = 29;
}
}
}

($y, $m, $d) = split(m|/|, $day);
$d += 6;
if ($max[$m-1] < $d) {
$d -= $max[$m-1];
$m++;
if ($m == 12) {
$m = 0;
$y++;
}
}

$day = join('/', $y, $m, $d);
($day);
}

----- $$$ entry.cgi $$$ -----

----- ^^^ entry.thtml ^^^ -----
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
"http://www.w3.org/TR/REC-html40/loose.dtd">
<html lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=euc-jp">
<meta name="keywords" content="<TMPL_VAR NAME="KEYWORDS">">
<meta name="description" content="<TMPL_VAR NAME="DESCRIPTION">">
<title><TMPL_VAR NAME="PAGENAME"></title>
</head>
<body>

<div align="left">

<form action="entry.cgi" method="post">

<font color="#ff0000">
<TMPL_VAR NAME=ERROR>
</font>

<p align="left">
<input type="text" name="yy" size="4" value="<TMPL_VAR NAME=YY>">年
<input type="text" name="mm" size="2" value="<TMPL_VAR NAME=MM>">月
<input type="text" name="dd" size="2" value="<TMPL_VAR NAME=DD>">日
</p>

<table border="1">
<tr>
<th align="center">順位</th>
<th align="center">商品名</th>
<th align="center">商品URL</th>
<th align="center">メーカー</th>
<th align="center">メーカーURL</th>
<th align="center">在庫数</th>
</tr>
<TMPL_LOOP NAME=ENTRY_LOOP>
<tr>
<td align="right"><TMPL_VAR NAME=RANK></td>
<td align="left"><TMPL_VAR NAME=ITEM></td>
<td align="left"><TMPL_VAR NAME=ITEMURL></td>
<td align="left"><TMPL_VAR NAME=MAKER></td>
<td align="left"><TMPL_VAR NAME=MAKERURL></td>
<td align="left"><TMPL_VAR NAME=VALUE></td>
</tr>
</TMPL_LOOP>
</table>

<p align="center">
<input type="submit" value="読込" name="smode">　
<input type="submit" value="登録" name="smode">　
<input type="submit" value="生成" name="smode">　
<input type="submit" value="リロード" name="smode">
</p>

</div>

</form>

</body>
</html>
----- $$$ entry.thtml $$$ -----

----- ^^^ ranking.thtml ^^^ -----
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
"http://www.w3.org/TR/REC-html40/loose.dtd">
<html lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=euc-jp">
<meta name="keywords" content="<TMPL_VAR NAME="KEYWORDS">">
<meta name="description" content="<TMPL_VAR NAME="DESCRIPTION">">
<title><TMPL_VAR NAME="PAGENAME"></title>
</head>
<body>

<p align="center">
<TMPL_VAR NAME=FROMDAY>～<TMPL_VAR NAME=TODAY>のランキング
</p>

<div align="center">
<table border="1">
<tr>
<th align="center">順位</th>
<th align="center">商品名</th>
<th align="center">メーカー</th>
<th align="center">在庫数</th>
</tr>
<TMPL_LOOP NAME=ENTRY_LOOP>
<tr>
<td align="right"><TMPL_VAR NAME=RANK></td>
<td align="left"><TMPL_VAR NAME=ITEM></td>
<td align="left"><TMPL_VAR NAME=MAKER></td>
<td align="right"><TMPL_VAR NAME=VALUE></td>
</tr>
</TMPL_LOOP>
</table>
</div>

</body>
</html>
----- $$$ ranking.thtml $$$ -----

以上です。

不明点があれば、分かるまで突っ込んで質問してください。
レスポンスは落ちぎみですが(^_^;;)

お礼

度々のお返事ありがとうございます。
ようやく時間を作る事ができ、修正版を使用させて頂きました。

メーカーへのリンクが、在庫数になってしまい、登録時の画面と作成されたhtmlが文字化けしてしまっています。

自分が、csvデータの文字化けを記載した事で、ソースに
# どうしても、SJISで保存した場合には、次のコメントを取ってください。
とあるように、なんらかの処理をして頂いた結果、このようになったのだと思いますので、上に参考資料を色々と掲載して頂けていますので、元ファイルからの改造を行っていきたいと思います。

今まで、cgi関連の事で色々なサイトで質問してきましたが、このように一から作って頂いた事は本当に初めてです

この度は本当にありがとうございました。

これ以上、お手を煩わすのも心許ないので、締め切らせて頂きます。

どうしても、分からない事がありましたら、また質問させて頂きます(^^;