abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×

včera 14:44 | Pozvánky

Spolek OpenAlt zve příznivce otevřených technologií a otevřeného přístupu na 151. brněnský sraz, který proběhne v pátek 20. 4. od 18:00 hodin v restauraci Benjamin na Drobného 46.

Ladislav Hagara | Komentářů: 0
včera 13:33 | Nová verze

Byla vydána verze 18.04.0 KDE Aplikací (KDE Applications). Přehled novinek v kompletním seznamu změn a na stránce s dalšími informacemi.

Ladislav Hagara | Komentářů: 0
včera 13:11 | Nová verze

Bylo oznámeno vydání nové stabilní verze 1.26 a beta verze 1.27 open source textového editoru Atom (Wikipedie). Přehled novinek i s náhledy v příspěvku na blogu. Podrobnosti v poznámkách k vydání.

Ladislav Hagara | Komentářů: 0
včera 12:55 | Komunita

Dle plánu byla dnes vydána hra Rise of the Tomb Raider (Wikipedie) pro Linux. Koupit ji lze za 49,99 €.

Ladislav Hagara | Komentářů: 2
včera 09:55 | Bezpečnostní upozornění

Společnost Oracle vydala čtvrtletní bezpečnostní aktualizaci svých softwarových produktů (CPU, Critical Patch Update). Opraveno bylo celkově 254 bezpečnostních chyb. V Oracle Java SE je například opraveno 14 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 12 z nich. V Oracle MySQL je opraveno 33 bezpečnostních chyb. Vzdáleně zneužitelné bez autentizace jsou 2 z nich.

Ladislav Hagara | Komentářů: 3
18.4. 23:11 | Nová verze

Byla vydána verze 8.0 linuxové distribuce Trisquel GNU/Linux. Nejnovější verze Trisquel nese kódové jméno Flidas a bude podporována do roku 2021. Výchozím prostředím je nově MATE 1.12. Trisquel patří mezi svobodné distribuce doporučované Nadací pro svobodný software (FSF).

Ladislav Hagara | Komentářů: 0
18.4. 16:00 | Nová verze

Byla vydána nová verze 27.9.0 webového prohlížeče Pale Moon (Wikipedie) vycházejícího z Firefoxu. Přehled novinek v poznámkách k vydání. Jedná se o poslední větší aktualizaci verze 27. Vývojáři se zaměří na novou verzi 28.

Ladislav Hagara | Komentářů: 0
18.4. 12:00 | Nová verze

Google Chrome 66 byl prohlášen za stabilní (YouTube). Nejnovější stabilní verze 66.0.3359.117 tohoto webového prohlížeče přináší řadu oprav a vylepšení. Vylepšeny byly také nástroje pro vývojáře (YouTube). Opraveno bylo 62 bezpečnostních chyb.

Ladislav Hagara | Komentářů: 0
18.4. 06:00 | Nová verze

Byla vydána druhá RC verze nové řady 2.10 svobodné aplikace pro úpravu a vytváření rastrové grafiky GIMP. Přehled novinek i s náhledy v oznámení o vydání.

Ladislav Hagara | Komentářů: 0
17.4. 23:39 | Pozvánky

Již tento čtvrtek (19. 4.) se v posluchárně 107 na Fakultě informačních technologií ČVUT v Praze Dejvicích odehraje večer s Turrisem, tentokrát zaměřený na nový modulární router MOX. Mluvit o něm budou Patrick Zandl a Ondřej Filip, ale bude i prostor pro dotazy a diskuzi s vývojáři. Akce začíná v 18:00 a plánovaný konec je v 19:45. Mapka, kde se nachází daná posluchárna, a možnost registrace je k dispozici na webu CZ.NIC.

Miška | Komentářů: 0
Používáte na serverech port knocking?
 (2%)
 (7%)
 (47%)
 (26%)
 (16%)
