Re: Detecting duplicate keywords passed in a form


Welcome to the Monastery
	PerlMonks

Re: Detecting duplicate keywords passed in a form

by diotalevi (Canon)

on Mar 21, 2003 at 13:12 UTC ( [id://244847]=note: print w/replies, xml )

Need Help??

in reply to Detecting duplicate keywords passed in a form

Use the uniqueness property of a hash to filter duplicates.

my @keywords = keys %{{ map { lc, undef } qw(this that other foo this bar)}} ;

Updated I changed $_ => undef to lc, undef to be correctly case-insensitive

Comment on Re: Detecting duplicate keywords passed in a form Select or Download Code

Replies are listed 'Best First'.

Re: Re: Detecting duplicate keywords passed in a form
by flounder99 (Friar) on Mar 21, 2003 at 16:36 UTC

diotalevi

my @keywords;
{ #closure so %temphash gets garbage collected
    my %temphash;
    foreach ( map {lc} qw(this that other foo THIS bar)) {
        next if exists $temphash{$_};
        $temphash{$_} = undef;
        push @keywords, $_;
    }
}
print join " ", @keywords;

___OUTPUT____
this that other foo bar
[download]

flounder

[reply]
[d/l]

In Section Seekers of Perl Wisdom