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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вывод результата каждого потока в один общий файл, threads 
:(
    Опции темы
nIkTo
Дата 28.7.2008, 14:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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

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

use Fcntl ":flock";
...
open(OUT, ">>result.log");
flock(OUT, LOCK_EX);
print OUT "<...>";
flock(OUT, LOCK_UN);
close(OUT);
PM   Вверх
FooBar
Дата 28.7.2008, 14:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 3
думаю самое простое это помещать результат в шаред массив или строку, и по окончании скинуть в файл
PM MAIL   Вверх
shamber
Дата 28.7.2008, 14:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 17
Всего: 18
FooBar, этож от объема информации зависит smile
PM MAIL Jabber   Вверх
FooBar
Дата 28.7.2008, 14:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 3
shamber, само собой что для большого объема это не подходит
PM MAIL   Вверх
nIkTo
Дата 28.7.2008, 15:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Обьём информации большой, тоесть надо результаты скидывать в файл по мере выполнения потоков ...
Примерное время работы скрипта 24 часа, надо смотреть промежуточные результаты которые должны быть в одном файле плюс обьём информации большой, поэтому использование расшаренного массива неприемлимо.
PM   Вверх
tolkien
Дата 28.7.2008, 19:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 4
Всего: 4
Да скидывайте их в отдельные файлы, а потом объедените.
PM MAIL   Вверх
korob2001
Дата 28.7.2008, 21:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61
Блокировка подпрограмм?

Код

lock &func;


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

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


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
nIkTo
Дата 28.7.2008, 23:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Вобщем вот скрипт :
Код

#!/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." : <информация>";

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

З.Ы. Может ещё какие замечания будут по скрипту ...
PM   Вверх
dmitryk1
Дата 30.7.2008, 05:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 118
Регистрация: 10.6.2008
Где: Новосибирск

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

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

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

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


 




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


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

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