Celkem 325 hlasů
 Komentářů: 29, poslední 5.4. 12:25
    Rozcestník

    Dotaz: Pravidelná kontrola času a akce v daný čas v PERL

    19.9.2009 21:32 saky | skóre: 1
    Pravidelná kontrola času a akce v daný čas v PERL
    Přečteno: 259×

     Zdravím všechny.

    Mám tady další, pro mě dosti oříšek.

    Potřebuji v programu vykonat určitou akci vždy v daný čas. Potíž je, že se akce má opakovat každou celou hodinu.

    Nyní mám použito nešťastné řešení, navázané na jinou akci, něco takového:

     

      my %dttime = (); 

      my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); 

      $dttime{year } = sprintf "%04d",($year + 1900); 

      $dttime{mon } = sprintf "%02d",($mon + 1); 

      $dttime{mday } = sprintf "%02d",$mday; 

      $dttime{wday } = sprintf "%02d",$wday + 1; 

      $dttime{yday } = sprintf "%02d",$yday; 

      $dttime{hour } = sprintf "%02d",$hour; 

      $dttime{min } = sprintf "%02d",$min; 

      $dttime{sec } = sprintf "%02d",$sec; 

      $dttime{isdst} = $isdst;

        if ($dttime{min} eq '00') {

      print  ":367: Je přesně $dttime{hour}:$dttime{min} hodin");

      }

    To celé je v sub on_public , tedy v reakcích na něco jiného a jestliže není zrovna po dobu trvání minuty 00 žádná akce požadována, výpis neproběhne.

    Nyní co potřebuji...

    Potřebuji, aby mi aplikace každou minutu kontrolovala aktuální čas a v celou hodinu vypsala přesný čas. Návaznost na akce v předchozím není nutná, snad ani žádoucí :-). Pokud by přesto musel výpis času zůstat navázán na jiné akce, je třeba ošetřit, aby se vypsal pouze jednou v každou celou hodinu, nyní se vypisuje u každé akce vždy po dobu trvání 00 minut .-) Moc díky všem :-)

     


    Řešení dotazu:


    Odpovědi

    20.9.2009 03:48 Petr Šobáň | skóre: 79 | blog: soban | Olomouc
    Rozbalit Rozbalit vše Re: Pravidelná kontrola času a akce v daný čas v PERL
    No a proč si nepřidáš záznam do cronu ? A tam zadáš že každou hodinu se má spustit program XYZ, a to že je to perl je mu jedno, napsané to může být v čemkoliv co máš na PC.
    20.9.2009 08:44 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: Pravidelná kontrola času a akce v daný čas v PERL
    podle té 367 ... řekl bych že to je zas nějakej chat bot, kterej běží furt a pravděpodobně ta akce se má provést v tom běžícím programu (tj. ne spouštět nový)
    In Ada the typical infinite loop would normally be terminated by detonation.
    20.9.2009 13:09 saky | skóre: 1
    Rozbalit Rozbalit vše Re: Pravidelná kontrola času a akce v daný čas v PERL

     Přesně tak, potřebuji v celou hodinu provést pouze výpis na obrazovku, asi jsem to špatně popsal :-)

    20.9.2009 13:11 saky | skóre: 1
    Rozbalit Rozbalit vše Re: Pravidelná kontrola času a akce v daný čas v PERL

     Viz níže, nejde mi o spuštění aplikace, ale o vykonání příkazu v 00. :o)

    20.9.2009 13:46 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: Pravidelná kontrola času a akce v daný čas v PERL
    Jelikož máte očividně celou aplikaci postavenou na událostech, tak bych nejprve řešil, jestli modul který používáte umí vyvolat časovou událost...
    In Ada the typical infinite loop would normally be terminated by detonation.
    21.9.2009 14:15 Ash | skóre: 53
    Rozbalit Rozbalit vše Re: Pravidelná kontrola času a akce v daný čas v PERL
    Já bych tomu běžícímu procesu z cronu poslal nějaký signál. Dělat kvůli tomuto vlastní vlákno nebo tak něco, no nevím.
    Řešení 1× (saky (tazatel))
    21.9.2009 14:34 happy barney | skóre: 34 | blog: dont_worry_be_happy
    Rozbalit Rozbalit vše Re: Pravidelná kontrola času a akce v daný čas v PERL
    udržuj si zoznam eventov a časov ich vykonania, niečo ako:
    @list = (
     [ time + 900, \&o_15_minut ],
     [ time + 3600, \&o_hodinu ],
    );
    
    ak používaš nejakú slučku s prerušením (napr poll), tak použi verziu s timeoutom (ten zabezpečí pravidelné prerušenie) a potom spusti všetky záznamy zo zoznamu, ktorý čas spustenia je menší alebo rovný ako aktuálny čas. Timeout použiť dynamický, rozdiel medzi aktuálnym časom a minimom zo zoznamu.

    ak nie, tak skús alarm

    pre výpočet času nasledujúcej udalosti skús Schedule::Cron::Events

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.