mmc и базар

[Ladon]

Набор вспомогательных алиасов для работы с базаром.
Получается несколько удобнее чем реализовано на уровне сервера.

при просмотре базара все лоты попадают в выборку, потом при вводе команды "лот" выдается информация о следующем лоте.
"лотыочистить" убирает из выборки все что было.
очень даже удобно искать себе брасы крафченые.


my @lot = ();
my @price = ();

trig {

$lot[$#lot+1] = $1;
$price[$#price+1] = $2;

} '^\[\s?(\d+)\].*?(\d+)$', '1000fn:bazar';

alias {
@lot = ();
@price = ();
} "лотыочистить";

alias {
my $l = shift(@lot);
my $p = shift(@price);
echo ("ЛОТ $l - цена $p");
sendl("базар и $l");
} "лот";

[Переплут]

вот оператор shift ты успешно юзаешь, а почему не юзаешь push где это нужно было (в выше приведенном коде)?

[lexik]

и вообще - хэшами будет более продуктивно хранить такие данные, памяти меньше жрать будут, ну и доступ более удобный...

[Ladon]

делалось в срочном порядке для решения проблемы поиска на базаре.
можно было конечно подумать, но было лень, а решить было надо что бы избежать монотонной работы.

[Urik]

...и все трое на умняке таком сидят, аж жуть! )