Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...

printf "Found %1.0f words in common\n", $counter;
  2. or download this
    orange

red

Found 2 words in common
  3. or download this
    #!/usr/bin/perl
use strict;
...

print "$_\n\n" for sort values %common;
printf "Found %1.0f words in common\n", scalar keys %common;