> 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, а у нее как обычно с обновлениями траблы и они на это не пойдут :( как появится шелл буду разбираться какие либы можно обратно портировать на тот старый перл, а так же какие изменения в перле произошли за это время. мне там скрипт несложный функционально сваять надо, думаю справлюсь... -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]