| |
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";
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";
EOL
}
print <<"EOL";
|
|