Vraag : Een de moduleprobleem van de Datum Perl

Hallo, kan

I de datum van vandaag terugwinnen gebruikend Datum:: De module van Calc. Kunt u pls hulp over hoe ik het uur van vandaag kan terugwinnen mins en zegt de secondentijd die gebruiken de zelfde module in een andere variabele $cob_date1?
" codeBody " 
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:: Calc qw (: alle);


sub _getCOB {

mijn $mon = „JanFebMarAprMayJunJulAugSepOctNovDec“;

mijn @date;

mijn ($year, $month, $day) = Add_Delta_Days (vandaag (), 0);


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

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

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


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


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

terugkeer $date;
}


mijn $cob_date;

$cob_date = &_getCOB ();

druk $cob_date;

Antwoord : Een de moduleprobleem van de Datum Perl

Om over wat te vereenvoudigen en uit te weiden u hebt, kunt u dit doen…
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

gebruiks Datum:: Calc qw (: alle);

mijn @mon = qw (Februari van Januari brengt Oct van Sep van Augustus van Juli van April Mei Jun Dec van Nov.) in de war;

sub _getCOB {

    mijn @date = vandaag ();

    # uit becommentari�ërd sinds gebruikt niet
    #my $dow = Day_of_Week (@date);

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

    terugkeer $date;
}


mijn $cob_date = &_getCOB ();
mijn $cob_date1 = treed „toe: “, Nu ();

druk $cob_date, „\ t“, $cob_date1,“ \ n ";
Andere oplossingen  
 
programming4us programming4us