regex - 在 perl 中使用 regExp 提取字符串的一部分

Question

小问题正在重新调整字符串的一部分。我的字符串是

这里的一些文本值：100 .1.3.6 bla bla。

我想将刺痛的第一部分保存到 .1.3.......

所以最后我只有

此处的一些文本值：100

Answer 1

$str="some text here value: 100 .1.3.6 bla bla.";$str=~m{^([^.]*)} and print $1'

这从字符串的开头匹配，直到出现点字符。如果存在匹配，则捕获并打印匹配的部分。

Answer 2

这可能是您正在寻找的（假设每行只有一个:）。

perl -pe 's/(.*: [^ ]+).*/$1/' file.txt 

结果：

some text here value: 100