Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Интернет » В помощь вебмастеру » скрипты на perl

Модерирует : Cheery

lynx (03-01-2003 02:18): Тема себя изжила.  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2

   

tomi

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кто может написать хороший скрипт на perl не дорого, пишите

Всего записей: 7 | Зарегистр. 10-06-2002 | Отправлено: 07:09 20-06-2002
IntenT



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Скрипт чего?

Всего записей: 1584 | Зарегистр. 16-12-2001 | Отправлено: 09:21 20-06-2002
alexei



ibhacker
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
tomi
Ты лучше скажи, что писать надо

Всего записей: 647 | Зарегистр. 06-07-2001 | Отправлено: 09:22 20-06-2002
lynx



Advanced lynx
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
tomi
 

Цитата:
Кто может написать хороший скрипт на perl не дорого, пишите  

 
Спасибо, что разрешил
 
Вот неплохой скриптик:
 
/usr/bin/perl
 
print("Content-type:text/html\n\n");
 
print("I love Ru\.Board\!\n");
 


Всего записей: 11712 | Зарегистр. 08-05-2001 | Отправлено: 09:33 20-06-2002
tomi

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Скрипт галерееи картинок, желательно и рейтингом картинок
что то вроде реализованого на http://www.desktopwallpapers.ru/
нужен только скрипт а не дезайн, дезайн сам забацаю

Всего записей: 7 | Зарегистр. 10-06-2002 | Отправлено: 10:27 20-06-2002
DimoN



Tech administrator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
скажи сразу скоко денег  
что-бы не гнарод не разочаровывать
 

Цитата:
#!/usr/bin/perl  
 
print("Content-type:text/html\n\n");  
 
while (1){ print("I love Ru\.Board\!\n"); }
 
 

 



----------
Мы Баним с улыбкой :) ™

Всего записей: 7528 | Зарегистр. 19-04-2001 | Отправлено: 11:18 20-06-2002
Haze



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
map{print chr}unpack("A3"x16,'073032108111118101032082117046066111097114100033');
 
Добавлено
не смог удержаться

----------
Прибалтам сюда! http://www.baltic.ee

Всего записей: 470 | Зарегистр. 20-05-2001 | Отправлено: 12:06 20-06-2002
LelikV



Настоящий Джедай
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
lynx
DimoN
Haze
 
эх вы! издеваетесь над человеком!  
 
tomi
 
Давай тебе помогу:
 

Код:
 
Begin  
    Лес.елочка.create();  
    While not Лес.елочка.dead do  
    Begin  
     лес.елочка.age := лес.елочка.age+1;  
     if зима or лето then  
     begin  
         лес.елочка.plain := true;  
         лес.елочка.color := cl_green;  
     end;  
 
   метель.filename:='D:\Music\NSYNC - Bye Bye Bye.mp3';  
       метель.open;  
       sleep(1000);  
       метель.play;  
       мороз.укутать(лес.елочка);  
       GetMessage(H, лес.елочка.handle, 0, 0);  
       if h.uint = wm_замерзла then  
       dead := true;  
   end;  
 
   лес.заяц.create;  
   лес.заяц.трусливый := true;  
   лес.заяц.color := cl_gray;  
   x := лес.елочка.left;  
   y := лес.елочка.top;  
   While x  
   Begin  
     лес.заяц.left := x;  
     inc(x);  
     лес.заяц.top := y + round( abs(sin(x*pi/180)*10) );  
   end;  
 
   Winexec('wolf3d.exe /evil',0);  
 
   лес.елочка.cuttoclipbord;  
   Праздник.pastefromclipboard;  
   Праздник.елочка.skin.loadfromfile('нарядная.jpg');  
   For i:=1 to SizeOf(Праздник.елочка.радость) do  
      Прадзник.Дети.Настроение :  
      Прадзник.Дети.Настроение + Праздник.елочка.радость;  
  End.
 
 
 


----------
ушел на рыбалку

Всего записей: 4182 | Зарегистр. 17-12-2001 | Отправлено: 13:06 20-06-2002
Antuan



moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Задал
                  Вопрос
                                 Нам
                                            tomi'ичка
Про
           СкрИпты,
                             что
                                        на
                                               perl'е
"...В лесу родилась ёлочка..."
В ответ
                ему
                            пропели...


----------
EuRuChess

Всего записей: 10663 | Зарегистр. 10-04-2001 | Отправлено: 13:34 20-06-2002
lynx



Advanced lynx
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Antuan
 

Цитата:
В ответ  
                ему  
                            пропели...

 
Обижаешь - в ответ ему напрограммили, чего он, соб-но и просил
И даже разрешил
 
Добавлено
LelikV
 

Цитата:
Давай тебе помогу:  

 
Помог...
 
Добавлено
Ща нас модеры убьют и будут правы ...

Всего записей: 11712 | Зарегистр. 08-05-2001 | Отправлено: 13:43 20-06-2002
LelikV



Настоящий Джедай
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
lynx

Цитата:
Помог...  

 
 
могу еще, если хотите:
 

Код:
 
{ ********************************************************  
 
 Program :  OH TOPMO3  
 Version :  1.1  
 
************************************************************}  
 
program OH_TOPMO3;  
uses  
  CRT;  
 
const  
  MHOrO_TEKCTOB         = 15;  
  nPOPEXA               = nil;  
 
type  
  A_KTO_EBO_3HAET       = (HO_KTO_TO_BEgb_3HAET, BCE_ETO_BECbMA_CTPAHHO);  
  HyMEP                 = Byte;  
  CTPOKA                = String[15];  
  TEKCTuK               = record  
                            OHA: CTPOKA;  
                            TOPMO3: HyMEP;  
                          end;  
  TAM_ABTOMAT           = ^ABTOMAT;  
  ABTOMAT               = object  
                            MOE_X, MOE_Y: HyMEP;  
                            TEKCTOB_BCEBO: HyMEP;  
                            TEKCTbl: array[1..MHOrO_TEKCTOB] of TEKCTuK;  
                            KAKOE: HyMEP;  
                            TOPMO3uM: HyMEP;  
                            XPEH_EMy: TAM_ABTOMAT;  
 
                            constructor BOT_EBOHOE_MECTO(X, Y: HyMEP);  
                            procedure BOH_ETOT_XPEH(KOMy_XPEH: TAM_ABTOMAT);  
                            procedure ETO_CTPOKA(OHA_CAMA: CTPOKA;  
                                                 EE_TOPMO3: HyMEP);  
                            procedure BblBOg;  
                          end;  
 
  XMblPb                = object  
                            HE_KACEKOB: A_KTO_EBO_3HAET;  
                            KTO_TAM_CAMOE_TAKOE: TAM_ABTOMAT;  
 
                            constructor Hy_HuKAK_MHE_EBO_HE_HA3BATb;  
                            procedure B_nyTb;  
                            procedure u_EBO_TO3E  
(uMEHHO_ETO_MOXHATOE_OHO_CAMOE: TAM_ABTOMAT);  
                        end;  
 
 
procedure BAM_TEMHO;  
begin  
  ClrScr;  
end;  
procedure TOPMO3HyTb(CKOKO: HyMEP);  
begin  
  Delay(CKOKO);  
end;  
procedure rge_EMy_KBACuTb(EBO_X, EBO_Y: HyMEP);  
begin  
  GoToXY(EBO_X, EBO_Y);  
end;  
function WyXEP: Boolean;  
begin  
  WyXEP := KeyPressed;  
end;  
constructor ABTOMAT.BOT_EBOHOE_MECTO(X, Y: HyMEP);  
begin  
  MOE_X           := X;  
  MOE_Y           := Y;  
  TEKCTOB_BCEBO   := 0;  
  KAKOE           := 0;  
  TOPMO3uM        := 0;  
end;  
procedure ABTOMAT.BOH_ETOT_XPEH(KOMy_XPEH: TAM_ABTOMAT);  
begin  
  XPEH_EMy := KOMy_XPEH;  
