如何在空間後砍掉字符？

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, ''; 

這不是一個過早的優化，但更多的是「避免金錘」的情況。