31
Perl / Помогите пожалуйста!
« : 21 Декабря 2007, 12:11:38 »
задание 5:
script.pl
#!/usr/bin/perl -w
use strict;
use CGI qw(standard);
my @sportmans;
map {
push @sportmans, param("second_name_$_") . "_" . param("result_$_");
} (1..4);
@sportmans = sort @sportmans;
print "Content-type: text/html\\n\\n";
print join ("
", @sportmans);
html:
form
script.pl
#!/usr/bin/perl -w
use strict;
use CGI qw(standard);
my @sportmans;
map {
push @sportmans, param("second_name_$_") . "_" . param("result_$_");
} (1..4);
@sportmans = sort @sportmans;
print "Content-type: text/html\\n\\n";
print join ("
", @sportmans);
html: