Question

Perl中正则表达式去掉第一个空格后的所有字符

原文本：aaa ccc 111 222 333
现文本：aaa
我是用在Perl中，$string = "aaa ccc 111 222 333";
$string =~s /...............;
.........这个里面怎么写 可以实现

Answer 1

$str="aaa ccc 111 222 333";
($out = $str) =~s/(.*\s)(.*\s){3}.*/$1/;
print $out;

Answer 2

var reg = /^([^\s]*)\s.*/;
var str = "aaa ccc 111 222 333";
str.replace(reg,"$1");

追问

会报错
我是用在Perl中，$string = "aaa ccc 111 222 333";
$string =~s /...............;
.........这个里面怎么写 可以实现