#!/usr/local/bin/perl asp <% # ページを、2 分割し、ファイル名を英字順にソートし表示します。 my(@col1, @col2); my @keys = sort keys %EG; @keys || die("\%EG が定義されていません。\ ./eg/global.asa が正確にコピーされているかどうか確認してください"); my $half = int(@keys/2) + 1; for(my $i =0; $i <= $#keys; $i++) { if($i < $half) { push(@col1, $keys[$i]); } else { push(@col2, $keys[$i]); } } $Response->Debug('col1', \@col1, 'col2', \@col2); $title = 'ASP スクリプト実例'; %>
"; next; } next unless $_->[0]; # 最終列 / 最終行 # 内容をクリーンアップ $_->[1] =~ s/\s*\.\s*$//s; $_->[1] .= '.'; %> |
<%=$_->[1]%> |
<% } %>