- ベストアンサー
週替わりランキング作成cgiを探しています
- 週替わりランキングを作成するためのcgiを探しています。1位〜10位まで表示項目が4つ以上表示されるものを希望しています。
- 自動でも手動でも構いませんが、2つの項目はリンクを設けたいです。
- cgiやhtmlなど、表示形式は問いません。perlやphpで希望に近い機能やスクリプトをご存じの方がいらっしゃれば、ご教示いただけると助かります。
- ttoottoorroo
- お礼率37% (16/43)
- CGI
- 回答数6
- ありがとう数4
- みんなの回答 （6）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (5)
- Dpop
- ベストアンサー率51% (279/544)
- Dpop
- ベストアンサー率51% (279/544)
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関連の事で色々なサイトで質問してきましたが、このように一から作って頂いた事は本当に初めてです この度は本当にありがとうございました。 これ以上、お手を煩わすのも心許ないので、締め切らせて頂きます。 どうしても、分からない事がありましたら、また質問させて頂きます(^^;
- Dpop
- ベストアンサー率51% (279/544)
#1 です。 データファイルをCSVとしたい。と言う部分を失念していました。 ----- ^^^ 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{"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="40">|; $row{'ITEMURL'} = qq|<input type="text" name="itemurl$i" size="80">|; $row{'MAKER'} = qq|<input type="text" name="maker$i" size="20">|; $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="40" | . qq|value="|. $d[$i]->{'item'}. qq|">|; $row{'ITEMURL'} = qq|<input type="text" name="itemurl$i" size="80" | . qq|value="|. $d[$i]->{'itemurl'}. qq|">|; $row{'MAKER'} = qq|<input type="text" name="maker$i" size="20" | . qq|value="|. $d[$i]->{'maker'}. 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'} = $d{$day}[$i]->{'maker'}; $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($from, $rank, $item, $itemurl, $maker, $value); if (-f $datafile) { open(IN, $datafile) || die("Panic! open error $datafile"); while(<IN>) { chop; ($from, $rank, $item, $itemurl, $maker, $value) = split(m/,/); my(%d); $d{'from'} = $from; $d{'to'} = &add7day($from); $d{'rank'} = $rank; $d{'item'} = $item; $d{'itemurl'} = $itemurl; $d{'maker'} = $maker; $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{'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]->{'value'}); print OUT $line. "\n"; } close(OUT); } sub sortsub { $a->{'from'} cmp $b->{'from'} || $a->{'rank'} <=> $b->{'rank'}; } sub add7day($) { 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 += 7; if ($max[$m-1] < $d) { $d -= $max[$m-1]; $m++; if ($m == 12) { $m = 0; $y++; } } $day = join('/', $y, $m, $d); ($day); } ----- $$$ entry.cgi $$$ -----
お礼
なんとか本日、HTML::Templateモジュールのインストールも無事完了し、再度接続を試みた所今度はJcode.pmがないというエラーに… こちらも、色々なサイトを参考にし無事にインストールが完了し、希望通りの動きを体感する事ができました！！ ただ、商品名へのリンクはできたのですが、メーカーサイトへのリンクができていなかったので、これから少し手を入れていきたいと思うのですが少し不安です… 保存されたcsvを見てみたら、日本語が文字化けしてしまっています… メーカー名へのリンクと共に、文字化けの対策をこれから手をつけていきたいと思うのですが、今まで項目を減らしたり、デザインをいじった程度しかperlの知識がない為、不安です… この２点が解消されるまでこのスレを締め切りませんので、Dpop様以外でもアドバイス頂けたら幸いです それ以外は完璧です！ 希望通りの機能が備わっています！！ 本当にありがとうございました！ 以下、忘れない為ともしも私と同じくJcode.pmやHTML::Templateモジュールのインストールに困った方の為にも覚え書きとして手順を書いておきます。 Jcode.pmインストール方法 http://openlab.ring.gr.jp/ Jcode-* の「*」は任意のバージョン番号 # gunzip Jcode-*.tar.gz | tar xf - # tar -xvf Jcode-*.tar # cd Jcode-* # perl Makefile.PL; make; make install HTML::Templateモジュールのインストール http://search.cpan.org/~samtregar/HTML-Template-2.7/ # gzip -dc HTML-Template-2.7.tar.gz | tar xof - # cd HTML-Template-2.7 # perl Makefile.PL # make # make test # make install
- Dpop
- ベストアンサー率51% (279/544)
やりたいことが見えて来ました。 確認を含めて、もう少し詳しく聞かせてください。 やりたいこと ・週単位の売り上げベスト１０を表示したい。 ・CGIを利用して、データの入力と表示を行いたい。 ・データ項目は、商品名、価格、メーカー、在庫数、商品へのURL ・順位付けはプログラムで行うのではなく、データ入力画面から指定できれば良い。 ・入力されたデータは、CSVで保存され、表示時にそのCSVファイルを参照して表示する様にしたい。 なんて感じでしょうか？上記で良いと考えて。 ・入力画面は、CGIで簡単に作れます。 ・表示部分は、CGIで作成する方法と、固定HTMLを出力する方法（CMSの様な感覚。）があります。 ・前週との差については、商品をコード管理しないとスムーズにはできません。 ・過去週のランキング表示については、ランキング表示をCGIで行うのであれば、容易にできます。固定HTMLであれば、ファイル名規則やリンク機能を考える必要があるので、やや面倒です。 ・表示をCGIで行う場合、そのページ全体が1つのCGIとなります。他のHTMLに組み込んで表示する。と言う事はできません。 こんな条件が伴うと思います。 入力画面部分は直ぐにできますが、表示部分についてはご希望によって変わると思います。 ちなみに、データの持ち方は、 週の初めの日付,順位,商品名,商品へのURL,価格,メーカー,在庫数 などと持って挙げれば良いでしょうね。このCSVファイルを手作業で作成して、表示部分だけをCGIで行う。と言う手もありますが。（週の終わりは、単に+7して日付を正規化するだけで問題無いでしょう。） 本当は、メーカーや商品をコード化して、別データで持ち、URL情報などはCGI側でリンクした方が効率良いのですが、コード化する作業が大変かな。 とりあえず、入力部分のサンプルだけでも作成して公開しましょうか？
補足
度々のお返事ありがとうございます。 表示に関して、cgiで読み込んで表示でもhtmlに書き出して表示という形のいずれでも、特にこだわっておりませんが、サーバーへの負荷を考えると、htmlへの出力がいいのだろうとは感じています。 ただ、サーバーへの負荷が気になる程アクセスもないのが実情ですので…（トップページへ500PV/日）
- Dpop
- ベストアンサー率51% (279/544)
Web屋です。 質問の意図が今ひとつ理解できませんでした。 ・どの様なデータが入力される事を想定しているのか。（リンク情報も含めて。） ・どの様に表示されるのか。（特に、ＡＢＣＤの各項目の優先順位絡み。） を明確にして頂けないと、プログラムになりません。 入力データの持ち方と表示方法が分かれば作るのは簡単でしょう。 過去情報については、入力データに日付を持たせて、同じロジックで順位を計算されるだけで良いと思います。 （前回との対比をイメージされているのであれば、もう少し複雑なロジックが必要になるとは思いますが。）
補足
お返事ありがとうございます。 補足させていただきます。 まず、この質問をさせていただいたのは、このランキングの使用目的として、当店の店頭で販売される商品のランキングをWeb上に公開したいのです。 今まで月間で公開していたのですが、週間に変更しようと思い、少しでも手間を省きたいと思い、Web上で作成管理したいと思っています。 何年何月何日～何年の何月何日 を入力し、１位の入力欄、２位の入力欄・・・ というように、各順位の入力欄があり、そこに商品名と、価格、メーカー、在庫数、販売開始日等の項目を入力したいのです。 ２項目だけリンクしたいのが、商品名とメーカーです。 メーカーサイトと、商品詳細ページ（これは別で作成済みのぺーじです）です。 必要最低限なのが、商品名、価格、メーカー、在庫数 の４項目です。 前回とのランク上下に関しても、数値による計算は特に必要ありません。 前回とのランク上下の表示も、「できれば」欲しい機能ではありますが、必要というわけではありません。 これに関しても、手動のプルダウンメニューで「上」「下」「継続」「新規」という項目を選択し、そのまま表示されてもいいのですが、あらかじめセットしていた画像で表示されればベストです。 データの保存はcsvがベストです
補足
度々のご返信ありがとうございました まさか作成してもらえるとは思いませんでした… 設置したのですが５００のエラーが発生してしまい、perlチェッカーで調べてみた所、、どうもHTML::Templateモジュールがないようでした 専用サーバーの為、インストールするには自分でおこなわなければならない事と、telnetでsuでのログインするには実家から接続しなければならない事ですぐに対応ができません… サーバー管理会社に、事務所から接続するホスト名を伝えればなんとかなるので、さきほど事務所から作業できるように手配しました なんとか、HTML::Templateモジュールのインストールをがんばってみます。 また、ご報告させて頂きます。 本当にありがとうございました。