vincent's Blog


#### defined perl Modul #############
use Time::Local;
use Date::Manip;
#######################################
## defined ##########################
$min_ago=10;

#######################################
sub getmin_ago{
  my $count=@_[0];
  #####################################################
  my $date1 = ParseDate("today");
  my $date1 = DateCalc( $date1, "- $count minute");
  my $date1 = UnixDate( $date1, "%Y-%m-%d %H:%M");
  return $date1;
}


for ($i=0; $i<=$min_ago -1; $i++)
{
$date=&getmin_ago($i);
printf "%s\n", $date1
}