Hi DarrenSol
Wonderful answers has been given, but maybe this little example / question could also "say" something.
If I give the following:
teacher students professor students
school class teacher desk table
chalk borad class school teacher
And I ask that for these:
1. print out all the words, without repeating any,
2. print out all the repeated words only,
3. print out the number of
times each words is seen and probably an illustration this with an histogram.
How would you
do these.
Let me answer QnS 1. and 2., allow you to figure question 3 and try your hands on other solution
WITHOUT USING HASH
use strict;
use warnings;
my %hash;
while(<DATA>){
chomp;
$hash{$_}++ for split;
}
print join $/ => sort keys %hash;
print $/,$/, join $/ => grep {$_ if $hash{$_} > 1} sort keys %hash;
__DATA__
teacher students professor students
school class teacher desk table
chalk borad class school teacher
Solution:
-
borad
chalk
class
desk
professor
school
students
table
teacher
-
class
school
students
teacher
That brings me to a statement I read in
Programming Perl a while a go that
'Until you start thinking in terms of hashes, you aren’t really thinking in
Perl.'
If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author
unknown to me
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
|
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.