Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Вывод результата каждого потока в один общий файл

Автор: nIkTo 28.7.2008, 14:17

Как сделать вывод результатов каждого потока в один общий файл ?

Так не получилось :

Код


use Fcntl ":flock";
...
open(OUT, ">>result.log");
flock(OUT, LOCK_EX);
print OUT "<...>";
flock(OUT, LOCK_UN);
close(OUT);

Автор: FooBar 28.7.2008, 14:39

думаю самое простое это помещать результат в шаред массив или строку, и по окончании скинуть в файл

Автор: shamber 28.7.2008, 14:40

FooBar, этож от объема информации зависит smile

Автор: FooBar 28.7.2008, 14:42

shamber, само собой что для большого объема это не подходит

Автор: nIkTo 28.7.2008, 15:38

Обьём информации большой, тоесть надо результаты скидывать в файл по мере выполнения потоков ...
Примерное время работы скрипта 24 часа, надо смотреть промежуточные результаты которые должны быть в одном файле плюс обьём информации большой, поэтому использование расшаренного массива неприемлимо.

Автор: tolkien 28.7.2008, 19:53

Да скидывайте их в отдельные файлы, а потом объедените.

Автор: korob2001 28.7.2008, 21:52

Блокировка подпрограмм?

Код


lock &func;

ЗЫ: Не знаю, что тут с поисковиком, но что бы найти своё же сообщение, пришлось заходить в профиль и поочереди просматривать все свои сообщения. Не знаю, либоя что-то делаю не так. Вобщем нашёл тут, тему которую обсуждали здесь раньше. Там есть пример, который ищет в пяти файлах одновременно, на каждый файл по потоку.

Вот ссылка:
http://forum.vingrad.ru/topic-80983.html

Автор: nIkTo 28.7.2008, 23:37

Вобщем вот скрипт :

Код


#!/usr/bin/perl -w
use threads;
use threads::shared;
use File::Find;

print "Start time = ".time()."\n";
my $threads = 20;
open(IN, 'dirs.txt');
my @indirs : shared = <IN>;
close(IN);
for (1..$threads) {
    my $thread = threads->create(\&main);
}
foreach my $thread (threads->list) {
    $thread->join;
}
print "Stop time = ".time()."\n";

sub main
{
    while (1)
    {
        my $dir;
        {
           $dir = shift @indirs || return;
            chomp($dir);
            chop($dir);
            if (-d $dir) {
                find(\&list, $dir);
                foreach my $path (@dirs) {
                    # выпоняем необходимые действия над директорией
                    print $path." : <информация>";
                }
                @dirs = ();
            }
        }
    }
}

sub list {
    if (-d $_) {
        $depth = 2;
        if ($File::Find::name=~tr|/|/| - $File::Find::topdir=~tr|/|/| == $depth) {
            $File::Find::prune = 1;
        }
        push(@dirs, $File::Find::name);
    }
}

Необходино чтобы

Код


print $path." : <информация>";

каждый поток писал в общий файл.

З.Ы. Может ещё какие замечания будут по скрипту ...

Автор: dmitryk1 30.7.2008, 05:38

Ну так почему бы не складывать в один шаред массив или строку периодически скидывая в файл и очищая?

А периодичность уже от времени или размера задавать.