Показать сообщение отдельно
Старый 03.10.2011, 17:06   #3
GreG
что бы тут написать?
 
Аватар для GreG
 
Регистрация: 18.04.2007
Сообщений: 93
Thumbs up

Цитата:
Сообщение от TTЛ Посмотреть сообщение
Могу сказать одно: мы учимся в одном институте на одном потоке.
с чего, вдруг, такое умозаключение?
кстати говоря, может кому пригодиться, мне тут помогли, вроде заработало)
Код:
#!/usr/bin/perl
 
use 5.8.8; use strict; use warnings;
 
my ($key);
 
my %rost = (
    'Ivanov' => 176,
    'Petrov' => 165,
    'Sidorov' => 190,
    'Razuvaev' => 186,
    'Lebedev' => 174,
    'Moroz' => 168,
    'Vase4kin' => 182,
    'Yudin' => 180
);
 
foreach $key ( sort { $rost{$b} <=> $rost{$a} } keys %rost ) {
    print "$key $rost{$key}\n";
}

sleep 20;
 
exit 0;
Цитата:
Сообщение от TTЛ Посмотреть сообщение
для себя сделал заключение: Perl - никчемный язык.
у меня одногруппник так чуть ли не сразу сказал) и кстати тоже пришел к этому выводу, когда задание взялся делать)
__________________
Как ты к человеку, так и он к тебе...
GreG вне форума   Ответить с цитированием