Программирование > Perl

Помогите пожалуйста!

<< < (2/3) > >>

commander:
задание 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




Спортсмен 1 : результат 1:

Спортсмен 2 : результат 2:

Спортсмен 3 : результат 3:

Спортсмен 4 : результат 4:

pupok:
огромное спасибо:)

commander:
pupok
))) балбес ты.. )))

я тебе скорее навредил..

hanslinger:

--- Цитировать ---блять, вот преподам надо за это руки отрезать!!!
какой в пезду "Первичный ключ" !!!??? Что за терминология?
--- Конец цитаты ---

это еще ничего
тут где-то про js проскакивала тема, там препод вообще какие-то странные вещи спрашивал

commander:
hanslinger
пидарасов наберут в вузы блять! а потом от туда какие выходят .. что хоть в осадок выподай...

Навигация

[0] Главная страница сообщений

[#] Следующая страница

[*] Предыдущая страница