在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