Как отрубить символы после пробела?

Question

У меня есть переменная - 2 слова, разделенные одним пробелом: $ var = "xxxx yyyy".В Perl, как использовать регулярные выражения для создания $ var = "xxxx"

Спасибо, Trinity

Answer 1

Заменить \s.+$ ничем:

$var =~ s/ .+$//

(согласно комментарию неуловимого)

Answer 2

Вы не! Хорошо, вы могли бы, но почему?

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

Это не совсем преждевременная оптимизация, а скорее ситуация "избегания золотого молотка".

Answer 3

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

Или

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