ИТ клубочек в рамках клуба

[smile]

вот сча мы и вычислим, кто тру итешник, а кто фалс.

[Dimonn]

(29-07-2016 13:24)smile :  вот сча мы и вычислим

А если трохи йузаю поицк?

[andrey13]

(29-07-2016 13:24)smile :  вот сча мы и вычислим, кто тру итешник, а кто фалс.

то є так !!!

[mxs]

Тож да....
Коллегам долгого аптайма и пыльного бубна....

[SergM]

Тю, згадали, як пінги літали...

[smile]

а может кому пригодится.

понадобилось мне чужую прогу регулярно запускать. раз в сутки, ночью. глюкавую, иногда зависающую по причинам, которые даже непонятно куда рыть, что бы диагностировать. причем если ее прибить и запустить снова, то отрабатывает нормально. как правило.

в общем задолбался я вручную отслеживать статус ее отработки и написал обертку, которая ее запускает, ждет, прибивает при необходимости, и запускает снова. хз, как оно будет под виндой, но под линухом жужжит замечательно.

я немного упростил, выбросив запись в логи и прочие подробности - чисто, что бы идею передать:

Код:

#!/usr/bin/perl

use strict;

use threads;
use threads::shared;

sub execute($) {
    my $cmd = shift;

    my @results :shared;
    my $pid :shared;

    my $timelimit = 5;
    my $attempts = 5;
    my $increase = 1.3;
    my $try = 0;

    while ($try != $attempts) {
        if (!$try) {
            print "execute: $cmd\n";
        } else {
            print "execute " . ($try + 1) .": $cmd\n";
        };

        my $thread = async {
            $pid = open my $fh, "$cmd 2>&1 |" or die "$!, $^E";
            @results = <$fh>;
        };

        $thread->detach();

        my $timewait = $timelimit;

        while ($thread->is_running() and $timewait) {
            sleep 1;
            $timewait--;
        };

        if ($thread->is_running()) {
            kill 3, $pid;
            print "timeout of $timelimit seconds for:","$cmd\n";
            $try++;
            $timelimit = int($increase * $timelimit);
        }
        else {
             return @results;
        }
    }

    print "execution failed by timeout:", "$cmd\n";
    return @results;
};


print execute('sleep 7; ls -1');

[andrey13]

с праздничком причастных к искуству создания прекрасного и не очень кода.

[JorikIF]

(25-07-2016 12:11)andrey13 :  И фраза стремно построена .....

Какая такая фраза?

[Владислав]

Понимаю, что айтишники не переносят глупых вопросов, но, посоветуйте видео карту около 5К грв.
Спасибо.

[Andmat]

(11-10-2016 21:29)Владислав :  Понимаю, что айтишники не переносят глупых вопросов, но, посоветуйте видео карту около 5К грв.
Спасибо.

Какие задачи для нее ставите? Игры, видеомонтаж, серфинг в инете?
Как правило в общем порядке, тут все просто, чем дороже, тем плавнее все работает.