Модераторы: korob2001, ginnie

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Использование LWP::UserAgent, Почему происходит увеличение файла??? 
:(
    Опции темы
*eug*
  Дата 6.9.2003, 15:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
У меня такой код:
Код

use LWP::UserAgent;
my $page=LWP::UserAgent
      ->
      new
      ->
      request
      (new HTTP::Request('GET' => "http://server/page_on_server"))
      ->
      content;
open (HANDLE,">my_page");
print HANDLE $page;
close(HANDLE);

Почему размеры файлов после выполнения скрипта не совпадают, т.е. "my_page" больше чем "page_on_server" на несколько байтconfused.gif

Это сообщение отредактировал(а) *eug* - 6.9.2003, 15:55
PM MAIL   Вверх
Nobody
Дата 7.9.2003, 18:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 838
Регистрация: 25.8.2003
Где: Россия, Москва

Репутация: нет
Всего: 16
Может, разные концы строк?


--------------------
Алгоритм помещения вопросов на форуме
Выражаем спасибо вот ТАК
Use the Source, Luke!
PM MAIL WWW ICQ   Вверх
*eug*
Дата 7.9.2003, 20:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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

В смыслеconfused.gif?

Это сообщение отредактировал(а) *eug* - 7.9.2003, 20:16
PM MAIL   Вверх
Nobody
Дата 7.9.2003, 20:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 838
Регистрация: 25.8.2003
Где: Россия, Москва

Репутация: нет
Всего: 16
Виндузовые концы строк - два байта, а юниксовые - только один.


--------------------
Алгоритм помещения вопросов на форуме
Выражаем спасибо вот ТАК
Use the Source, Luke!
PM MAIL WWW ICQ   Вверх
*eug*
Дата 8.9.2003, 17:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Nobody
Так я в Винде работаю, только...
PM MAIL   Вверх
Nobody
Дата 8.9.2003, 17:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 838
Регистрация: 25.8.2003
Где: Россия, Москва

Репутация: нет
Всего: 16
Ну? А сервер-то, небось, юниксовый...


--------------------
Алгоритм помещения вопросов на форуме
Выражаем спасибо вот ТАК
Use the Source, Luke!
PM MAIL WWW ICQ   Вверх
*eug*
Дата 10.9.2003, 23:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Nobody
Сервер - Sambar 5.1
Может из-за негоconfused.gif
PM MAIL   Вверх
NightGoblin
Дата 11.9.2003, 03:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: нет
Всего: 11
Если сервер работает на юниксе, а клиент на винде, то при передаче текста формат новой строки преобразуется из юниксового в виндовый: в юниксе это один байт (0x0A), а в винде - два (0x0D 0x0A). Поэтому может и увеличивать размер.


--------------------
Kernel panic: /dev/null overflow!
GCS/IT/MU/O d-@ s: a- C++$>++++$ ULSB(+++) P+++ L+++>++++ !E W++(-) N o? K w-- O? M>+ V? PS+ PE Y+ PGP+>+++ t- 5 X+ R- !tv b+ DI+ D+ G e++ h--- r++ y?
B4F1 54B6 8738 26CD 5125 0581 B923 9273 FE59 1981
PM MAIL WWW ICQ   Вверх
Nobody
Дата 11.9.2003, 16:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 838
Регистрация: 25.8.2003
Где: Россия, Москва

Репутация: нет
Всего: 16
NightGoblin
А я разве не то же самое сказал?


--------------------
Алгоритм помещения вопросов на форуме
Выражаем спасибо вот ТАК
Use the Source, Luke!
PM MAIL WWW ICQ   Вверх
NightGoblin
Дата 12.9.2003, 01:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: нет
Всего: 11
Nobody,
Да вроде как... Только, имхо, *eug* не понял smile.gif


--------------------
Kernel panic: /dev/null overflow!
GCS/IT/MU/O d-@ s: a- C++$>++++$ ULSB(+++) P+++ L+++>++++ !E W++(-) N o? K w-- O? M>+ V? PS+ PE Y+ PGP+>+++ t- 5 X+ R- !tv b+ DI+ D+ G e++ h--- r++ y?
B4F1 54B6 8738 26CD 5125 0581 B923 9273 FE59 1981
PM MAIL WWW ICQ   Вверх
*eug*
Дата 14.9.2003, 21:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
У меня ВСЁ работает под Windows на одном PC!
PM MAIL   Вверх
wpp
Дата 16.9.2003, 19:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
на сколько именно и каких?
PM   Вверх
*eug*
Дата 17.9.2003, 16:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
wpp
Не понялconfused.gif
PM MAIL   Вверх
[email protected]
Дата 13.10.2003, 20:19 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
ну... что ж ребяты... надо писать так:
Код

use LWP::UserAgent;
my $page=LWP::UserAgent
     ->
     new
     ->
     request
     (new HTTP::Request('GET' => "http://server/page_on_server"))
     ->
     content;
open (HANDLE,">my_page");
binmode STDOUT; # ЭТО ИМЕННО ТО ЧТО НУЖНО! :)
print HANDLE $page;
close(HANDLE);
  Вверх
*eug*
Дата 14.10.2003, 20:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
А что это даёт?
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0512 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.