in reply to Difference Quantity of two Arrays

If the skiplist is small enough, I'd chose something like $skip_rule = join("|", @skip_dbs); $skip_rule = qr{^(?:$skip_rule)$}; and then return grep {$_ !~ $skip_rule} @dbs. If the skip list is huge, that might not be such a good idea.

-Paul

Replies are listed 'Best First'.
Re^2: Difference Quantity of two Arrays
by johngg (Canon) on Jan 02, 2007 at 16:00 UTC
    qr{...} is quotish so you could do $" = q{|}; $skip_rule = qr{^(?:@skip_dbs)$};, probably localising the change of $" inside a small code block.

    Cheers,

    JohnGG

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom