Regex Perl：使用正则表达式分离行中的字符

很抱歉问这么简单的问题，但是我对正则表达式真的很差劲，我已经在线搜索了大约45分钟

这是字符串：“R3”

R可以是R、G、B或Y。 我想把这个字母放在变量$color中的任何东西都分离出来。 我试过这样做：

$color = "R 3";
$color =~ s/![rgby]/[rgby]/g;

这是：

$color = "R 3";
$color =~ s/[rgby]/g;

---

谁能给我一根骨头，告诉我密码是什么？非常感谢。

您要替换以删除任何不是R、G、B或Y的内容：

$color = "R 3";
$color =~ s/[^RGBY]//g;

（如果需要大写或小写颜色，请使用

/gi

而不是

/g

）

或者，您可以使用以下选项代替替换：

或者，您可以只提取所需的单个字符，并保持原始字符串不变：

$string = "R 3";
($color) = $string =~ /([RGBY])/;

---

要替换以删除任何不是R、G、B或Y的内容：

$color = "R 3";
$color =~ s/[^RGBY]//g;

（如果需要大写或小写颜色，请使用

/gi

而不是

/g

）

或者，您可以使用以下选项代替替换：

或者，您可以只提取所需的单个字符，并保持原始字符串不变：

$string = "R 3";
($color) = $string =~ /([RGBY])/;

---

要替换以删除任何不是R、G、B或Y的内容：

$color = "R 3";
$color =~ s/[^RGBY]//g;

（如果需要大写或小写颜色，请使用

/gi

而不是

/g

）

或者，您可以使用以下选项代替替换：

或者，您可以只提取所需的单个字符，并保持原始字符串不变：

$string = "R 3";
($color) = $string =~ /([RGBY])/;

---

要替换以删除任何不是R、G、B或Y的内容：

$color = "R 3";
$color =~ s/[^RGBY]//g;

（如果需要大写或小写颜色，请使用

/gi

而不是

/g

）

或者，您可以使用以下选项代替替换：

或者，您可以只提取所需的单个字符，并保持原始字符串不变：

$string = "R 3";
($color) = $string =~ /([RGBY])/;

---

我想他想获取R、G、B或Y。@squiguy:s/他有$color的输入，并说输出也应该是$color。@ysth:是的，这似乎不是真正的要求，但我想你已经涵盖了所有的可能性。我想他想获取R、G、B，或者Y.@squiguy:s/他有$color的输入，并说输出也应该是$color。@ysth:是的，这似乎不是真正的要求，但我认为你已经涵盖了所有的可能性。我认为他想抓住R，G，B，或者Y.@squiguy:s/他有$color的输入，并说输出也应该是$color。@ysth:是的，这似乎不是真正的要求，但我认为你已经涵盖了所有的可能性。我认为他想抓住R，G，B，或者Y.@squiguy:s/他有$color的输入，并说输出也应该是$color。@ysth:是的，这似乎不是真正的要求，但我认为你已经涵盖了所有的可能性。