Доступ к окончательному значению массива из области действия цикла

Question

Как я могу получить доступ к значениям массива @missing вне области действия, когда цикл завершен?

Я попытался объявить его вне сферы действия, но когда я печатаю из области действия, я не получаю никаких значений. Вот мой код:

my $last= $order[0]; 
for my $cur (@order[1..$#order]) { 
    . 
    . 
    . 
    my @missing = grep { ! $b{$_} } @aa; 
    print Dumper @missing; 
    $last = $cur; 
} 

Answer 1

Вы не пытаетесь получить доступ к @missing массив в коде, так что я немного смущен относительно того, что вы имеете в виду, точно. Но я предполагаю, что вы хотите хранить разные элементы от @missing для каждой итерации. Итак, сделайте это.

my @all_missing; 
for .... { 
    ... 
    my @missing = grep { ! $b{$_} } @aa; 
    push @all_missing, \@missing;   # store ref to array 
} 

# all the "missing" elements are now stored in the two-dimensional array 
# @all_missing 

Поскольку вы используете лексическую переменную @missing, вы можете сохранить ссылку на него непосредственно. Каждая итерация выходит из области действия и инициализируется новым адресом памяти.

Answer 2

В настоящее время это петля моя переменная, которая имеет объем только в течение цикла.

Объявление @missing перед циклом, если вы хотите получить к нему доступ в области, охватывающей цикл.

my $last= $order[0]; 
my @missing =(); 
for my $cur (@order[1..$#order]) { 
    my @aa= flat $last; 
    my @bb= flat $cur; 
    my %b = map { $_ => 1 } @bb; 
    @missing =(); # reset from last use 
    @missing = grep { ! $b{$_} } @aa; 
    print Dumper @missing; 
    $last = $cur; 
} 

print STDOUT "Final missing: ",@missing;