> DEO> например на строку: > DEO> connect($socket, sockaddr_in(80, inet_aton("127.0.0.1"))); > DEO> тот перл ругается так: > > DEO> Bad symbol for filehandle at /path/to... > > DEO> === > DEO> use Socket; > DEO> my $socket; > DEO> socket($socket, PF_INET, SOCK_STREAM, getprotobyname('tcp')); > DEO> connect($socket, sockaddr_in(80, inet_aton("127.0.0.1"))); > DEO> === > > DEO> хотя этот код работает в perl 5.8 > > DEO> я жду, мне обещали shell на ту машинку, там и разберемся. > DEO> варианты проапгрейдить перл не подходят, потому что там стоит BSD, а у > DEO> нее как обычно с обновлениями траблы и они на это не пойдут :( > > Тогда забудь про возможность подсовывать неопределенные переменные в > вызовы socket, open и т.п.
socket в моем случае как раз отработал, см выше, а вот упало на connect > Вышеприведенный вариант, где используется > bareword Socket_Handle, скорее всего, работать будет. мне не нравятся конструкции вроде open(FILE, "filename"); потому что даже с use strict они не делают die если неверно написал имя хендла. я понимаю что опять я видимо ламерский вопрос задал, но извиняйте, не могу удержаться. я для себя взял за правило писать сперва my $file; чтобы разрешить эту проблему, а как с ней борются гуру? ;) -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]