Форматирование localtime () в скрипте perl

Question

Хотите знать, как отформатировать вывод localtime () в год / месяц / день? 1001 *

Я смог сделать это легко с помощью команды 'date' из терминала, но мне также нужно вычислить предыдущие даты,я понял, как это сделать в Perl.

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

Распечатывает это:

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

Answer 1

Вот пример 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]--;
}

Answer 2

Если вы занимаетесь математикой даты, используйте модуль, который делает это правильно. Например, DateTime :

use DateTime;

my $date = DateTime->now;

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

Answer 3

Сценарий:

#!/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;
}

Выход:

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

Answer 4

вы можете использовать POSIX :: strftime из модуля POSIX.

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