#!/usr/local/bin/perl5 asp <% # split the page in 2 for nice formatting and english style sorting my(@col1, @col2); my @keys = sort keys %EG; my $half = int(@keys/2); for(my $i =0; $i <= $#keys; $i++) { if($i < $half) { push(@col1, $keys[$i]); } else { push(@col2, $keys[$i]); } } $Response->Debug(\@col1, \@col2); $title = 'Example ASP Scripts'; %>
"; next; } next unless $_->[0]; # last col / last row # clean up the descriptions $_->[1] =~ s/\s*\.\s*$//s; $_->[1] .= '.'; %> |
<%=$_->[1]%> |
<% } %>