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

loop:
{
print "请输入1-26内的任意数值:";
chomp(my $num=<STDIN>);
redo loop if $num!~/\d+/;
#在随机生成1-26的一个数但不等于$num
my $another=int(rand 26)+1;
redo loop if $num==$another;
if ($num < $another) { 
   printf "%c",$_ for ($num+96..$another+96)
   } else {
          printf "%c",$_ for (reverse ($num+96..$another+96))
		  }
}
复制代码