Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - Satell

Страницы: [1] 2
1
PHP / Что не так в скрипте работы через прокси
« : 27 Января 2008, 16:06:43 »
что-то не работает ни с одним прокси, которые живые

Код: [Выделить]

 $proxy = "203.144.144.163"; /*your proxy server address*/
 $port = "8080"; /*your proxy server port*/
 $host = "www.leader.ru";  /*the host you want to connect to*/
 $url = "/secure/who.html"; /*the document you want to connect to*/
 $fp = fsockopen($proxy, $port);
 fputs($fp, "GET {$url} HTTP/1.0\\r\\nHost: {$host}\\r\\n\\r\\n");
 while(!feof($fp)){
     $line = fgets($fp, 4000);
     print($line);
 }
 fclose($fp);
 ?>

2
Perl / Рекурсивное копирование ftp perl
« : 22 Сентября 2007, 17:55:30 »
Есть ли готовая ф-я, чтобы в перле NET::FTP скопировать рекурсивно папку с файлами и папками на сервер, аналог php putRecursive?

3
Perl / ftp ошибка
« : 05 Июля 2007, 17:13:49 »
Есть программка на моём хостинге выдаёт ошибку
can\'t call methd "login" on an undefined value в этой строчке
$ftp->login($username, $password);
на другом хостинге работает нормально

там где работает нормально стоят такие модули
Net::FTP          Net::FTP::A       Net::FTP::dataconn
Net::FTP::E      Net::FTP::I         Net::FTP::L

там где не работает
5.8.8::Net::FTP::E
5.8.8::Net::FTP::L
5.8.8::Net::FTPSSL

Net::FTP
Net::FTP::A       Net::FTP::dataconn       Net::FTP::E
Net::FTP::E       Net::FTP::I                   Net::FTP::L
Net::FTP::L       Net::FTPSSL
некоторые почему-то по два-три раза, можно ли как-нибудь без админа что-нибудь сделать?

Код: [Выделить]

use Net::FTP;

$hostname = \'login\';
$username = \'user\';
$password = \'pass\';

# Hardcode the directory and filename to get
$home = \'public_html\';
$filename = \'text.txt\';

# Open the connection to the host
$ftp = Net::FTP->new($hostname);         # construct object
$ftp->login($username, $password);       # log in

$ftp->cwd($home),"\\n";                   # change directory
print $ftp->ls($home),"\\n";        

$ftp->put(\'/home/public_html/xxx.org/cgi-bin/file.txt\');

$ftp->quit;

4
Perl / Поиск и замена ссылок
« : 04 Июля 2007, 20:40:27 »
$pagetext=текст html документа;
@links=массив ссылок;
@images=массив ссылок на картинки;

нужно заменить все теги  в документе $pagetext на теги с ссылками из массива @links в случайном порядке
и все теги на картинки из массива @images в случайном порядке, как это сделать?

вот например код который меняет, но во всём документе сразу и только на одну ссылку, а надо чтобы было много разных, можно ли сделать что-то типа find next, чтобы при каждом запуске оператора s/ / он находил следующую ссылку

Код: [Выделить]

$randout=$links[rand @links];
$randimg=$images[rand @images];
$pagetext =~ s/href=\\".*\\"/href=\\"$randout\\"/gi;
$pagetext =~ s///gi;

5
Perl / Скрипт начинает загружаться как файл броузером...
« : 02 Апреля 2007, 21:06:15 »
скрипт обработчик формы, выполняется частично, а потом эксплорер почему-то начинает его пытаться загрузить как файл, тоже самое происходит и в опере и в нетскейпе, два дня назад все работало нормально, потом во время работы над ДРУГИМ скриптом это началось и каким-то образом перекинулось на тот, с которым все нормально было, пытался увеличить тайм аут броузера KeepAliveTimeout выставил в реестре, но не помогло

6
Perl / Отправка почты
« : 15 Марта 2007, 20:04:51 »
почта не отправляется, ни через sendmail, ни через Net::SMTP на mail.ru, в чём проблема? мне нужно чтобы письмо выглядело, как будто отправлено из почтовой программы

#!/usr/bin/perl
open (SENDMAIL, "|/usr/sbin/sendmail -t") or die "sendmail not ready";
print SENDMAIL "From: John Doe \\n";
print SENDMAIL "To: Frank Smith print SENDMAIL "Reply-To: Frank Smith \\n";
print SENDMAIL "Subject: Test.\\n\\n";
print SENDMAIL "It\'s just test!!!";
close (SENDMAIL) or warn "sendmail didn\'t close nicely";

#!/usr/bin/perl
use Net::SMTP;
$smtp = Net::SMTP->new(\'smtp.mail.ru\'); # Ваш сервер!
$smtp->mail(\'joe@mail.ru\');
$smtp->to(\'frank@mail.ru\');
$smtp->data();
$smtp->datasend("To: frank@mail.run");
$smtp->datasend("n");
$smtp->datasend("Hello ADMIN!!!!!! :-)n");
$smtp->dataend();
$smtp->quit;

7
Perl / perl и mysql
« : 15 Марта 2007, 20:00:12 »
спасибо, книги, полезные, тока где взять пароль на архив, если я не пользуюсь irc?

8
Perl / perl и mysql
« : 15 Марта 2007, 15:15:49 »
нужны статьи, электронные книги, исходники по теме, в инете везде одно и тоже лежит, книги тока бумажные есть

9
PHP / Сетевые ф-и пхп, как сделать заголовок запроса?
« : 30 Января 2007, 14:10:33 »
вот есть програмка на перле, как её переписать на пхп?

use LWP::UserAgent;
use HTTP::Request::Common;
$url=$ARGV[0];
$ua=LWP::UserAgent->new or die;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
$ua->timeout(30);
$h1 = new HTTP::Headers
Accept => \'application/vnd.ms-excel, application/msword, image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-comet, */*\',
User_Agent => \'Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)\',
Referer => $ARGV[1];
$req1 = new HTTP::Request (\'GET\', $url, $h1);
$res=$ua->request($req1);

$page=$res->content;
print $page;

10
Бесплатный хостинг / фрихостинг с поддержкой сокетов
« : 29 Января 2007, 21:15:55 »
обменяюсь адресами таких хостингов
280-115-912

11
Бесплатный хостинг / фрихостинг с поддержкой сокетов
« : 29 Января 2007, 13:08:32 »
cgi или перл есть такой?

12
Perl / скрипт прокси сервера
« : 26 Января 2007, 20:53:48 »
вот нашел такой проксик на перле
http://www.jmarshall.com/tools/cgiproxy/
там в форму вводится адрес сайта, он отправляется скрипту через форму броузера и возвращается скриптом сайт, насколько я понял это не такой прокси, который слушает определённый порт, который можно прописать в настройках экплорера и серфить через него? возможен ли впринципе такой скрипт на перле, который будет слушать определенный порт?

13
Perl / скрипт прокси сервера
« : 25 Января 2007, 21:24:50 »
где взять?

14
Perl / Поиск, выдирание подстроки на Perl
« : 15 Января 2007, 22:13:33 »
А как следующую строку
Set-Cookie3: roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVmX2lu; expires=Sat, 13 Jan 2007 11:13:05 GMT; path=/;

преобразовать к такому виду?

Set-Cookie3: roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVmX2lu; path="/"; domain=vasya.com; path_spec; expires="2007-01-13 11:13:05Z"; version=0

добавить это
domain=vasya.com; path_spec;
version=0

и поменять формат даты, кстате что значет эта буква Z на конце даты?

15
Perl / Поиск, выдирание подстроки на Perl
« : 13 Января 2007, 01:44:19 »
есть такой текст



нужно выдрать из него строчки roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVmX2lu; expires=Sat, 13 Jan 2007 11:13:05 GMT; path=/;
и
fav=1168600385; expires=Sat, 12 Jan 2008 11:13:05 GMT; path=/;

и записать в такой файл cookies.txt с таким содержанием

#LWP-Cookies-1.0
Set-Cookie3: roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVmX2lu; expires=Sat, 13 Jan 2007 11:13:05 GMT; path=/;

Set-Cookie3: fav=1168600385; expires=Sat, 12 Jan 2008 11:13:05 GMT; path=/;


как это сделать на Perl?

Страницы: [1] 2