在perl中使用regEx拉出部分字符串

Question

小问题重新考虑参与字符串。 我的字符串是

  

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

我想将sting的第一部分保存到.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