Pytanie : Perl Daktylowy moduł problem

Cześć,

I móc data data using Data:: Calc moduł. Móc ty pls jeśli chodzi jak I móc $cob_date1 godzina minuta i secs czas using the ten sam moduł w inny zmienny mówić $cob_date1? 
(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:

use Data:: Calc qw (: wszystko);


_getCOB _getCOB {

mój $mon = "JanFebMarAprMayJunJulAugSepOctNovDec";

mój @date;

mój ($year, $month, $day) = Add_Delta_Days (Dzisiaj (), (0));


mój $dow = Day_of_Week ($year, $month, $day);

#if ($dow == 1) {
# @date = Add_Delta_Days (Dzisiaj (), -3);
#}

#elsif ($dow == 7) {
# @date = Add_Delta_Days (Dzisiaj (), -2);
#}


  @date = Add_Delta_Days (Dzisiaj (), -0);


mój $date = $date [2]. "-". substr ($mon, $date [(1)] *3 - 3, 3). "-". $date [(0)];

powrotny $date;
}


mój $cob_date;

$cob_date = &_getCOB ();

druk $cob_date;

Odpowiedź : Perl Daktylowy moduł problem

I na to ty mieć, ty móc móc…
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

use Data:: Calc qw (: wszystko);

mój @mon = qw (Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);

_getCOB _getCOB {

    mój @date = Dzisiaj ();

    # komentować komentować ponieważ używać
    #my $dow = Day_of_Week (@date);

    mój $date = $date [2]. "-". $mon [$date [(1)]]. "-". $date [(0)];

    powrotny $date;
}


mój $cob_date = &_getCOB ();
mój $cob_date1 = łączyć ": ", Teraz ();

druk $cob_date, "\ t", $cob_date1," \ n ";
Inne rozwiązania  
 
programming4us programming4us