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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> STDIN в конвеерной обработке, STDIN в конвейерной обработке 
V
    Опции темы
ssdm
Дата 24.8.2010, 18:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: 2
Всего: 2
Привет.
При конвейерной обработке двух программ, поток вывода первой команды передается в поток ввода второй команды.
Но как быть если первая команда ничего не вернула ? Или вообще вызвана не была? В этом случае программа номер два останавливается и ждет ввода с клавиатуры.
Вот пример :
Код

 my $st=<STDIN>;
    for (split(/\\n/,$st)){
        chomp;
        my $str=$_;
        push @prev_objs,$self->do_somth($str);     
    } 

Как можно обойти эту проблему ?
PM MAIL   Вверх
arto
Дата 24.8.2010, 19:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40
1. вернет undef
2. exit if (-t STDIN) 
PM MAIL ICQ   Вверх
ssdm
Дата 24.8.2010, 19:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: 2
Всего: 2
Цитата(arto @  24.8.2010,  19:06 Найти цитируемый пост)
1. вернет undef

в том то и дело что undef не возвращает.. просто ждет ввода символа..

exit if (-t STDIN)  - завтра попробую
PM MAIL   Вверх
arto
Дата 24.8.2010, 20:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40
# false | perl -le '$a = <STDIN> || "none"; print $a;'
none
# 
PM MAIL ICQ   Вверх
ssdm
Дата 25.8.2010, 10:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: 2
Всего: 2
Цитата(arto @  24.8.2010,  20:51 Найти цитируемый пост)
false | perl -le '$a = <STDIN> || "none"; print $a;'

да.. тут все  правильно , а если первая команда вызвана не была ? 
то есть perl -le '$a = <STDIN> || "none"; print $a;
тогда ждем ввода символов

add: Все. Разобрался. Просто надо юзать unless (-t STDIN). 
Спасибо за помощь!

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

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

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


 




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


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

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