Forum Webscript.Ru
Программирование => Perl => Тема начата: Starick от 06 Июня 2007, 09:04:00
-
Есть вот такая фигня. Что она делает объяснять не буду.
#!/usr/bin/perl -w
use Socket;
$host="www.perl.com";
$port="80";
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname(\'tcp\'));
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
send (SOCK, "GET / HTTP/1.0\\n\\n", 0);
@data=;
close(SOCK);
print @data;
Так вот значит.
А как сделать запрос на wap ?
Например owap.ru.
Сколько не пытался , нифига не получается.:confused:
Помогите ? А ?
-
perl -MSocket -le \'socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname(\'tcp\')); connect(SOCK, sockaddr_in($ARGV[1],(inet_aton($ARGV[0])))); send (SOCK, "GET / HTTP/1.1\\nHost: $ARGV[0]\\n\\n", 0); print ;\' owap.ru 80
-
arto
СПАСИБО ! :)
-
Вот еще один вопросик .
Я ему вот такую фигню :
use DBI;
$db = DBI->connect(\'DBI:mysql:test:localhost\',\'root\',\'\') || die $DBI::errstr;
А он , гад , ругается :
DBI connect(\'test:localhost\',\'root\',...) failed: Client does not support authentication protocol requested by server; consider upgrading MySQL client at C:\\Perl\\pr_perl\\1.pl line 3
Client does not support authentication protocol requested by server; consider upgrading MySQL client at C:\\Perl\\pr_perl\\1.pl line 3.
:confused:
-
какое слово в сообщении об ошибке вам непонятно?
-
Понятно-то все, а вот как боротся с этим ?
-
"consider upgrading MySQL client" -- не оно?
-
Ну и ! SQL переставить, или чево ?
-
Значит мне тут не объяснят , что я не так делаю .... :(
жаль...
-
"MySQL client"
-
MySQL client - это DBI чтоли ?
-
это mysql клиентская библиотека
-
Блин :(
Ну скажите ЧТО МНЕ СДЕЛАТЬ ЧТОБЫ ЗАРАБОТАЛО.
Что поставить , что удалить , и.т.д.
Мне
arto:
это mysql клиентская библиотека
не о чем не говорит :(
-
вам надо обратиться к своему системному администратору и попросить его обновить клиентскую библиотеку для mysql.
он и решит, как ему это сделать безболезненно -- обновить весь mysql, либо только клиентскую часть.
-
я на локальной машине, сам себе администратор :(
-
1. попробуйте переставить DBD::mysql: perl -MCPAN -e "install DBD::mysql"
2. попробуйте поставить вашим менеджером пакетов mysql клиента.
3. http://dev.mysql.com/doc/refman/5.0/en/old-client.html
-
Переустановил полностью MySQL .
Поставил mysql-5.0.27-win32
Новее не нашол, один фиг ту же ошибку выдает :(
-
arto:
1. попробуйте переставить DBD::mysql: perl -MCPAN -e "install DBD::mysql"
Это по моему для *nix систем.
-
Все ! Заработала !
вот это arto:
3. http://dev.mysql.com/doc/refman/5.0/en/old-client.html
помогло.
СПАСИБО ! :)