in reply to Sorting Problem
Much, much cleaner.use CGI qw(:all); print header, start_html("alphabetical sorter"), h1("alphabetical sort +er"); if (param) { for my $key (sort param) { print strong($key), " = ", join(", ", param($key)), br; } } else { print start_form; print textfield($_), br for 1..5; print submit, end_form; } print end_html;
-- Randal L. Schwartz, Perl hacker
|
|---|