Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Extracting Unique Characters from a Array

by kwaping (Priest)
on Sep 07, 2006 at 19:56 UTC ( #571788=note: print w/ replies, xml ) Need Help??


in reply to Extracting Unique Characters from a Array

This solution uses some moderately-advanced techniques, but I recommend you study the solution and perldoc what you don't understand. You will learn some really useful techniques!

#!/usr/bin/perl use strict; use warnings; use Carp; use Data::Dumper::Simple; my @array = qw( 7742.8858 7748.5855 5581.2272 1248.2257 6589.5586 5680.1886 8762.1898 5581.2272 5535.5795 6896.6571 6573.2575 6589.5586 5680.1886 5487.3275 5489.5633 6589.5586 5680.1886 ); my %unique = map { $_ => '' } @array; my @sorted_unique = sort { $a <=> $b } keys %unique; print Dumper(%unique,@sorted_unique);

---
It's all fine and dandy until someone has to look at the code.


Comment on Re: Extracting Unique Characters from a Array
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (6)
As of 2014-08-29 05:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (275 votes), past polls