One way
perl> @big = qw(a b c d e f g h i);; perl> @small = qw(f c d g);; perl> undef @found{ @small };; perl> @wanted = ( @small, grep{ !exists $found{ $_ } } @big );; perl> print @wanted;; f c d g a b e h i
In reply to Re: Keeping order, no duplicate and the complete keyset
by BrowserUk
in thread Keeping order, no duplicate and the complete keyset
by Ace128
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |