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

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

Сообщения - DrumSe

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

Perl / IRC + проокси

« : 18 Августа 2004, 02:37:49 »

Как IRC бота подключить к ирке через прокси сервер???
Заранее спасибо!

Perl / RECV + SOket

« : 05 Августа 2004, 13:27:06 »

Дык проблема же в другом... Он на команды не попорядку отвечает....
Enter a command:
help
220 http://www.server.ru FTP server ready.
Enter a command:
просто ентер нажимаешь и вот хелп высвечивается

Perl / RECV + SOket

« : 05 Августа 2004, 00:37:30 »

2NeoNox
ошибся, извини...
ты запути скрипт у себя и увидишь что происходит...

Perl / RECV + SOket

« : 05 Августа 2004, 00:01:41 »

Цитировать

select((select($server), $| = 1)[0]); # вкл. буферезацию

выкл. а не вкл.

Все таки вкл. ...

Нет я включал inet.pl http://www.webscript.ru 21 ---> к примеру
И дальше вводил help

#!/usr/bin/perl -w
use Socket;
$str = @ARGV;
if ($str != "2") #если аргументы полученные из командной строки не равны 2 то пишем ошибку
{
print "usage: inet.pl adress port\\n";
}
$host=$ARGV[0];
$port=$ARGV[1];

socket($server, PF_INET, SOCK_STREAM, getprotobyname(\'tcp\')); #СОздаем сокет
$inet_addr = inet_aton($host);
$paddr = sockaddr_in($port, $inet_addr);
connect($server,$paddr) || die "Error while connecting:$!\\n";
select((select($server), $| = 1)[0]); # вкл. буферезацию
print "Connection established, maybe\\n";
# А теперь вводим команды:
while (1)
{
print "Enter a command:\\n";
$cmd = ;
chomp $cmd;
print $server "$cmd\\n";
recv($server,$text,500,0);
print $text;

}
close ($server);#закрываем сокет

Perl / RECV + SOket

« : 03 Августа 2004, 17:08:50 »

#!/usr/bin/perl -w
use Socket;
$str = @ARGV;
if ($str != "2")
{
print "usage: inet.pl adress port\\n";
}
$host=$ARGV[0];
$port=$ARGV[1];

socket($server, PF_INET, SOCK_STREAM, getprotobyname(\'tcp\'));
$inet_addr = inet_aton($host);
$paddr = sockaddr_in($port, $inet_addr);
connect($server,$paddr) || die "Error while connecting:$!\\n";
select((select($server), $| = 1)[0]);
print "Connection established, maybe\\n";
while (1)
{
   print "Enter a command:\\n";
   $cmd = ;
   chomp $cmd;
   print $server "$cmd\\n";
   recv($server,$text,500,0);
   print $text;


}
close ($server);