删除除＆＃34; all＆＃34;之外的所有字符或者＆＃34;所有＆＃34;

Question

我有这样的字符串

$input = "ALL112343" or $input = "all11234" or $input = "ALL 1234"

我的期望输出是

$input = "ALL" or $input = "all"

那么，如何删除该字符串中的所有字符，除了单词＆＃34; all＆＃34;或＆＃34;所有＆＃34;？

谢谢大家的帮助，

Answer 1

你想要

($input) = $input =~ /(all)/i;

Answer 2

如果只有一次出现all或ALL：

$input = $input =~ /(all|ALL)/ ? $1 : "";

如果可能多次出现all或ALL：

$input =~ s/\G(?:all|ALL)*\K.//sg;

$input = join('', $input =~ /all|ALL/g );

拥有一系列匹配项可能更有用：

my @matches = $input =~ /all|ALL/g;