#!/usr/bin/perl
use strict;
use warnings;
use Time::Local;
use POSIX qw/strftime/;
# Obtenemos la fecha actual desglosada
my ($s, $min, $h, $d, $m, $y) = localtime();
my $time = timelocal $s, $min, $h, $d, $m, $y;
my $today = strftime "%d-%m-%Y", localtime $time;
my $ayer1 = strftime "%d-%m-%Y", $s, $min, $h, $d - 1, $m, $y;
my $manana1 = strftime "%d-%m-%Y", $s, $min, $h, $d + 1, $m, $y;
my $ayer2 = strftime "%d-%m-%Y", localtime $time - 24*60*60;
print "Fecha actual: $today\n";
print "Fecha de ayer restando un día a una fecha dada : $ayer1\n";
print "Fecha de ayer restando minutos a la fecha actual: $ayer2\n";
print "Fecha de mañana aumentando un día a una fecha dada : $manana1\n";
print "\n\n---------------------------------\n\n";
# Definimos una fecha cualquier
my ($s2, $min2, $h2, $d2, $m2, $y2) = (0,0,0,14,2,70);
my $fecha = strftime "%d-%m-%Y", $s2, $min2, $h2, $d2, $m2, $y2;
print "Una fecha cualquiera: $fecha\n";
print "Fecha de ayer restando un día a una fecha dada: ";
print strftime "%d-%m-%Y", $s2, $min2, $h2, $d2 - 1, $m2, $y2;
print "\nFecha de mañana aumentando un día a una fecha dada: ";
print strftime "%d-%m-%Y", $s2, $min2, $h2, $d2 + 1, $m2, $y2;
print "\n";
Comentarios sobre la versión: Versión 1 (0)
No hay comentarios