Реклама на сайте Advertise with us
Тема: А кто перепишет маленький php скрипт на перле? Или еще как.. Расширенный поиск по форуму
 
Внимание! В связи с устареванием топика эта страница была взята из кэша.
Автор Сообщение
Информация о пользователе 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 аську, я запрос на авторизацию послал, до сих пор не авторизовал - а тут и альтернативное предложение поступило icon_smile.gif

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 символов
Купить рекламу в этом месте!
Внимание! В связи с устареванием топика эта страница была взята из кэша.

Спонсор раздела Стань спонсором этого раздела!

Реклама на сайте Advertise with us

Опросы

Рецепт новогоднего блюда 2022



Обсудите на форуме обсудить (11)
все опросы »