在 perl 中检查用户输入的字符和长度

Question

我的问题基本上如标题所说。
如何在 perl 中检查用户是否输入了字符串

1. 只有某些字符长（例如，3 个字符长）
2. 只包含字符（例如，它应该只包含字符“u”、“a”、“g”和“c”）

Answer 1

my $input = <>;
if ($input =~ /^[uagc]{3}$/g){
    # your codes
} else {
    #exit or die;
}

Answer 2

$s =~ /^[uagc]{3}\z/
   or die("usage\n");