VPF::вывод файла с другого серванта

Arthur

Дата 15.2.2003, 20:18 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте господа программеры!!!
У меня такая проблема.
Мне нужно, что бы скрипт на моем серваке открывал текстовый файл и выводил его на монитор с другого сервера. Т.е. есть файл byte.txt (к примеру). Надо что бы скрипт забирал его с сервера www.host1.ru , и выводил на экран.Вот и всё.Помогите пожалуйста.

GoodBoy

Дата 18.2.2003, 00:07 (ссылка)

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

Загрузка ...

Главный джедай

Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

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

Код

#!/usr/bin/perl

use Socket;

$page = '/path/to/byte.txt';
$host = 'www.host1.ru';
$port = 80;

$request="GET $page HTTP/1.0\nHOST: $host:$port\n";
$SIG{ALRM} = sub { die };
$/=undef;
alarm 25;
eval { $text = &http; };
close SOCK;
if ((!$@) and ($text=~/^HTTP\/[^ ]* (\d+)/) and ($1==200)) {
    $text=~/\r?\n\r?\n/s;
    $textout = $';
}

print "Content-type: text/html; charset=windows-1251\n\n".$textout;

sub http {
    return 'Error 1' if !($addr=gethostbyname($host));
    return 'Error 2' if !(socket(SOCK,PF_INET,SOCK_STREAM,getprotobyname('tcp')));
    return 'Error 3' if !(connect(SOCK,pack('S n a4 x8', PF_INET, $port, $addr)));
    select SOCK;
    $|=1;
    select STDOUT;
    print SOCK $request."\n";
    @text = <SOCK>;
    return join("", @text);
}

Это сообщение отредактировал(а) GoodBoy - 30.8.2004, 10:18

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

Чем дальше в лес, тем толще партизаны...

Цитата(igorold @ 1.5.2016, 17:40

)

Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях.

Arthur

Дата 19.2.2003, 04:07 (ссылка)

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

Загрузка ...

Новичок

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

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

Hi GoodBoy !!!
Я изменил значения $host и $page на нужные, но этот скрипт выдает путстую html страничку с таким кодом:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=windows-1251" http-equiv=Content-Type></HEAD>
<BODY></BODY></HTML>

Незнаешь в чём дело

HalkaR

Дата 20.2.2003, 02:32 (ссылка)

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

Загрузка ...

Пуфыстый назгул

Профиль
Группа: Экс. модератор
Сообщений: 2132
Регистрация: 8.12.2002
Где: В Москве

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

Лучше пользоваться LWP.
Просто

Код

use LWP::Simple;
$textout = get('www.host1.ru/byte.txt');
print "Content-type: text/html; charset=windows-1251\n\n".$textout;

Arthur

Дата 20.2.2003, 05:01 (ссылка)

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

Загрузка ...

Новичок

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

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

Я узнал, что исходящие запросы с моего серванта запрещены......из-за этого может скрипт не работать

Arthur

Дата 21.2.2003, 03:53 (ссылка)

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

Загрузка ...

Новичок

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

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

А как мона добавить файл на сервак используя shell ? Я имею в виду какие команды?

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