151 |
return $index; |
return $index; |
152 |
), |
), |
153 |
find_atom_pos => q( |
find_atom_pos => q( |
154 |
my $i = 0; |
my $pos = 0; |
155 |
my @res; |
my @res; |
156 |
foreach my $atom (@{$out->{atoms}}) { |
foreach my $atom (@{$out->{atoms}}) { |
157 |
my $flag = 1; |
my $flag = 1; |
172 |
@{$atom->{list}}[$i] eq @{$args{list}}[$i] or $flag = 0; |
@{$atom->{list}}[$i] eq @{$args{list}}[$i] or $flag = 0; |
173 |
} |
} |
174 |
} |
} |
175 |
$flag and push(@res, $i); |
$flag and push(@res, $pos); |
176 |
} continue { |
} continue { |
177 |
$i++; |
$pos++; |
178 |
} |
} |
179 |
wantarray ? @res : $res[0]; |
wantarray ? @res : $res[0]; |
180 |
) |
) |