end;  
procedure ABTOMAT.ETO_CTPOKA(OHA_CAMA: CTPOKA; EE_TOPMO3: HyMEP);  
begin  
  if TEKCTOB_BCEBO < MHOrO_TEKCTOB then begin  
    Inc(TEKCTOB_BCEBO);  
    with TEKCTbl[TEKCTOB_BCEBO] do begin  
      OHA    := OHA_CAMA; TOPMO3 := EE_TOPMO3;  
    end;  
  end;  
end;  
procedure ABTOMAT.BblBOg;  
begin  
  if TEKCTOB_BCEBO > 0 then begin  
    if TOPMO3uM = 0 then begin  
      Inc(KAKOE);  
      if KAKOE > TEKCTOB_BCEBO then KAKOE := 1;  
      rge_EMy_KBACuTb(MOE_X, MOE_Y);  
      with TEKCTbl[KAKOE] do begin  
         Write(OHA); TOPMO3uM := TOPMO3;  
      end;  
    end;  
    Dec(TOPMO3uM);  
  end;  
end;  
constructor XMblPb.Hy_HuKAK_MHE_EBO_HE_HA3BATb;  
begin  
  KTO_TAM_CAMOE_TAKOE := nPOPEXA; HE_KACEKOB := BCE_ETO_BECbMA_CTPAHHO;  
end;  
procedure XMblPb.u_EBO_TO3E(uMEHHO_ETO_MOXHATOE_OHO_CAMOE: TAM_ABTOMAT);  
begin  
  if KTO_TAM_CAMOE_TAKOE = nPOPEXA then begin  
    KTO_TAM_CAMOE_TAKOE := uMEHHO_ETO_MOXHATOE_OHO_CAMOE;  
    uMEHHO_ETO_MOXHATOE_OHO_CAMOE^.XPEH_EMy := uMEHHO_ETO_MOXHATOE_OHO_CAMOE;  
  end  
  else begin  
    uMEHHO_ETO_MOXHATOE_OHO_CAMOE^.XPEH_EMy := KTO_TAM_CAMOE_TAKOE^.XPEH_EMy;  
    KTO_TAM_CAMOE_TAKOE^.XPEH_EMy := uMEHHO_ETO_MOXHATOE_OHO_CAMOE;  
  end;  
end;  
procedure XMblPb.B_nyTb;  
var  
  ETOT_PAXuT: TAM_ABTOMAT;  
begin  
  ETOT_PAXuT := KTO_TAM_CAMOE_TAKOE;  
  while not WyXEP do  
    with ETOT_PAXuT^ do begin  
      BblBOg; ETOT_PAXuT := XPEH_EMy; rge_EMy_KBACuTb(1, 10);  
      TOPMO3HyTb(10);  
    end;  
end;  
procedure BAM_XOPOWO;  
begin  
  BAM_TEMHO;  
  WriteLN('OH TOPMO3 v1.0  Copyright The Future Hackers, 1993');  
  WriteLN(' . Written by Kirill Shirokov and Dmitry Moskovich, May 93');  
  WriteLN;  
end;  
var  
  EBO_3EHKu,EBO_HOC,EBO_POT,EBO_XBOCT      : ABTOMAT;  
  KACEKOB                                  : XMblPb;  
begin  
  with KACEKOB do begin  
    Hy_HuKAK_MHE_EBO_HE_HA3BATb;  
    with EBO_3EHKu do begin  
      BOT_EBOHOE_MECTO(1, 1);  
      ETO_CTPOKA('-  -', 20);  
      ETO_CTPOKA('o  o', 3);  
      ETO_CTPOKA('O  O', 16);  
      ETO_CTPOKA('0  0', 23);  
      ETO_CTPOKA('O  O', 14);  
      ETO_CTPOKA('o  o', 5);  
    end;  
    u_EBO_TO3E(@EBO_3EHKu);  
    with EBO_HOC do begin  
      BOT_EBOHOE_MECTO(1, 2);  
      ETO_CTPOKA(' .. ', 21);  
      ETO_CTPOKA(' oo ', 16);  
    end;  
    u_EBO_TO3E(@EBO_HOC);  
    with EBO_POT do begin  
      BOT_EBOHOE_MECTO(1, 3);  
      ETO_CTPOKA(' -- ', 22);  
      ETO_CTPOKA(' == ', 4);  
      ETO_CTPOKA('-==-', 6);  
      ETO_CTPOKA('/--\', 19);  
      ETO_CTPOKA('----', 16);  
      ETO_CTPOKA('\==/', 21);  
      ETO_CTPOKA('----', 3);  
    end;  
    u_EBO_TO3E(@EBO_POT);  
    BAM_TEMHO;  
    B_nyTb;  
    BAM_XOPOWO;  
  end;  
end.  
 


----------
ушел на рыбалку

Всего записей: 4182 | Зарегистр. 17-12-2001 | Отправлено: 13:57 20-06-2002
tomi

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Сколько нужно ??? в рамках разумного

Всего записей: 7 | Зарегистр. 10-06-2002 | Отправлено: 14:09 20-06-2002
Drinker



Ай Маладца
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
begin  
    uMEHHO_ETO_MOXHATOE_OHO_CAMOE

ну что тут еще скажешь?


----------
- Скажите, а что заставляет вас напиваться каждый вечер?
- Ничего не заставляет, я доброволец...

Всего записей: 29494 | Зарегистр. 30-01-2002 | Отправлено: 14:11 20-06-2002
roma



skydiver
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Lelikv это не пёрл!

----------
ну и на кой мне эта подпись?

Всего записей: 2891 | Зарегистр. 10-09-2001 | Отправлено: 14:12 20-06-2002
lynx



Advanced lynx
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
roma
 

Цитата:
Lelikv это не пёрл!

 
Да, да, этот диалект мы плохо понимам, ты нам на перле расскажи и лучше у себя, пока нас тут не прибили.

Всего записей: 11712 | Зарегистр. 08-05-2001 | Отправлено: 14:24 20-06-2002
roma



skydiver
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
я понял! вот как лёлик пополняет темы в форуме юмор!
человек придёт напишите/зацените, лёлик на хохмит в теме, а потом (с умным видом) говорит "всё - переносим тему в юмор"...

----------
ну и на кой мне эта подпись?

Всего записей: 2891 | Зарегистр. 10-09-2001 | Отправлено: 15:54 20-06-2002
Antuan



moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LelikV

Цитата:
могу еще, если хотите:  

И ЭТО будет работать?
roma

Цитата:
Lelikv это не пёрл!

а тебе тоже самое, только с перламутровыми пуговицами?

----------
EuRuChess

Всего записей: 10663 | Зарегистр. 10-04-2001 | Отправлено: 17:59 20-06-2002
ivank



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Antuan

Цитата:
И ЭТО будет работать?  
А почему нет? (то что второе).

----------
ivank
http://ivank.oszone.net

Всего записей: 553 | Зарегистр. 24-01-2002 | Отправлено: 20:13 20-06-2002
Alexander Ipp



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
tomi

Цитата:
Сколько нужно ??? в рамках разумного  

Ну пара-тройка штук баксов.
Вообще заказ ты делаешь.
А окружающие уже смотрят, браться за данную сумму или нет.
И сумму называешь ты.

Всего записей: 1943 | Зарегистр. 20-08-2001 | Отправлено: 08:40 21-06-2002
LelikV



Настоящий Джедай
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Antuan

Цитата:
И ЭТО будет работать?  

 
 
это работает  
 

Цитата:
(то что второе)



----------
ушел на рыбалку

Всего записей: 4182 | Зарегистр. 17-12-2001 | Отправлено: 12:23 21-06-2002
   

Страницы: 1 2

Компьютерный форум Ru.Board » Интернет » В помощь вебмастеру » скрипты на perl
lynx (03-01-2003 02:18): Тема себя изжила.


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2020

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru