perl 从键盘输入一个字符，判断其是否为碱基，若是碱基，则把其对应的碱基的英文全称输出，若不是碱基，则输出“Not a base”的提示

在Perl中，你可以通过循环读取用户的输入，并利用条件语句判断输入的字符是否为DNA碱基（A, T, C, G）。下面是一个简单的示例程序来实现这个功能：

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

print "Please enter a character: ";
my $input = <STDIN>; # 获取用户输入

# 碱基的英文全称数组
my @bases = ('Adenine', 'Thymine', 'Cytosine', 'Guanine');

if ($input =~ /^[ATCG]$/) {  # 使用正则表达式检查是否为A, T, C, 或 G
    my $base = uc($input);   # 转换为大写，以便匹配全称
    print "$base\n";
} else {
    print "Not a base\n";
}

在这个程序中，`/^[ATCG]$/` 是一个正则表达式，它匹配字符串开始到结束的所有字符，只要它们是 A、T、C 或 G 中的一个。如果输入的是碱基，`uc` 函数将其转换为大写形式并打印出来；如果不是，就显示提示信息。