set in Perl?

[Davy]

Hi all,

I used to use set (only contain one identical thing in one set) in
C++'s STL. I found set very useful that you can do something like
intersection. Is there something similar in Perl? Thanks!

Best regards,
Dav

 

[Paul Lalli]

I used to use set (only contain one identical thing in one set) in
C++'s STL. I found set very useful that you can do something like
intersection. Is there something similar in Perl? Thanks!

You generally want to use a hash. The keys of a hash are distinct by
definition. If you tell us what your actual goal or problem is, we can
give you more specific assistance...

You may also be interested in:
perldoc -q intersection

my %unique;
for (qw/foo bar baz bar foo baz baz) {
$unique{$_} ++;
}
my @set = keys %unique;

# @set will contain three elements - foo, bar, and baz (in some random
order)

Paul Lalli

 

[Peter J. Holzer]

["Followup-To:" header set to comp.lang.perl.misc.]

I used to use set (only contain one identical thing in one set) in
C++'s STL. I found set very useful that you can do something like
intersection. Is there something similar in Perl? Thanks!

Have you tried searching for "set" on CPAN? Set::Scalar is one of the
first hits I get.

hp

 

[Davy]

[SNIP]
Hi,

Thanks! Sorry I forgot the hash table's feature.

Best regards,
Davy