Repita algumas listas com Perl
use List::MoreUtils qw( each_array );my @first = qw( foo bar buzz );my @second = (1, 2, 3);my $it = each_array( @first, @second );while ( my ($f, $s) = $it->() ) …
Continuar lendoConteúdo para você se capacitar em programação
use List::MoreUtils qw( each_array );my @first = qw( foo bar buzz );my @second = (1, 2, 3);my $it = each_array( @first, @second );while ( my ($f, $s) = $it->() ) …
Continuar lendo