小编muh*_*ana的帖子

我有一个数组，@address其零元素包含一些字符串。我找不到使用 @array 作为参数的示例菱形运算符。（它如何“拆分”字符串？）

use Mojo::Loader qw/ data_section /;

my @address =  data_section 'main', 'address_strings';


while( my $line = <@address> ) {
  print $line;
}


1;


__DATA__
@@ address_strings
"010101, ??? ???., ?. ?????????, ???. ???, ???. 0101, 01"
"020202, ??? ???., ??? ?????, ???? ???, ?????? ???, ??????? 01"
"030303, ?.???, ??? ?-?, ???. ???, ???.01, ???? 01"

UPD
从 doc<>运算符读取允许 GLOB 或文件句柄，但在我的情况下，这只是一个 string 的数组。

my @arr = <<TEXT;
many
lines
TEXT

while( my …