Программирование > Perl

У меня вопросик есть ....

(1/4) > >>

Starick:
Есть вот такая фигня. Что она делает объяснять не буду.

#!/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:

Помогите ? А ?

arto:
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

Starick:
arto

СПАСИБО ! :)

Starick:
Вот еще один вопросик .

Я ему вот такую фигню :

 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:

arto:
какое слово в сообщении об ошибке вам непонятно?

Навигация

[0] Главная страница сообщений

[#] Следующая страница