Here's a short program that reads data into a hash of lists, sorts the keys and displays output data - a simple Perl program showing powerful capabilities of the language.

while () {

        my ($name,@temporary) = split;

        $want{$name} = \@temporary;

        } 



foreach $person (sort keys %want) {

        print $person," ",$want{$person}[0]," ",$#{$want{$person}}+1,"\n";

        }



__DATA__

antonia Perl XML PHP Tcl/Tk MySQL

ethel MySQL Perl Tcl/Tk ASP

iris  Perl MySQL Java Tcl/Tk

olivia  MySQL Python ASP PHP

uva MySQL Perl Java PHP

adam Tcl/Tk Perl Python MySQL

ed Ruby Perl Java PHP 

ivan Ruby Java Perl Tcl/Tk MySQL

orpheus MySQL Ruby Tcl/Tk XML

ulsyees Java PHP Perl

Results:

adam Tcl/Tk 4

antonia Perl 5

ed Ruby 4

ethel MySQL 4

iris Perl 4

ivan Ruby 5

olivia MySQL 4

orpheus MySQL 4

ulsyees Java 3

uva MySQL 4

A little demo I wrote today while talking about more complex data structures.

Things always turn out so easy in Perl!
(written 2004-09-09 18:02:29)

 P217 - Perl - More than Simple Lists and Hashes!

Back to Do languages change?

Previous and next or Horse's mouth home

Forward to Serious subject

Effective fundraising
Near and far security
CGI v mod_perl
Serious subject
Hash of lists in Perl
Do languages change?
A Thousand and four words
Take the train to training
A Change is as good as a rest
An update for old friends
Link to page ... 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33 at 50 posts per page


This is a page archived from The Horse's Mouth at http://www.wellho.net/horse/ - the diary and writings of Graham Ellis. Every attempt was made to provide current information at the time the page was written, but things do move forward in our business - new software releases, price changes, new techniques. Please check back via our main site for current courses, prices, versions, etc - any mention of a price in "The Horse's Mouth" cannot be taken as an offer to supply at that price.

Link to Ezine home page (for reading).
Link to Blogging home page (to add comments).