| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
sudosu
Зарегистрирован: 11.08.2005
Сообщения: 3
|
 Добавлено: Чт Авг 11 2005 18:06 Заголовок сообщения: Крик о помощи знатокам Perl`а! |
 |
|
Есть следующая задача: читать из stdout и писать в лог-файл. Скрипт
| Код: | #!/usr/bin/perl
select STDOUT;
open (LG,">/1/lg.txt");
while(<>)
{
if($_ =~ /job/)
{
print LG $_;
}
}
close LG; |
упорно отказывается писать в файл..
Наверняка грабли детские!
Помогите, плиз, буду очень признателен!
С уважением. |
|
| Вернуться к началу |
|
 |
and3008
Зарегистрирован: 12.10.2001
Сообщения: 14893
Откуда: Н.Новгород
|
| Добавлено: Чт Авг 11 2005 21:13 Заголовок сообщения: |
|
|
Не кажется ли тебе странным имя файла?
Мне очень даже кажется. |
|
| Вернуться к началу |
|
|
DarkHost
Зарегистрирован: 09.02.2005
Сообщения: 57
|
| Добавлено: Пт Авг 12 2005 09:17 Заголовок сообщения: Re: Крик о помощи знатокам Perl`а! |
|
|
| sudosu писал(а): | Есть следующая задача: читать из stdout и писать в лог-файл. Скрипт
| Код: | #!/usr/bin/perl
select STDOUT;
open (LG,">/1/lg.txt");
while(<>)
{
if($_ =~ /job/)
{
print LG $_;
}
}
close LG; |
упорно отказывается писать в файл..
Наверняка грабли детские!
Помогите, плиз, буду очень признателен!
С уважением. |
Отказывается это как? Вертит головой? Что выдает? Логи в студию! |
|
| Вернуться к началу |
|
|
sudosu
Зарегистрирован: 11.08.2005
Сообщения: 3
|
| Добавлено: Пт Авг 12 2005 09:52 Заголовок сообщения: |
|
|
Проблема в том, что файл создается, нулевой длины. Права, соотв., на запись в каталог /1/ есть у всех. Если из скрипта убрать select STDOUT и цикл, то запись в файл работает на-ура. Если убрать все, связанное с открытием файла, то print исправно выдает на STDOUT то, что в STDIN.
Подозреваю, что грабли где-то в потоках ввода-вывода.
С уважением. |
|
| Вернуться к началу |
|
|
DarkHost
Зарегистрирован: 09.02.2005
Сообщения: 57
|
| Добавлено: Пт Авг 12 2005 11:21 Заголовок сообщения: |
|
|
| Попробуй сначала организовать вывод на экран. Если получится, значит ручками ее ручками! |
|
| Вернуться к началу |
|
|
Sol
Зарегистрирован: 05.12.2003
Сообщения: 427
Откуда: Томск
|
| Добавлено: Пт Авг 12 2005 12:23 Заголовок сообщения: |
|
|
А вот это у вас чего делает??
_________________
In My Humble Opinion |
|
| Вернуться к началу |
|
|
Aragaer
Зарегистрирован: 28.03.2005
Сообщения: 164
|
| Добавлено: Вс Авг 14 2005 03:13 Заголовок сообщения: |
|
|
| Код: | | perl -ep 'next unless /job/' > /1/lg.txt |
_________________
Open your eyes.
And Awaken. |
|
| Вернуться к началу |
|
|
Aragaer
Зарегистрирован: 28.03.2005
Сообщения: 164
|
| Добавлено: Вс Авг 14 2005 08:37 Заголовок сообщения: |
|
|
*хлопает себя по лбу*
Что ж я сразу не сообразил.
STDOUT по умолчанию открыт для записи, а не для чтения. Соответственно читать из него нечего. Цикл while(<>) пролетает сразу. Надо было использовать STDIN. Или вообще убить select, читаться будет из STDIN'а. Ну или если хочется указать явно - while(<STDIN>).
| Код: | #!/usr/bin/perl
open LG, ">/1/lg.txt";
while (<>) {
print LG if /job/
} |
close тоже далеко не обязателен. Отвыкайте от С 
_________________
Open your eyes.
And Awaken. |
|
| Вернуться к началу |
|
|
sudosu
Зарегистрирован: 11.08.2005
Сообщения: 3
|
| Добавлено: Пн Авг 15 2005 09:52 Заголовок сообщения: |
|
|
Спасибо всем огромное за ответы! Проблема успешно решена  Оказывается, помимо всего того, что здесь написано, перлу нехватало
|
|
| Вернуться к началу |
|
|
Aragaer
Зарегистрирован: 28.03.2005
Сообщения: 164
|
| Добавлено: Пн Авг 15 2005 19:23 Заголовок сообщения: |
|
|
Гм. А он кажется обычно по умолчанию ставится в 1.
_________________
Open your eyes.
And Awaken. |
|
| Вернуться к началу |
|
|
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
