Как говорится в сообщении об ошибке, @{ $result_string }
пытается разыменовать строку, как если бы она была ссылкой на массив.Но это всего лишь строка, поэтому Perl не может сделать это за вас
Похоже, у вас есть данные, разделенные точкой с запятой, и самый простой подход - использовать split
для разделения их на поля
Это должно работать лучше для вас
for ( split /;/, $result_string ) {
print "SSID[$index]: $_\n";
++$index;
}
, но я не могу понять, что вы пытаетесь сделать с $_->{$index}->{ssid}
.Возможно, вы бы объяснили?