VPF::Сортировка писем. Помогите с дескрипторами файлов.

labertos

Дата 4.3.2012, 16:06 (ссылка)

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

Загрузка ...

Новичок

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

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

Написал программку, которая раскидывает все письма с одного почтового ящика в отдельный файл.
Каждое новое письмо начинается с новой строки "From "почтовый ящик" ".

Код


open unix, "unix.mailbox";
while ($_ = <unix>)
{
  if (/^From (\w+@\w+.\w+) /) 
  {
    $file=">> ".$1;
    open file;
    print file $_;
  } 
  else
  {
    print file $_;
  }
}

Нужно было сделать тоже самое, но при условии, что каждый файл будет открываться\закрываться лишь один раз. Решил сохранять дескриптор каждого файла в переменную, при открытии файла. А при необходимости использовать.

Код


select("дескриптор");
print "выражение";

Получилось это.

Код


open unix, "unix.mailbox";
while (<unix>)
{
 if (/^From (.*) /) 
 { 
  $filename=$1;
  if (-e($filename)) 
  {  
   select (${$filename}); 
   print $_;
  }
  else
  {
   $file=">> ".$filename;
   open file;
   print file $str;
   $file=~s/>> //;
   ${$filename}=select;
  }
 }
  else
  { 
   print $str;
  }
}

С Perl'ом знаком около недели. Просьба подсказать в чем ошибка. Варианты с использованием массивов не предлагать. Хочу с дескрипторами разобраться, раз взялся.

Pfailed

Дата 4.3.2012, 18:14 (ссылка)

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

Загрузка ...

Опытный

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

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

В строке 18, видимо, нужно ${$filename}=file;
Плюс советую проверять не произошло ли ошибки при открытии файла.

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

I'm on CPAN
I'm on github

DurRandir

Дата 4.3.2012, 19:00 (ссылка)

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

Загрузка ...

Опытный

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

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

Ну и стилистическое: use strict, use 3 arg open, print можно сразу отправлять в нужный fh, без лишних select(). Вместо ${$..} - хэши (но это поймает strict).

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