Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

perl скрипт

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Журнал Xakep] >> perl скрипт

Имя

Сообщение

<< Старые топики Новые топики >>

perl скрипт - 2005-09-08 15:23:25

Parlament

Сообщений: 160
Оценки: 0
Присоединился: 2005-01-08 17:32:38

народ! срочно нужен скрипт, такой как в БК inf.pl
Пример его работы: http://sandcity.combats.ru/inf.pl?login=хакер
Я с perl''ом дел никада ни имел… мож кто поможет… нужен такойже скрипт [:pray:][:pray:]

Post #: 1

perl скрипт - 2005-09-08 19:30:50

jEnizix

Сообщений: 1797
Оценки: 0
Присоединился: 2004-12-30 11:03:50

из принцыпа нибуду заходить на этот бк… а че именно скрипт делает?

Post #: 2

perl скрипт - 2005-09-08 20:12:37

Parlament

Сообщений: 160
Оценки: 0
Присоединился: 2005-01-08 17:32:38

скрипту передается переменая(с логином) через стороку браузера и выводица соответствующая страница…

Post #: 3

perl скрипт - 2005-09-08 20:43:32

][eaL

Сообщений: 417
Оценки: 0
Присоединился: 2004-03-28 15:47:07

quote:

—————- Цитата: Дата:08.09.2005 20:12:37, Автор:Parlament ::
скрипту передается переменая(с логином) через стороку браузера и выводица соответствующая страница…
—————-

И че тут сложного???

Post #: 4

perl скрипт - 2005-09-08 20:47:59

Parlament

Сообщений: 160
Оценки: 0
Присоединился: 2005-01-08 17:32:38

quote:

—————- Цитата: Дата:08.09.2005 20:43:32, Автор:][eaL ::
quote:

—————- Цитата: Дата:08.09.2005 20:12:37, Автор:Parlament ::
скрипту передается переменая(с логином) через стороку браузера и выводица соответствующая страница…
—————-

 И че тут сложного???
—————-

вот раз не сложно взял бы и написал!!!! я ваще perl никада в глаза не видел!!!

Post #: 5

perl скрипт - 2005-09-08 22:39:50

Nitrex

Сообщений: 404
Оценки: 0
Присоединился: 2004-09-12 23:24:27

пхп рулит =)
<?
if ($_GET['page']=="index")
{
Header("Lосаtiоn: http://www.host.com/");
}
?>

Post #: 6

perl скрипт - 2005-09-09 11:23:32

][eaL

Сообщений: 417
Оценки: 0
Присоединился: 2004-03-28 15:47:07

quote:

—————- Цитата: Дата:08.09.2005 22:39:50, Автор:Nitrex ::
пхп рулит =) &amp;lt;? if ($_GET['page']==&amp;quot;index&amp;quot;) { Header(&amp;quot;Lосаtiоn: http://www.host.com/&amp;quot;); } ?&amp;gt;
—————-

Хе-хе:)) Ты б еще на ASP написал:))

Post #: 7

perl скрипт - 2005-09-09 14:04:21

Parlament

Сообщений: 160
Оценки: 0
Присоединился: 2005-01-08 17:32:38

Блин ну че никто написать не может??? или впадлу?

Post #: 8

perl скрипт - 2005-09-09 14:16:46

jEnizix

Сообщений: 1797
Оценки: 0
Присоединился: 2004-12-30 11:03:50

А тебе именно на перле? может на пхп сойдет?

Post #: 9

perl скрипт - 2005-09-09 14:22:12

Great

Сообщений: 1046
Оценки: 0
Присоединился: 2005-08-11 19:41:36

Я не понял, типа редиректа чтоль? Тогда держи:

 #!perl use CGI qw (:standard) print "1осаtiоn: ".param('href')"\r\n\r\n"; 

Вызвать так: redirect.pl?href=http://www.google.ru/

Post #: 10

perl скрипт - 2005-09-09 14:53:10

jEnizix

Сообщений: 1797
Оценки: 0
Присоединился: 2004-12-30 11:03:50

Откопал у себя на винте древний учебник CGI вот из него я получил такой твет на твой вопрос:

#!/usr/bin/perl print "Content-Type: text/html\n\n"; sub urldecode{ local($val)=@_; $val=~s/\+/ /g; $val=~s/%([0-9A-H]{2})/pack('C',hex($1))/ge; return $val; } @formfields=split /&/,$ENV{'QUERY_STRING'}; foreach(@formfields){ if(/^name=(.*)/) { $name=urldecode($1); print "Произошла ошибка: Персонаж \"$name\" не найден…\n"; } }

гы… на пхп:

<? if(!empty($_GET['name'])) echo "Произошла ошибка: Персонаж ".$_GET['name']." не найден…\n"; ?>

На перле я не пишу… пробывал пару раз ( и то юзая этот учебник )…

Post #: 11

perl скрипт - 2005-09-09 15:03:55

Great

Сообщений: 1046
Оценки: 0
Присоединился: 2005-08-11 19:41:36

quote:

—————- Цитата: Дата:09.09.2005 14:22:12, Автор:Great ::
Я не понял, типа редиректа чтоль? Тогда держи:  #!perl use CGI qw (:standard) print &amp;quot;1осаtiоn: &amp;quot;.param('href')&amp;quot; &amp;quot;;  Вызвать так: redirect.pl?href=http://www.google.ru/ 
—————-

Извини, не то =))
Я понял че те надо
Держи:

 #!perl use CGI qw (:standard) $name=param('name'); if( $name =~ /|/g or $name =~ /./g ) # не помню оператор ИЛИ - то ли 'or' то ли '||' { echo "Нас пытаются похакать ;))"; exit; } # например паги юзверей находятся в users/USERNAME.html open(FILE, "users/$name.html") or die("Персонаж $name не найден!"); while(<FILE>) { print; } close(FILE); 

Вот [sm=9.gif]

Post #: 12

perl скрипт - 2005-09-09 17:32:22

Parlament

Сообщений: 160
Оценки: 0
Присоединился: 2005-01-08 17:32:38

[blockquote]
Извини, не то =))
Я понял че те надо
Держи:

 #!perl use CGI qw (:standard) $name=param('name'); if( $name =~ /|/g or $name =~ /./g ) # не помню оператор ИЛИ - то ли 'or' то ли '||' { echo &amp;quot;Нас пытаются похакать ;))&amp;quot;; exit; } # например паги юзверей находятся в users/USERNAME.html open(FILE, &amp;quot;users/$name.html&amp;quot;) or die(&amp;quot;Персонаж $name не найден!&amp;quot;); while(&amp;lt;FILE&amp;gt;) { print; } close(FILE); 

Вот [sm=9.gif]
—————-[/blockquote]

Блин пишет Internal Server Error…

Post #: 13

perl скрипт - 2005-09-09 18:07:48

Nitrex

Сообщений: 404
Оценки: 0
Присоединился: 2004-09-12 23:24:27

Во-первых: засунь скрипт в папку cgi-bin
Во-вторых: поставь chmod 755 на скрипт

Post #: 14

perl скрипт - 2005-09-09 19:13:13

-ddd-

Сообщений: 4918
Оценки: 42
Присоединился: 2005-05-23 17:20:41

Мда но и народ пашел,когда вЫ свой сайт регите вам инфа дается,и там пишут что все скриптам надо параметр вЫставлять chmod 755,если тЫ пользуешся фтп клиентом то надо поставить что-то вроде етого (Непомню какая буква:) но корочь вЫставляй под ней галку)rx-rx-rx кажЫсь так..я букф не помню точно.А в следуший раз читай что дают=))Чтоб потом вопросом глупЫх меньше бЫло.

Post #: 15

perl скрипт - 2005-09-09 19:21:17

Parlament

Сообщений: 160
Оценки: 0
Присоединился: 2005-01-08 17:32:38

да все у мня нармальна с правами!!!!

Post #: 16

Страниц: [1]

Все форумы >> [Журнал Xakep] >> perl скрипт

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.