Frage : Ein Perl-Datummodulproblem

Hallo, kann

I heutiges Datum using Datum zurückholen:: Calc-Modul. Können Sie pls helfen hinsichtlich, wie ich heutige Stundenminuten zurückholen kann und sekzeit using das gleiche Modul in einem anderen variablen $cob_date1 sagen? 
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:
6:
37:

use Datum:: Calc qw (: alle);


Vor_getCOB {

mein $mon = „JanFebMarAprMayJunJulAugSepOctNovDec“;

mein @date;

mein ($year, $month, $day) = Add_Delta_Days (heute (), 0);


mein $dow = Day_of_Week ($year, $month, $day);

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

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


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


mein $date = $date [2]. „-“. substr ($mon, $date [1] *3 - 3, 3). „-“. $date [0];

Rückhol$date;
}


mein $cob_date;

$cob_date = &_getCOB ();

Druck $cob_date;

Antwort : Ein Perl-Datummodulproblem

Um zu vereinfachen und zu erweitern auf was Sie haben, können Sie dies tun…
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Gebrauch Datum:: Calc qw (: alle);

mein @mon = qw (Jan. Feb Mrz mag Apr Jun Jul Aug Sept Okt Nov. Dezember);

Vor_getCOB {

    mein @date = heute ();

    # heraus kommentiert, seit nicht verwendet
    #my $dow = Day_of_Week (@date);

    mein $date = $date [2]. „-“. $mon [$date [1]]. „-“. $date [0];

    Rückhol$date;
}


mein $cob_date = &_getCOB ();
mein verbinden $cob_date1 = „: “, Jetzt ();

Druck $cob_date, „\ t“, $cob_date1,“ \ n ";
Weitere Lösungen  
 
programming4us programming4us