in reply to Two dimensional array
Regards... my @temp_array = ( [qw'a b'], [qw'c d'] ); my @temp1 = qw'a b'; my @temp2 = qw'c d'; my @temp_exists = map @$_, grep "@temp1" eq "@{$_->[0]}" && "@temp2" eq "@{$_- +>[1]}", \@temp_array ; print "@$_\n" for @temp_exists ...
|
|---|