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 23:55 | Nová verze

    Balíček kmod s nástroji pro práci s linuxovými moduly byl vydán ve verzi 31. Nově umí modprobe zavést modul nacházející se v libovolném adresáři (# modprobe ./drivers/gpu/drm/i915/i915.ko).

    Ladislav Hagara | Komentářů: 0
    včera 23:11 | IT novinky

    Adventura Trüberbrook je na portále GOG.com zdarma, akce trvá do 2. října.

    Fluttershy, yay! | Komentářů: 0
    včera 12:44 | Nová verze

    Sound Open Firmware, projekt Linux Foundation, open source audio DSP firmware a SDK, byl vydán ve verzi 2.7.0. Z novinek lze vypíchnout podporu platformy AMD Van Gogh.

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

    Richard Stallman v den oslav 40. výročí GNU oznámil, že má rakovinu (YouTube).

    Ladislav Hagara | Komentářů: 25
    včera 08:00 | Zajímavý projekt

    DIY trackball Ploopy novou variantu Adept, na rozdíl od předchozích používá 44mm kouli, má symetrický tvar a šest tlačítek, snímač zůstává PMW-3360, novinkou je použití Raspberry Pi Pico, na kterém běží firmware QMK s podporou grafické konfigurační aplikace VIA. Předobjednávky jsou otevřeny za ceny 80-105 CAD.

    Fluttershy, yay! | Komentářů: 0
    28.9. 15:22 | IT novinky

    Probíhá Meta Connect 2023. Společnost Meta představuje své novinky v oblasti AI a virtuální, smíšené a rozšířené reality. Představeny byly nové chytré brýle Ray-Ban | Meta a headset Meta Quest 3.

    Ladislav Hagara | Komentářů: 0
    28.9. 12:00 | IT novinky

    Eben Upton oficiálně představil (YouTube) nové Raspberry Pi 5 (YouTube). Je více než 2x výkonnější než jeho předchůdce, model 4B.

    Ladislav Hagara | Komentářů: 12
    28.9. 08:00 | Nová verze

    Byl vydán (YouTube) Counter-Strike 2. Nativně také pro Linux. Jedná se o největší technologický skok v historii této populární herní série.

    Ladislav Hagara | Komentářů: 13
    28.9. 07:00 | Komunita

    Richard Stallman vystoupí v Praze s přednáškou Free Software And Your Freedom. V sobotu 30. září ve 14:30 na Pedagogické fakultě UK a v neděli 1. října v 18:00 hodin v rámci konference Hackers Congress Paralelní Polis.

    Jendа | Komentářů: 16
    27.9. 14:44 | Nová verze

    Byla vydána verze 6 s kódovým název Faye linuxové distribuce LMDE (Linux Mint Debian Edition). Podrobnosti v poznámkách k vydání. Linux Mint vychází z Ubuntu. LMDE je postaveno na Debianu.

    Ladislav Hagara | Komentářů: 2
    Knihy s linuxovou tematikou
     (19%)
     (15%)
     (51%)
     (27%)
    Celkem 279 hlasů
     Komentářů: 11, poslední 17.9. 19:19
    Rozcestník

    Dotaz: Získání názvu dne z data v PERL

    25.9.2009 17:32 saky | skóre: 1
    Získání názvu dne z data v PERL
    Přečteno: 288×

     Dobrý den.

    Mám v PERL aplikaci 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;

    Na příkaz, si na obrazovku vyplivnu  pomocí: print "Dnes je $dttime{mday}.$dttime{mon}.$dttime{year} \n"; aktuální datum.

    Nyní bych chtěl doplnit výpis o název dne a svátek dle kalendáře. Svátek budu muset pravděpodobně vyřešit vytvořením textového souboru, kde bude datum=jméno avšak u dnů v týdnu by to snad šlo i jednodušeji. Dokáže někdo poradit, jak dosáhnout výstupu:

    Dnes je "den",  "datum" a svátek má "jméno" ?

    Díky všem :-)

     


    Řešení dotazu:


    Odpovědi

    25.9.2009 19:59 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: Získání názvu dne z data v PERL
    $dttime{wday } = sprintf "%02d",$wday + 1;

    A tohle je myslíte co?
    In Ada the typical infinite loop would normally be terminated by detonation.
    27.9.2009 16:48 saky | skóre: 1
    Rozbalit Rozbalit vše Re: Získání názvu dne z data v PERL

     UPS :-) Díky, Dny v týdnu jsou vyřešeny.

    Nyní mám ještě txt soubor kde je datum=jméno pro výpis svátků.

    Najdu si aktuální datum na řádku a hodnotu za = vyplivnu na obrazovku.

    Problém mám ale ze svátkem následující den. Potíž je s přičtením 1 dne, jelikož mi jej přičte jako den třeba 32.. 

    Jde nějak nastavit do proměnné datum + den ve správném formátu? 

    Díky :o)

     

    Řešení 1× (saky (tazatel))
    27.9.2009 21:09 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: Získání názvu dne z data v PERL
    Přinejmenším přes POSIX::mktime.
    In Ada the typical infinite loop would normally be terminated by detonation.
    Řešení 1× (saky (tazatel))
    27.9.2009 22:28 happy barney | skóre: 34 | blog: dont_worry_be_happy
    Rozbalit Rozbalit vše Re: Získání názvu dne z data v PERL
    pozri si Class::Date
    1.12.2010 17:59 Psp-Net
    Rozbalit Rozbalit vše Re: Získání názvu dne z data v PERL
    Pokud umíš pomocí Perlu stahovat data.. tak z http://www.psp-net.euweb.cz/den.php :)

    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.