Re: пара отвлеченных вопросов, офтопик
> IO::Socket::INET гораздо проще в работе.
>
> В Птн, 16/06/2006 в 20:46 +0300, Sergey Brutsky пишет:
> > можно как-то научить print'ы писать в сокет?
> >
> > !/usr/bin/perl -W
> >
> > use Socket;
> >
> > socket(Socket_Handle, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
> > connect(Socket_Handle, sockaddr_in( 80, inet_aton("213.180.204.8")));
> > select Socket_Handle; $| = 1;
> > print Socket_Handle "GET / HTTP1/.0\n\n";
> > print STDOUT <Socket_Handle>;
> > close(Socket_Handle);
тут проблема: пишется некий скрипт для системы где стоит Perl5.0,
в котором много чего нет. в частности use warnings, не говоря уж о
библиотеках.
например на строку:
connect($socket, sockaddr_in(80, inet_aton("127.0.0.1")));
тот перл ругается так:
Bad symbol for filehandle at /path/to...
===
use Socket;
my $socket;
socket($socket, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
connect($socket, sockaddr_in(80, inet_aton("127.0.0.1")));
===
хотя этот код работает в perl 5.8
я жду, мне обещали shell на ту машинку, там и разберемся.
варианты проапгрейдить перл не подходят, потому что там стоит BSD, а у
нее как обычно с обновлениями траблы и они на это не пойдут :(
как появится шелл буду разбираться какие либы можно обратно портировать
на тот старый перл, а так же какие изменения в перле произошли за это
время. мне там скрипт несложный функционально сваять надо, думаю
справлюсь...
Reply to: