perl正则表达式匹配表达式

Question

我正在使用以下指令解析文件中以空格分隔的行：

($F1,$F2) = split(/\s/,$_);

就像

一样

TEXT1 TEXT2 TEXT3

我需要$F2 TEXT2 TEXT3 TEXT2 {{1}}。我怎么能这样做？

由于

Answer 1

split may be passed a third argument: LIMIT (i.e. number of fields to split into).

($F1,$F2) = split(/\s/,$_,2);