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 16:00 | Nová verze

Byl vydán Mozilla Firefox 51.0. Z novinek lze upozornit například na upozorňování na přihlašování přes nešifrované spojení (HTTP), podporu pro přehrávání bezeztrátového formátu FLAC nebo podporu WebGL 2. Podrobné informace v poznámkách k vydání a na stránce věnované vývojářům. Řešeny jsou také bezpečnostní chyby.

Ladislav Hagara | Komentářů: 2
23.1. 17:25 | IT novinky

Do prodeje (Farnell) se dostal jednodeskový počítač Tinker Board (unboxing). Jedná se o konkurenci Raspberry Pi 3 od společnosti Asus. Porovnání (jpg) těchto počítačů například na CNXSoft. Cena Tinker Boardu je 55 £.

Ladislav Hagara | Komentářů: 15
23.1. 14:44 | Zajímavý projekt

Byla zveřejněna pravidla hackerské soutěže Pwn2Own 2017, jež proběhne od 15. do 17. března v rámci bezpečnostní konference CanSecWes ve Vancouveru. Soutěžit se bude o více než milion dolarů v pěti kategoriích. Letos se bude útočit i na Ubuntu. Jedná se již o 10. ročník této soutěže.

Ladislav Hagara | Komentářů: 2
23.1. 13:33 | Nová verze

Po sedmi měsících vývoje od vydání verze 5.7 byla vydána verze 5.8 (YouTube) toolkitu Qt. Z novinek lze zmínit například Qt Lite pro vestavěná zařízení. Nově jsou plně podporovány moduly Qt Wayland Compositor (YouTube) a Qt SCXML (YouTube). Současně byla vydána verze 4.2.1 integrovaného vývojového prostředí (IDE) Qt Creator.

Ladislav Hagara | Komentářů: 1
23.1. 11:52 | Pozvánky

Lednový Prague Containers Meetup se koná ve čtvrtek 26. ledna 2017 od 18:00 v Apiary, Pernerova 49, Praha 8. Přijďte se podívat na přednášky o Enterprise Kubernetes a Jenkins as a code.

little-drunk-jesus | Komentářů: 0
23.1. 11:40 | Pozvánky

Program letošního ročníku konference Prague PostgreSQL Developer Days, která se koná již 15. a 16. února 2017 na ČVUT FIT, Thákurova 9, Praha 6, byl dnes zveřejněn. Najdete ho na stránkách konference včetně anotací přednášek a školení. Registrace na konferenci bude otevřena zítra (24. ledna) v brzkých odpoledních hodinách.

TomasVondra | Komentářů: 0
22.1. 02:20 | Zajímavý článek

David Revoy, autor open source webového komiksu Pepper&Carrot nebo portrétu GNU/Linuxu, upozorňuje na svém blogu, že nový Inkscape 0.92 rozbíjí dokumenty vytvořené v předchozích verzích Inkscape. Problém by měl být vyřešen v Inkscape 0.92.2 [reddit].

Ladislav Hagara | Komentářů: 0
22.1. 02:02 | Komunita

Øyvind Kolås, hlavní vývojář grafických knihoven GEGL a babl, které využívá grafický program GIMP, žádá o podporu na Patreonu. Díky ní bude moci pracovat na vývoji na plný úvazek. Milník 1000 $, který by stačil na holé přežití, se již téměř podařilo vybrat, dalším cílem je dosažení 2500 $, které mu umožní běžně fungovat ve společnosti.

xkomczax | Komentářů: 12
21.1. 23:54 | Pozvánky

DevConf.cz 2017, již devátý ročník jedné z největších akcí zaměřených na Linux a open source ve střední Evropě, proběhne od pátku 27. ledna do neděle 29. ledna v prostorách Fakulty informačních technologií Vysokého učení technického v Brně. Na programu je celá řada zajímavých přednášek a workshopů. Letos je povinná registrace.

Ladislav Hagara | Komentářů: 0
21.1. 22:11 | Nová verze

Byla vydána verze 1.0.0 emulátoru terminálu Terminology postaveného nad EFL (Enlightenment Foundation Libraries). Přehled novinek v poznámkách k vydání.

Ladislav Hagara | Komentářů: 0
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (12%)
 (2%)
 (72%)
 (3%)
 (11%)
Celkem 395 hlasů
 Komentářů: 39, poslední včera 19:30
Rozcestník
Reklama

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: 255×

 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.