Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Trudging along the learning perl path.

by duyet (Friar)
on Apr 16, 2017 at 10:33 UTC ( [id://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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1188044]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others goofing around in the Monastery: (7)
As of 2024-03-29 08:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found