Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Trudging along the learning perl path.

by duyet (Friar)
on Apr 16, 2017 at 10:33 UTC ( #1188044=note: print w/replies, xml ) Need Help??


in reply to Trudging along the learning perl path.

use strict; use warnings; # CPAN packages use Data::Dumper; my @array = (29,24,0,24,24,12,0,10,10,19,17,15,13,1,12,12,24); my %hash1; # slice @hash1{@array} = undef; my @uniq1 = sort keys %hash1; print 'uniq1 = ' . Dumper \@uniq1; # map my %hash2 = map { $_ => 1 } @array; my @uniq2 = sort keys %hash2; print 'uniq2 = ' . Dumper \@uniq2;
Output:
uniq1 = [ '0', '1', '10', '12', '13', '15', '17', '19', '24', '29' ] same for uniq2

There are many ways to archive something with Perl, as Slices and map are shown above. And there are more as shown in other posts ...

As you are starting to learn Perl (and any other programming languages), it is always painfull in the beginning!!! Get a book, learn the basic, follow online tutorials, and keep execise ... and it will get easier and easier ...

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1188044]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (2)
As of 2019-05-22 00:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you enjoy 3D movies?



    Results (138 votes). Check out past polls.

    Notices?
    • (Sep 10, 2018 at 22:53 UTC) Welcome new users!