Comment puis-je obtenir le premier et le dernier jour du mois avec DateTime de Perl?

Est-il un moyen pour déterminer le premier jour du mois (min jour) et le dernier jour d'un mois (max jour), étant donné que le mois d'entrée, à l'aide de DateTime en perl?

Jusqu'à présent, j'ai compris comment passer dans un premier date de, date de la dernière à me donner une fourchette de jours.

Mais ce que je veux faire, c'est de passer dans un mois, c'est un argument, disons 201203 et min retour, maxday.

Est-ce possible avec DateTime?

Aussi, je veux changer le format de la date masque de AAAAMMJJ à AAAA-MM-JJ.

    use strict;
    use warnings;
    use DateTime;

    unless(@ARGV==2)
    {
        print "Usage: myperlscript first_date last_date\n";
        exit(1);
    }

    my ($first_date,$last_date)=@ARGV;

    my $date=DateTime->new(
    {
      year=>substr($first_date,0,4),
      month=>substr($first_date,4,2),
      day=>substr($first_date,6,2)
    });


while($date->ymd('') le $last_date)
{
  print $date->ymd('') . "\n";
  #$date->add(days=>1); #every day
  $date->add(days=>30);
}

Résultats Attendus:

2012-03-01
2012-03-31

source d'informationauteur cjd143SD

datetime perl

DateTime ne date calculs pour vous. Vous pouvez dire ymd le personnage que vous souhaitez utiliser comme séparateur:

use DateTime;

my( $year, $month ) = qw( 2012 2 );

my $date = DateTime->new(
    year  =>  $year,
    month => $month,
    day   => 1,
);

my $date2 = $date->clone;

$date2->add( months => 1 )->subtract( days => 1 );

say $date->ymd('-');
say $date2->ymd('-');

Il existe de nombreux exemples dans "Le dernier jour du mois. Tout court" sur Perlmonks, que j'ai trouvé sur Google "perl datetime dernier jour du mois".

Et voici un Temps::Moment exemple. C'est un plus maigre, plus rapide sous-ensemble de DateTime:

use v5.10;
use Time::Moment;

my( $year, $month ) = qw( 2012 2 );

my $tm = Time::Moment->new(
    year  =>  $year,
    month => $month,
    day   => 1,
);

my $tm2 = $tm->plus_months( 1 )->minus_days( 1 );

say $tm->strftime('%Y-%m-%d');
say $tm2->strftime('%Y-%m-%d');

Il est surprenant que ni DateTime exemple utilise la spéciale constructeur last_day_of_month pour que (exemple de la courtoisie de brian d foy):

use DateTime;
use strict;
use 5.010;

my( $year, $month ) = qw( 2012 2 );

my $date = DateTime->new(
    year  =>  $year,
    month => $month,
    day   => 1,
);

my $date2 = DateTime->last_day_of_month(  
    year  =>  $date->year,
    month => $date->month,
);

say $date->ymd('-');
say $date2->ymd('-');

Comme une alternative, il est le noyau du module Perl Time::Piece.

Pour le mois en cours et de l'année:

perl -MTime::Piece -wE '$t=localtime;say $t->month_last_day'
31

Plus généralement, quelque chose comme:

use 5.010;
use Time::Piece;
my $MY = shift || die "Month and Year expected\n";
my $t  = Time::Piece->strptime($MY, "%m%Y");
say $t->month_last_day;

$ ./mycode 022012
29

Premier jour:

$dt->set_day(1);

Dernier jour:

$dt->set_day(1)->add( months => 1 )->subtract( days => 1 );

0

Tandis que la classe DateTime offre un constructeur pour ce faire, le moyen le plus efficace pour obtenir le dernier jour du mois à partir d'un objet DateTime est de demander l'objet de la calculer. La classe expose une méthode non documentée _month_length() qui calcule le dernier jour du mois de manière très efficace. Avec votre objet DateTime appelé $date, vous pouvez essayer de
```
$date->_month_length($date->year,$date->month);
```
Cette méthode est sans-papiers, de sorte qu'il peut ou ne peut pas être pris en charge par votre version de DateTime. À utiliser avec prudence.

Vous devez vous connecter pour publier un commentaire.