如何在空间后砍掉字符？

Question

我有一个变量 - 由单个空格分隔的2个单词：$ var =“xxxx yyyy”。在Perl中，我如何使用正则表达式，使$ VAR = “XXXX”

感谢， 三位一体

Answer 1

不受任何更换\s.+$：

$var =~ s/ .+$// 

（按难以捉摸的评论）

Answer 2

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

或

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

Answer 3

你不会！好吧，你可以，但为什么？

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

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