#!/usr/bin/perl print "Content-type: text/html\n\n"; #HPのフルパス #$url = "http://www.treasures-jp.com/e-surugadai"; $url = ""; require 'su_sub.pl'; $topnavi = "$url/mainimg/top_r01_c01.gif"; ######################################################################### #フォームから送られてきた内容をデコードする 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//>/g; #htmlタグを禁止する $value =~ s/\r//g; #改行コードの\rを消去 $FORM{$name} = $value; } ### HTMLの表示# ################################################################### &starthp; print <<"EOL";

EOL ####################################### ##### what's new deta 処理ここから $start = 0; #最初の行+表示する行数 $line = 3; $end = $start+$line; #データを読み込む open(IN,"csvdata/what.csv"); @lines=; close(IN); #@lines=reverse(@lines); #データをNo降順にソートする @lines = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @lines; #指定行文のデータを表示 for($i=$start;$i<=$end;$i++){ last if($i > $#lines); #もし指定行の前にデータがなくなったら終了 $data=$lines[$i]; chop($data); ($number,$today,$title,$subcontents,$contents)=split(/\,/,$data); #ここからwhat's newデータ表示 print <<"EOL";

$today
$title

$subcontents

EOL } ##### ここまで print <<"EOL";

EOL ##### 新刊話題の本 deta 処理ここから $start = 0; #最初の行+表示する行数 $line = 29; $end = $start+$line; #データを読み込む open(IN,"csvdata/new.csv"); @lines=; close(IN); #@lines=reverse(@lines); #データをNo降順にソートする @lines = sort { (split(/\,/,$b))[0] <=> (split(/\,/,$a))[0] } @lines; #指定行文のデータを表示 for($i=$start;$i<=$end;$i++){ last if($i > $#lines); #もし指定行の前にデータがなくなったら終了 $data=$lines[$i]; chop($data); ($number,$today,$kind,$title,$isbn,$com)=split(/\,/,$data); #ここから新刊話題の本データ表示 print <<"EOL";

◆	$com
	『$title』

EOL } print <<"EOL";

EOL &endhp; print "\n"; exit;