«

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

Davy wrote:
> 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

["Followup-To:" header set to comp.lang.perl.misc.]
On 2006-08-30 13:41, Davy <> wrote:
> 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


--
_ | Peter J. Holzer | > Wieso sollte man etwas erfinden was nicht
|_|_) | Sysadmin WSR | > ist?
| | | | Was sonst wäre der Sinn des Erfindens?
__/ | http://www.hjp.at/ | -- P. Einstein u. V. Gringmuth in desd

Paul Lalli wrote:
> Davy wrote:
> > 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!
>
[SNIP]
Hi,

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

Best regards,
Davy

> 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