我怎样才能在Perl中获得本周的日期？

#!/usr/bin/env perl
use warnings;
use Strict;

use datetiR_14_11845@e;

# Calculate numeric value of today and the 
# target day (Monday = 1,Sunday = 7); the
# target,in this case,is Monday,since that's
# when I want the week to start
my $today_dt = datetiR_14_11845@e->now;
my $today = $today_dt->day_of_week;
my $target = 1;

# Create datetiR_14_11845@e copies to act as the "bookends"
# for the date range
my ($start,$end) = ($today_dt->clone(),$today_dt->clone());

if ($today == $target)
{
  # If today is the target,"start" is already set;
  # we simply need to set the end date
  $end->add( days => 6 );
}
else
{
  # Otherwise,we calculate the Monday preceeding today
  # and the Sunday following today
  my $delta = ($target - $today + 7) % 7;
  $start->add( days => $delta - 7 );
  $end->add( days => $delta - 1 );
}

# I clone the datetiR_14_11845@e object again because,for some reason,# I'm wary of using $start directly...
my $cur_date = $start->clone();

while ($cur_date <= $end)
{
  my $date_ymd = $cur_date->ymd;
  print "$date_ymd\n";
  $cur_date->add( days => 1 );
}

如上所述,这是有效的,但它是最快还是最有效的？我猜测速度和效率可能不一定在一起,但您的反馈非常感谢.