在perl）从键盘输入一个整数表示月份（1-12），显示该 整数对应的月份的英文名称（缩写），具体要求： 1）键盘输入的整数值为1~12 2）键盘输入整数前要有提示信息，输入后要检查数据 的合法性，若输入的不是1~12之间的整数，则输出错 误信息

在Perl中，你可以创建一个循环，让用户输入月份直到输入正确的整数为止。这里是一个简单的示例，展示了如何实现这个需求：

#!/usr/bin/perl
use strict;
use warnings;

print "请输入1至12个月份: ";
my $input = <STDIN>;
chomp($input);

while (!defined($input) || !($input =~ /^\d{1,2}$/) || $input < 1 || $input > 12) {
    print "输入有误，请重新输入1至12个月份: ";
    $input = <STDIN>;
    chomp($input);
}

my %months = (
    1 => 'January',
    2 => 'February',
    3 => 'March',
    4 => 'April',
    5 => 'May',
    6 => 'June',
    7 => 'July',
    8 => 'August',
    9 => 'September',
    10 => 'October',
    11 => 'November',
    12 => 'December'
);

my $month_name = $months{$input};
if (defined $month_name) {
    print "$input月份的英文名称是: $month_name\n";
} else {
    print "输入的月份不合法!\n";
}