仅当字符串包含指定的内容但没有其他内容时，正则表达式匹配

Question

我正在尝试在 perl 中实现一个正则表达式，如果字符串包含我指定的任何内容，则它匹配，但如果字符串包含其他任何内容，即使它另外包含我的正则表达式元素，它也必须失败。 例如：

if ($string !~ m/[ACTG]{1,}/) {
  die "invalid sequence";
}

如果我输入DQJ作为 s 序列，程序就会死掉。 但是，如果我输入ACH它不会，因为它至少包含正则表达式模式中的一个元素。

如果字符串包含 A、C、T 或 G 以外的任何内容，我希望匹配失败。

谢谢！

PS：我不熟悉这种情况下的命名法，我将在正则表达式语句中的 // 内称为什么？

Answer 1

您可以确保每个字符都是有效字符。

die if !/^[ACTG]*\z/;

使用更快的 tr///：

die if tr/ACTG// != length($_);

或者您可以确保字符串不包含无效字符。

die if /[^ACTG]/;

使用更快的 tr///：

die if tr/ACTG//c;

感谢@DavidO 建议 tr///。

Answer 2

使用^字符定义字符串的开头，使用$定义结尾。

if ($string !~ /^[ACTG]*$/){die "invalid sequence";}