Letzten Monatstag ermitteln

[seth_not@home]

gudn tach!

Ich ermittle so den letzten Tag eines Monats[...]:

use Time::Local;
  $jahr=2013;
  $monat=3; #Januar=1, Februar=2, ...
  $tagessekunden=24*60*60; [...]

da gibt's besseres:

#!/usr/bin/perl  
use strict;  
use warnings;  
use DateTime;  
  
my $date = DateTime->new(  
	year  => 2013,  
	month => 3,  
	day   => 1,  
);  
$date->add('months'=>1)->subtract('days'=>1);  
print $date->day,"\n";  

prost
seth