Внимание! В связи с устареванием топика эта страница была взята из кэша.
|
bubo
Зарегистрирован: 21.01.03
Сообщения: 351
|
Добавлено: 21/11/03 в 12:53
|
|
Есть рандомный ротатор десков, нужно чтобы он был на перле, или на жабе на худой конец. Главно шоб функция была та же. Берет базу, мешает ее, вытягивает первых n десков, вставляет на страницу.
function descr($k) { $d = file("data.txt"); $c_d = count($d); for ($i = 0; $i < $c_d; $i++) { mt_srand((double)microtime()*1000000); $n = mt_rand(0, $c_d - 1); $tmp = $d[$n]; $d[$n] = $d[$i]; $d[$i] = $tmp; }
for($i=0;$i<$k;$i++) { $tmp = trim($d[$i]); print "<div>"; print $tmp; print "</div>"; } }
вставка descr(15)
кстати, если кто может предложить улучшение функциональности (можно за небольшую плату ;) ) - велкам. Меня интересует чтобы можно было вставлять в разные места морды сиджа - серии десков из одной базы и чтобы они не повторялись.
|
K началу
|
|
|
Weber
Зарегистрирован: 03.10.03
Сообщения: 1276
|
Добавлено: 21/11/03 в 20:31
|
|
ICQ# 111833551 стучись.... разберем %)
|
K началу
|
|
|
perlmaster
Зарегистрирован: 27.02.03
Сообщения: 455
|
Добавлено: 22/11/03 в 01:55
|
|
Код: | sub descr {
my $desks=$_[0];
open(DESCR,"data.txt"); my @descr_array=<DESCR>; close(DESCR);
for (my $i=0; $i < @descr_array; $i++) { my $rnd=int(rand(@descr_array)); my $tmp=$descr_array[$rnd]; $descr_array[$rnd]=$descr_array[$i]; $descr_array[$i]=$tmp; }
for (my $i=0; $i < $desks; $i++) { my $tmp=chomp($descr_array[$i]); print "<div>".$tmp."</div>"; } }
|
На Perl'е это вроде так будет. Не отвечаю за сиюминутную работоспособность, т.к. на больную голову писалось ;) Если есть еще вопросы - мылом.
P.S. Вызывать функцию так же, как и на PHP
|
K началу
|
|
|
Pentarh
Зарегистрирован: 05.04.03
Сообщения: 1377
|
Добавлено: 22/11/03 в 03:30
|
|
Ну что ж ты, умник, людям не даешь работать-то? (я не про себя)
|
K началу
|
|
|
Weber
Зарегистрирован: 03.10.03
Сообщения: 1276
|
Добавлено: 23/11/03 в 09:34
|
|
Pentarh писал: | Ну что ж ты, умник, людям не даешь работать-то? (я не про себя) |
солидарен %) студент, наверное %))
|
K началу
|
|
|
perlmaster
Зарегистрирован: 27.02.03
Сообщения: 455
|
Добавлено: 23/11/03 в 11:54
|
|
Товарищи профессиональные рабочие над таким детским скриптом еще работать собираются? Ну-ну, успехов...
|
K началу
|
|
|
Pentarh
Зарегистрирован: 05.04.03
Сообщения: 1377
|
Добавлено: 23/11/03 в 14:23
|
|
Ну я не за себя сказал. Раньше меня тоже такие супер-неебацца умники работы лишали. Ну там задачи по серъезнее были. Ты бы хоть за свои услуги попросил бы что-нибудь. А то привыкнет народ (bubo ей-богу не в обиду, я про общий случай говорю), что все везде просто так. Каждая услуга стоит денег. Если она достается бесплатно, то повышается уровень инфляции(серъезно). Так что или требуй чего-то или дай другим поработать :-).
Я конечно тоже выкладываю некоторые скрипты на общее обозрение. Но тогда, когда мне помогли. С тем же классом по созданию тумб. В топике составили много кусков кода с народом, я соединил и выложил. Короче, это другой случай :-)
|
K началу
|
|
|
Jam
Зарегистрирован: 01.10.03
Сообщения: 221
|
Добавлено: 23/11/03 в 18:03
|
|
дело говорит!
|
K началу
|
|
|
perlmaster
Зарегистрирован: 27.02.03
Сообщения: 455
|
Добавлено: 23/11/03 в 18:54
|
|
Товарищи, вы укурились? Что за херня понеслась? У меня этот скрипт переписать заняло 3 минуты. Меня это не напрягло. Я захотел помочь человеку, потому что мне это не сложно. И денег мне за это не надо, потому что это не та работа, за такую херню брать деньги стыдно. Кого-то собственно ебет, что я могу помочь человеку просто так, а он не может? Значит он неправильно выбрал род своей деятельности. Вы тут сидите для того чтобы навязывать свои услуги или обсуждать "Софт, Скрипты, Программинг, Сервисы"? Промоутить свои программерские услуги наверное не здесь лучше... Бля, вы это еще демпингом назовите... И пожалуйтесь Киту - какой-то мудак клиентов среди бела дня отбивает. Детский сад какой-то...
|
K началу
|
|
|
Pentarh
Зарегистрирован: 05.04.03
Сообщения: 1377
|
Добавлено: 23/11/03 в 19:07
|
|
Ну ладно, может я перегнул палку. Если что, извиняйте.
Но я думаю смысл понятен :-)
|
K началу
|
|
|
bubo
Зарегистрирован: 21.01.03
Сообщения: 351
|
Добавлено: 23/11/03 в 22:22
|
|
2perlmaster: сенкс за помощь. Еще не попробовал в работе, времени не было...
Ну что вы в самом деле ругаетесь? Скрипт то конечно простой, вот если бы еще что-то дополнительное привесить - то я и заплатил бы немного. Я в общем-то и за переписку мог бы заплатить, если срочно нужно было бы. А так ведь кинул Weber аську, я запрос на авторизацию послал, до сих пор не авторизовал - а тут и альтернативное предложение поступило
|
K началу
|
|
|
Weber
Зарегистрирован: 03.10.03
Сообщения: 1276
|
Добавлено: 24/11/03 в 04:54
|
|
Вообще я собирался над улучшением функциональности работать... %) А возмутился я из-за того, что в последнее время у народа складывается впечатление, что все должны им скрипты нахаляву писать, ведь это так просто.... Вон даже с ГФЮ стучатся.... тоже избалованны уже.... раньше такого не было...
Давайте уважать друг друга...
|
K началу
|
|
|
perlmaster
Зарегистрирован: 27.02.03
Сообщения: 455
|
Добавлено: 25/11/03 в 22:31
|
|
Weber писал: | А возмутился я из-за того, что в последнее время у народа складывается впечатление, что все должны им скрипты нахаляву писать, ведь это так просто.... Вон даже с ГФЮ стучатся.... тоже избалованны уже.... раньше такого не было...
Давайте уважать друг друга... | Это тема для трепа, а не для раздела "программирование". У тебя складывается впечатление - это твои проблемы. К тебе кто-то там стучится? Мне похуй. У тебя раньше чего-то там не было? Мне плевать. Тебе не нравится, что я помогаю людям? Иди нахуй, быстрыми шагами. Я не понимаю, что может вызвать такие позывы, кроме зависти. Я тебя очень уважаю, но уж извини, не обязан свои посты проводить через твою цензуру. Что хочу - то и пишу, модераторы рассудят, но в любом случае, ИМХО смысла в моем посте в разы больше, чем в твоей рекламе, как ни странно. Поэтому просьба, если уважаешь собеседника - оставляй свои впечатления при себе. Иначе иди нахуй, потому что ваши реплики, товарищи, очень похожи на помесь жлобства, зависти и циничного собственничества. Надеюсь, я ошибаюсь. Я кончил.
|
K началу
|
|
|
Текстовая реклама в форме ответа Заголовок и до четырех строчек текста Длина текста до 350 символов Купить рекламу в этом месте! |
Внимание! В связи с устареванием топика эта страница была взята из кэша.
|