#!/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 スクリプト実例'; %> <% while(@col1) { my $col1 = shift @col1; my $col2 = shift @col2; %> <% for([$col1, $EG{$col1}], '', [$col2, $EG{$col2}]) { unless(ref $_) { print ""; next; } next unless $_->[0]; # 最終列 / 最終行 # 内容をクリーンアップ $_->[1] =~ s/\s*\.\s*$//s; $_->[1] .= '.'; %> <% } %> <% } %>
  [0]%>><%=$_->[0]%> <% if($_->[0] =~ /\.(htm|asp|ssi|xml)$/) { %>   ([0]%>>ソース) <% } %>
<%=$_->[1]%>