Mise en forme localtime() dans le script perl

Vous vous demandez comment mettre en forme la sortie de localtime() de année/mois/jour

J'ai été en mesure de le faire facilement à l'aide de la "date" de commande depuis le terminal, mais j'ai besoin de calculer les dates antérieures ainsi que j'ai compris comment le faire en perl.

foreach my $i (0..7)
{
  my $date = localtime(time() - 60*60*24*$i);
  print "$i day(s) ago: $date\n";
}

Imprime ce :

0 day(s) ago: Tue Apr  3 12:01:13 2012
1 day(s) ago: Mon Apr  2 12:01:13 2012
2 day(s) ago: Sun Apr  1 12:01:13 2012
3 day(s) ago: Sat Mar 31 12:01:13 2012
4 day(s) ago: Fri Mar 30 12:01:13 2012
5 day(s) ago: Thu Mar 29 12:01:13 2012
6 day(s) ago: Wed Mar 28 12:01:13 2012
7 day(s) ago: Tue Mar 27 12:01:13 2012

OriginalL'auteur jackie | 2012-04-03

  1. 3

    Script:

    #!/usr/bin/perl
use strict;

foreach my $i (0..7)
{
  my ($d, $m, $y) = (localtime(time() - 60*60*24*$i))[3,4,5];
  printf "%d day(s) ago: %d/%d/%d\n", $i, $y+1900, $m+1, $d;
}

    De sortie:

    0 day(s) ago: 2012/4/3
1 day(s) ago: 2012/4/2
2 day(s) ago: 2012/4/1
3 day(s) ago: 2012/3/31
4 day(s) ago: 2012/3/30
5 day(s) ago: 2012/3/29
6 day(s) ago: 2012/3/28
7 day(s) ago: 2012/3/27
    Génial, merci.
    Ne pas faire ce genre de date de mathématiques sur votre propre, comme expliqué dans perlfaq4. Il suffit de demander TomTom comment beaucoup de questions. 🙂

    OriginalL'auteur Ωmega

  2. 9

    Voici un exemple de POSIX::strftime: 

    use POSIX ();

my @local = ( localtime )[0..5];
foreach my $i ( 0..7 ) {
  my $date = POSIX::strftime( '%a %b %d %H:%M:%S %Y', @local);
  print "$i day(s) ago: $date\n";
  $local[3]--;
}
    C'est particulièrement habile façon de le faire. 🙂 Est la garantie de travailler partout? Je ne pouvais pas trouver toute la documentation sur ce qui devrait le faire.
    Je ne sais pas si c'est complètement portable, mais l'étrange valeurs sont gérées par POSIX::mktime et POSIX::strftime, passant de 5,8 à 5.14 sur Windows (Fraise et Active), UNIX et Linux) et partout où je l'ai essayé. Donc, je ne sais pas à propos d'un garantie.

    OriginalL'auteur Axeman

  3. 6

    Si vous faites de la date de mathématiques, l'utilisation d'un module à droite. Par exemple, DateTime:

    use DateTime;

my $date = DateTime->now;

foreach my $i ( 0 .. 10 ) {
    $date->subtract( days => 1 );
    say $date->ymd( '/' );
    }

    OriginalL'auteur brian d foy

  4. 3

    vous pouvez utiliser POSIX::strftime de module POSIX.

    perl -mPOSIX -e 'printf POSIX::strftime("%Y/%m/%d",localtime).

    merci! n'étais pas au courant de ce module

    OriginalL'auteur keety