Perl编程实践：日期格式化与脚本开发

1、编写一个程序，接收一个有效的日期，并将其转换为“January 01, 2001”的格式。有效日期的格式应为“01/01/2001”。第一个数字应在 01 到 12 之间，第二个数字应在 01 到 31 之间，最后一个数字应为四位数。不必担心“02/31/2001”这类“错误”情况。如果输入的日期不正确，显示错误信息并要求重新输入。

以下是一个满足需求的 Perl 程序示例：

use strict;
use warnings;

my @month_names = qw(January February March April May June July August September October November December);

while (1) {
    print "请输入日期（格式：01/01/2001）：";
    my $input = <STDIN>;
    chomp $input;

    if ($input =~ m/^([0-9]{2})\/([0-9]{2})\/([0-9]{4})$/ ) {
        my ($month, $day, $year) = ($1, $2, $3);

        if ($month >= 1 && $month <= 12 && $day >= 1 && $day <= 31) {
            my $month_name = $month_names[$month - 1];
            my $formatted_date = sprintf("%s %02d, %d", $month_name, $day, $year);
            print "转换后的日期：$formatted_date\n";
            last;
        } else {
            print "输入的日期无效，请重新输入。\n";
        }
    } else {
        print "输入的日期格