使用perl中的regExp拉出部分字符串

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