如何从第一个非alpha字符开始删除字符串中的所有字符?

Che*_*eso 2 regex string perl parsing

如果不是某些情况,这将会容易得多.

样本数据:

KENP989SD
KENP913E
KENPX189R
KENP913
Run Code Online (Sandbox Code Playgroud)

我可以用什么正则表达式从第一个非alpha字符开始删除字符串中的所有字符?基本上,我想找到第一个非alpha字符,然后在不管char类型的情况下切断所有内容.

应用正则表达式后,这些数据应为:

KENP
KENP
KENPX
KENP
Run Code Online (Sandbox Code Playgroud)

Igo*_*Oks 14

$s =~ s/[^a-zA-Z].*$//;

从字面上看,找到第一个非alpha字母并从中开始切断所有内容.


jim*_*tut 6

你用2种方式表达了请求:

  1. 从这些字符串的前面获取所有alpha字符
  2. 找到最后一个alpha字符,然后关掉所有内容

虽然给出了样本字符串的结果是一样的,但我发现对正则表达式更加小心是值得的.所以,我将上面的第一项作为真正的要求,并将其写为:

$str =~ s/^([a-z]*)[^a-z].*/$1/i;
Run Code Online (Sandbox Code Playgroud)

在我看来,优点是意外的字符串(如"7KENP989SD")应该在替换后产生一个空字符串,而不是像"7KENP"那样意外的字符串.当然,也许这就是你想要的......


use*_*650 5

s/([A-Za-z]*).*/$1/
Run Code Online (Sandbox Code Playgroud)

... 将工作.它不一定是最好的方式,但它是一般情况下的替代品.

它只适用于您只想要字母字符的情况