#!/usr/bin/perl
# Copyright (c) 2010-2013 IndexData ApS
#
# pp-days - create regular expression to extract pazpar2 log entries by the last days
#
# usage: ./pp-days 7
#

use DateTime;    # apt-get install libdatetime-perl
use strict;
use warnings;

sub date {
    my $d     = shift;
    my $month = $d->month;
    my $day   = $d->day;

    $month = "0" . $month if $month < 10;
    $day   = "0" . $day   if $day < 10;

    return $day . "/" . $month;
}

my $days = $ARGV[0] || 0;

my $d    = DateTime->now;
my $data = date($d);

for ( my $i = 0 ; $i < $days ; $i++ ) {
    $d->subtract( days => 1 );
    $data .= "|" . date($d);
}

print $data;

1;

