• Publicidad

Último día del mes

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Último día del mes

Notapor scout » 2009-12-07 08:17 @387

Gente: necesito saber si alguno sabe cómo sacar el número del último día del mes actual para poder asignar una variable dentro de un sql...? Me gustaría evitar los for()... de ser posible...
Última edición por explorer el 2009-12-07 08:20 @389, editado 1 vez en total
Razón: Tildes
scout
Perlero nuevo
Perlero nuevo
 
Mensajes: 228
Registrado: 2009-10-28 13:50 @618

Publicidad

Re: Último día del mes

Notapor explorer » 2009-12-07 08:28 @394

Con el módulo DateTime lo tienes -casi- todo hecho:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2. use DateTime;
  3.  
  4. my $hoy = DateTime->now;
  5.  
  6. my $ultimo_dia_del_mes
  7.     = DateTime->last_day_of_month(
  8.         year  => $hoy->year,
  9.         month => $hoy->month,
  10. );
  11.  
  12. print "$ultimo_dia_del_mes\n";   # 2009-12-31T00:00:00
  13. print $ultimo_dia_del_mes->day;  # 31
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Último día del mes

Notapor scout » 2009-12-07 11:40 @528

¡Qué grande...! Me sirvió... Muchas gracias...
scout
Perlero nuevo
Perlero nuevo
 
Mensajes: 228
Registrado: 2009-10-28 13:50 @618


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 0 invitados