Hola, buenos días, quisiera saber de qué forma me da la posibilidad Perl de sumar horarios. Por ejemplo:
14:30:00 + 00:05:00 = 14:35:00
Tengo el horario en un variable y le deseo sumar (o restar) una cierta cantidad de minutos, ¿de qué manera lo hago? Muchas gracias.
-
- Publicidad
Horario en Perl
4 mensajes
• Página 1 de 1
Horario en Perl
por zozo666 » 2007-09-25 07:17 @345
- zozo666
- Perlero nuevo
- Mensajes: 139
- Registrado: 2007-05-26 10:36 @483
Publicidad
por explorer » 2007-09-25 07:33 @356
Con el módulo DateTime está todo controlado:
Si quieres que $horario no se modifique, puedes clonarlo antes:
Using perl Syntax Highlighting
#!/usr/bin/perl -l
use DateTime;
use DateTime::Duration;
my $horario = DateTime->now()->set(
hour => 14,
minute => 30,
second => 0
);
my $cinco_minutos = DateTime::Duration->new(
minutes => 5,
);
print $horario->add_duration( $cinco_minutos )->hms(); # 14:35:00
print $horario; # 2007-09-25T14:35:00
use DateTime;
use DateTime::Duration;
my $horario = DateTime->now()->set(
hour => 14,
minute => 30,
second => 0
);
my $cinco_minutos = DateTime::Duration->new(
minutes => 5,
);
print $horario->add_duration( $cinco_minutos )->hms(); # 14:35:00
print $horario; # 2007-09-25T14:35:00
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Última edición por explorer el 2007-09-25 17:25 @767, editado 1 vez en total
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
4 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: Bing [Bot] y 5 invitados