#!/usr/bin/perl -wl use strict; sub create_list { my @skip_dbs = @_; my %hash; @hash{qw/fetch forward user smtp/} = undef; delete @hash{@skip_dbs}; return keys %hash } my @list = create_list("user", "smtp"); print "@list";
In reply to Re: Difference Quantity of two Arrays
by cdarke
in thread Difference Quantity of two Arrays
by ocs
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |