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

[saky]

 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

 

---

---

Odpovědi

[pht]

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

A tohle je myslíte co?

[saky]

 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)

 

[saky]

Přinejmenším přes POSIX::mktime.

[saky]

pozri si Class::Date

[Psp-Net]

Pokud umíš pomocí Perlu stahovat data.. tak z http://www.psp-net.euweb.cz/den.php :)