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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Перенаправление STDOUT, проблема с перенаправлением вывода IO::F 
V
    Опции темы
KSURi
Дата 4.6.2008, 14:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 20
Всего: 27
Код

open my $in, $target or die $!;
tie *STDOUT, 'IO::Scalar', \my $stdout; # Перенаправляем STDOUT в скаляр
$stdout = do {local$/=undef;<$in>}; # Считываем входной файл
close $in;

my $perl = IO::File->new;
while(1) {
    # ... некоторый манипуляции с содержимым $stdout
    $perl->open('|perl'); # pipe к интерпретатору
    print $perl $stdout; # 
    $perl->close;
}

Вывод кода который я посылаю в pipe попадает в реальный STDOUT, а не в нужный мне скаляр.
Почему?

ЗЫ: $^O eq 'MSWin32'
ЗЗЫ: вместо IO::File/Scalar пробовал обычные open, ничего не изменилось


--------------------
Died at Life.pl line 21
PM Jabber   Вверх
ginnie
Дата 4.6.2008, 15:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49
KSURi, не могли бы Вы пояснить, что по Вашему должно быть и что работает не так?


--------------------
Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)
PM MAIL Skype Jabber   Вверх
KSURi
Дата 4.6.2008, 15:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 20
Всего: 27
Я расчитывал на то, что вывод из пайпа, при его закрытии, попадет в $stdout, а не в оригинальный STDOUT


--------------------
Died at Life.pl line 21
PM Jabber   Вверх
ginnie
Дата 4.6.2008, 15:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49
KSURi, как по-вашему, другой процесс может записать данные в родительскую переменную?


--------------------
Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)
PM MAIL Skype Jabber   Вверх
KSURi
Дата 4.6.2008, 16:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 20
Всего: 27
Действительно... Даже не подумал об этом... Стыдно(
Буду юзать файлы. Вопрос закрыт.


--------------------
Died at Life.pl line 21
PM Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь

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

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


 




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


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

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