in reply to Finding wether all elements of one array are in another
use strict; use warnings; my @a = qw(-true -depth=1); my @b = qw(-search -depth=1 -true -expand_all); print '@b contains @a' if @a == grep defined, @{{map {$_=>$_} @b}}{@a} +;
O. K., I'm not too serious about proposing this. Though it meets my sense of elegance (somehow).
Also note that no counting takes place: If an element appears more than once in @a they will be covered by a single (identical) entry in @b for acknowledging their containment.
|
---|
In Section
Seekers of Perl Wisdom