<% my $dbi = $nvar{dbi}; RESULT: { %>
<% if($var{total} == 0) { %>

該当するデータが見つかりませんでした。

<% last RESULT; } if($var{html} ne 'list') { %>

該当するデータが <% print $var{total} %> 件見つかりました。

<% } %>

<% print ($var{html} eq 'list' ? '一覧表示' : '検索結果') %>

<% # ページ my $pagewid = 9; my $pagemin = ($var{page} - $pagewid > 0) ? $var{page} - $pagewid : 1; my $pagemax = ($var{page} + $pagewid < $var{numpage}) ? $var{page} + $pagewid : $var{numpage}; my $searchuri = "search.cgi?srcsid=$var{srcsid}&searchnum=$var{searchnum}"; print "
ページ : "; print "..." if($pagemin > 1); foreach my $i ($pagemin .. $pagemax) { print (($i == $var{page}) ? "$i" : "$i"); } print "..." if($pagemax < $var{numpage}); print " ( 全 $var{numpage} ページ )
\n"; # 表示件数の変更 print "
", "表示件数を
HTML # 表 my $nummin = ($var{page} - 1) * $var{searchnum} + 1; my $nummax = $var{page} == $var{numpage} ? $var{total} : $var{page} * $var{searchnum}; my ($DID, $RID, $STATE, $DATE, $NAME, $EMAIL, $TITLE, $MESSAGE) = (0 .. 7); my $state = $dbi->{misc}{sysprint_state}; my $active = $dbi->{db}{sysstate}{active}; my ($date, $message); foreach my $data (@{ $var{list} }) { %>
<% ($date = $data->[$DATE]) =~ s/^([\d-]+ [\d:]+).*$/$1/; print $date %> [$RID]" %>" ># <% print $data->[$DID] %> <% print $data->[$NAME] %> さん <% if($data->[$STATE] ne $active) { %> ( <% print $state->[ $data->[$STATE] ] %> )<% } %>
<% print $data->[$TITLE] %>
<% ($message = $data->[$MESSAGE]) =~ s/\n/
/g; print $message; %>
<% } %>

ファイル書き出し

形式 : CSV形式 タブ区切り形式
改行コード : Windows (CR+LF) Macintosh (CR)
<% } # BLOCK "RESULT" %>