#!/usr/bin/perl /usr/bin/asp-perl <% # split the page in 2 for nice formatting and english style sorting my(@col1, @col2); my @keys = sort keys %EG; @keys || die("\%EG is not defined, make sure you copied ./eg/global.asa correctly"); 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 = 'Example ASP Scripts'; %>
"; next; } next unless $_->[0]; # last col / last row # clean up the descriptions $_->[1] =~ s/\s*\.\s*$//s; $_->[1] .= '.'; %> |
<%=$_->[1]%> |
<% } %>