Help for this page

Select Code to Download


  1. or download this
    my $string="It is a guide to action which ensures that the military al
+ways obey the commands of the party";
my %counts;
...
foreach (keys %counts) {
  print "Word '$_' occurs $counts{$_} times\n";
}
  2. or download this
    Word 'the' occurs 3 times
Word 'It' occurs 1 times
...
Word 'party' occurs 1 times
Word 'action' occurs 1 times
Word 'obey' occurs 1 times