Можно ли это написать в 1 или 2 строки без переменной tmp?

Question

У меня есть этот код

my $tmp = $q->param('owner');
$tmp =~ s/\s*//g; # remove white space from string
my @owners     = split ",", $tmp;

, который работает, но занимает 3 строки, и очень неправильно использовать временную переменную.

Можно ли сделать это в меньшем количестве строка без временной переменной?

Answer 1

Я бы написал так:

my @owners = map { s/\s*//g; $_ } split ",", $q->param('owner');

Поскольку вы убираете все пробелы, не имеет значения, делаете ли вы это для ввода или для списка.

Конечно, я использую map -подстановочные замены достаточно часто, поэтому у меня есть сабвуфер под названием filter, который выглядит так: filter { s/\s*//g } ..., который в основном такой же.

Answer 2

my @owners = split /\s*,\s*/, $q->param('owner');

Answer 3

my @owners = $q->param( 'owner' ) =~ m{([^,\s]+)}g;

Answer 4

Вы можете использовать:

my @owners = split(/\s*,\s*/, $q->param('owner');

Но у вас все еще будут пробелы, которые не находятся вокруг ,