Русский Перл

Здравствуй, сообщество)

Вопрос следующий: Можно ли создать хэш такой, чтобы в качестве ключа использовалась строка $mail, которую отлавливаем регэкспом, а в качестве значения - файловый дескриптор файла, открытого для записи в него?

Фрагмент кода следующий:

#!/usr/local/bin/perl



%writefiles=();
open($MAINFILE, '< unix1.mailbox');
while (my $line = <MAINFILE>) {
    $line =~ m/^From (.*?) /i; #Сам регэксп;
    my $mail = $1;



    if ($mail) {
        if (exists $writefiles{$mail}) {
            $handle=\writefiles{$mail};
        } else {
            sysopen(*NEWFILE,"$mail.mailbox",O_WRONLY|O_TRUNC|O_CREATE);
            %writefiles{$mail}=\*NEWFILE;  #Моя попытка добавить в хэш элемент такого типа;
        }
    }
    print ($handle $line);
}
close(MainFile);



foreach my $file (keys %writefiles) {
    close($writefiles{$file});
}

Написал Никита в 22:46

New features of Perl 5.16 — выступление Павла Власова на YAPC::Russia + Perl Mova 2012 в Киеве 12 мая.