Perl日期处理与性能优化

71、从标准输入读取一个人的生日，然后使用DateTime::Format::Strptime将该日期解析为DateTime对象。接着，用DateTime->now减去该日期以得到一个DateTime::Duration对象，并调用其years()方法提取自生日以来的年数。请编写实现此功能的代码。

use strict;
use warnings;
use DateTime;
use DateTime::Format::Strptime;

my $datetime_formatter = DateTime::Format::Strptime->new(
    pattern => '%Y-%m-%d',
    time_zone => 'GMT',
);

print "Enter your birthday in YYYY-MM-DD format: ";
my $birthday = <STDIN>;
chomp($birthday);

my $birthday_date = $datetime_formatter->parse_datetime($birthday) or die "Could not parse birthday: $birthday";
my $duration = DateTime->now - $birthday_date;
printf "You are %d years old\n", $duration->years;

72、使用 Getopt::Long 处理 –birthdate 和 –age_at 命令行开关。如果未提供 –birthdate，则从命令行提示用户输入。如果未提供 –age_at，则假定今天为结束日期。如果结束日期早于开始日期，则输出有用的错误信息并终止程序。编写代码实现此功能。

use strict;
use warnings;
use DateTime;
use Getopt::Long;
use DateTime::Format::Str