如何在空格后切掉字符？

Question

我有一个变量-2个单词，用一个空格隔开：$var = "xxxx“。在perl中，如何使用正则表达式使$var = "xxxx“

谢谢，三位一体

Answer 1

将\s.+$替换为nothing：

$var =~ s/ .+$//

(根据elusive的评论)

Answer 2

你没有!好吧，你可以，但是为什么呢？

substr $var, index($var, ' '), length $var, '';

这并不是一个过早的优化，但更多的是“避免金锤”的情况。

Answer 3

$var = (split / /, $var, 2)[0];

或

($var) = $var =~ /^(\S+)/;