在perl从键盘输入一个整数表示月份（1-12），显示该 整数对应的月份的英文名称（缩写）

在Perl中，你可以通过获取用户的键盘输入，然后使用条件结构来将输入的整数映射到相应的月份英文名称和缩写。这里是一个简单的示例：

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

print "请输入一个1到12之间的月份整数：";
my $month_input = <STDIN>;
chomp $month_input;  # 移除末尾换行符

# 创建一个数组，存储月份和对应的英文名称及缩写
my %months = (
    1 => 'January (Jan)',
    2 => 'February (Feb)',
    3 => 'March (Mar)',
    4 => 'April (Apr)',
    5 => 'May',
    6 => 'June (Jun)',
    7 => 'July (Jul)',
    8 => 'August (Aug)',
    9 => 'September (Sep)',
    10 => 'October (Oct)',
    11 => 'November (Nov)',
    12 => 'December (Dec)'
);

if ($month_input =~ /^\d{1,2}$/ && $month_input >= 1 && $month_input <= 12) {
    print "$month_input月的英文名称是 $months{$month_input}\n";
} else {
    print "输入无效，请输入1到12之间的整数。\n";
}