On Mon, Oct 27, 2003 at 09:52:20PM -0600, Andrew Gaffney wrote:
> I have an array of keywords that I need to generate. I have 2 separate
> input files. The first one contains the defaults. The second input file
> contains additions and overrides. For example, first input:
>
> key1 key2 key3 key4 key5 key6 key7
>
> second input:
>
> -key3 -key5 key8 key9
>
> end result:
>
> key1 key2 key4 key6 key7 key8 key9
>
> What is the easiest/fastest way to do this?
my @array = do {
local @ARGV = qw(default.txt override.txt);
local $^I;
my %params;
while (<>) {
foreach (split) {
if (s/^-//) {
delete $params{$_};
}
else {
$params{$_}++
}
}
}
sort keys %params;
};
--
Steve
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
