use strict;
use utf8;
print "请输入一个字符! ";
my $input = <STDIN>;
chomp $input;
die "请只输入一个字符!!!!" unless ( length ( $input ) == 1 ) ;
if ( $input =~ /^[A-Z]$/ ) {
print "这是大写!";
}
elsif ( $input =~ /^[a-z]$/ ) {
print "这是小写";
}
else {
print "这个不是英文字母!!";
}
如果你真的跟我用中文字这个程序, 记得要把 script 存档成 utf-8 的格式啊