Fråga : En Perl daterar enhetsproblem

Hi

I kan hämta dagens daterar using daterar:: Calc-enhet. Kan du pls hjälpa om hur jag kan hämta dagens timmeminuter och sekunder tajmar using den samma enheten i en annan variabelnågot att säga $cob_date1? > för 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
" codeBody " " >use för class= " för
" klar "

Svar : En Perl daterar enhetsproblem

Att förenkla och utvidga på vad du har, du kan göra denna…,
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

bruk daterar:: Calc-qw (: alla);

min @mon = qw (Jan Feb fördärvar den Apr maj Jun Jul Aug Sep Oct Nov December);

under_getCOB {

    min @date = i dag ();

    nr. kommenterat ut, sedan inte använt
    #my $dow = Day_of_Week (@date);

    mitt $date = $date [2]. ”-”. $mon [$date [1]]. ”-”. $date [0];

    återgång $date;
}


mitt $cob_date = &_getCOB ();
mitt $cob_date1 = sammanfogar ”: ” Nu ();

tryck $cob_date, ”\ t”, $cob_date1,” \ n ";
Andra lösningar  
 
programming4us programming4us