Можете ли вы заставить скаляр или массив ref быть массивом в Perl?
Вопрос
У меня есть переменная perl $results
это возвращается со службы.Предполагается, что значение должно быть массивом, и $results
должна быть ссылка на массив.Однако, когда в массиве есть только один элемент, $results
будет установлено это значение, а не ссылочный массив, содержащий этот один элемент.
Я хочу сделать foreach
выполните цикл по ожидаемому массиву.Без проверки ref($results) eq 'ARRAY'
, есть ли какой-нибудь способ получить что-то эквивалентное следующему:
foreach my $result (@$results) {
# Process $result
}
Этот конкретный пример кода будет работать для ссылки, но будет жаловаться на простой скаляр.
Редактировать:Я должен уточнить, что у меня нет возможности изменить то, что возвращается из сервиса.Проблема в том, что значение будет скалярным, когда имеется только одно значение, и это будет ссылка на массив, когда имеется более одного значения.
Решение
я не уверен, что есть какой-то другой способ, кроме:
$result = [ $result ] if ref($result) ne 'ARRAY'; foreach .....
Другие советы
Другим решением было бы перенести вызов на сервер и заставить его всегда возвращать массив, чтобы упростить остальную часть вашей жизни:
sub call_to_service
{
my $returnValue = service::call();
if (ref($returnValue) eq "ARRAY")
{
return($returnValue);
}
else
{
return( [$returnValue] );
}
}
Тогда вы всегда можете быть уверены, что получите обратно ссылку на массив, даже если это был только один элемент.
foreach my $item (@{call_to_service()})
{
...
}
Хорошо, если ты не можешь этого сделать...
for my $result ( ref $results eq 'ARRAY' ? @$results : $results ) {
# Process result
}
или это...
for my $result ( ! ref $results ? $results : @$results ) {
# Process result
}
тогда вам, возможно, придется попробовать что-нибудь волосатое, пугающее, вроде этого!....
for my $result ( eval { @$results }, eval $results ) {
# Process result
}
и чтобы избежать этой опасной оценки строки, она становится действительно уродливой !!....
for my $result ( eval { $results->[0] } || $results, eval { @$results[1 .. $#{ $results }] } ) {
# Process result
}
PS.Я бы предпочел абстрагироваться от этого в примере sub ala call_to_service(), приведенном reatmon.
Я бы пересчитал код внутри цикла, а затем сделал
if( ref $results eq 'ARRAY' ){
my_sub($result) for my $result (@$results);
}else{
my_sub($results);
}
Конечно, я бы сделал это только в том случае, если бы код в цикле был нетривиальным.
Я только что протестировал это с помощью:
#!/usr/bin/perl -w use strict; sub testit { my @ret = (); if (shift){ push @ret,1; push @ret,2; push @ret,3; }else{ push @ret,"oneonly"; } return \@ret; } foreach my $r (@{testit(1)}){ print $r." test1\n"; } foreach my $r (@{testit()}){ print $r." test2\n"; }
И, кажется, все работает нормально, так что я думаю, это как-то связано с результатом, возвращаемым сервисом?Если у вас нет контроля над службой возврата, возможно, эту проблему будет сложно взломать
Вы можете сделать это вот так:
my @some_array
push (@some_array, results);
foreach my $elt(@some_array){
#do something
}