VPF::socket и виртуальный сервер. - Форум программистов

Lamerr

Дата 5.7.2006, 22:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 5.7.2006

Репутация: нет
Всего: нет

Народ подскажите, как зоставить скрипт конектиться на нужный хост..
таккак например на народе ип один а вирт серваков много....

пробовал так

Код


use strict;    
use Socket;    
my $host = 'gorod54.ru';    
my $port = 80;    
socket(SOCK,PF_INET,SOCK_STREAM,getprotobyname('tcp'));
my $iaddr = inet_aton($host); 
my $paddr = sockaddr_in($port,$iaddr);    
connect(SOCK,$paddr);    
send(SOCK,"GET / HTTP/1.0\n Host:$host\n\n",0);    
my @data = <SOCK>;    
close(SOCK);
print "\n";    
print @data;    
print "\n\n";

sharq

Дата 9.7.2006, 14:39 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 3
Всего: 28

Lamerr, делай запрос через LWP::UserAgent или LWP::Simple.

smile

--------------------

[color=gray]There's More Than One Way To Do It[/color]

Lamerr

Дата 9.7.2006, 16:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 5.7.2006

Репутация: нет
Всего: нет

Цитата(sharq @ 9.7.2006, 14:39)

Lamerr, делай запрос через LWP::UserAgent или LWP::Simple.

smile

ммм а по подробнее можно ?

nitr

Дата 9.7.2006, 18:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 2
Всего: 84

запусти команду
perldoc LWP::UserAgent
и
perldoc LWP::Simple
;)

--------------------

I love ArchLinux

Блаженный

Дата 28.7.2006, 19:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 20.7.2006

Репутация: нет
Всего: нет

Код


#!/usr/bin/perl
use IO::Socket;  # Юзаем сокеты

if (@ARGV<2) { &usage; }
$host = $ARGV[0];
$port = $ARGV[1];

$host =~s/(http:\/\/)//eg;

# Создаем коннект

$socket = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "$host", PeerPort => "$port") || die "$!\n";
print $socket "Host: $host\n";
print $socket "Accept: */*\n";
print $socket "Connection: close\n\n";

# Тут будет ответ и обработка его

На самом деле код бесмысленный, но каков вопрос таков ответ =) Я показал как можно коннектиться к определенному сайту ;)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »