From 1a973fe01229adfce9a048893fb894030c4ac2c4 Mon Sep 17 00:00:00 2001
From: John Barrett <john@jbrt.org>
Date: Mon, 15 Apr 2019 22:09:57 +0100
Subject: Challenge 4 part 2

---
 challenge-004/john-barrett/perl5/ch-1.pl |  0
 challenge-004/john-barrett/perl5/ch-2.pl | 31 +++++++++++++++++++++++++++++++
 2 files changed, 31 insertions(+)
 mode change 100644 => 100755 challenge-004/john-barrett/perl5/ch-1.pl
 create mode 100755 challenge-004/john-barrett/perl5/ch-2.pl

diff --git a/challenge-004/john-barrett/perl5/ch-1.pl b/challenge-004/john-barrett/perl5/ch-1.pl
old mode 100644
new mode 100755
diff --git a/challenge-004/john-barrett/perl5/ch-2.pl b/challenge-004/john-barrett/perl5/ch-2.pl
new file mode 100755
index 0000000000..840eeba777
--- /dev/null
+++ b/challenge-004/john-barrett/perl5/ch-2.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+print "Usage: $0 letters to find in dict\n" and exit unless @ARGV;
+
+my $fn = '/usr/share/dict/words';
+my $findletters;
+$findletters->{$_}++ for map { map { lc } split '' } @ARGV;
+
+my @found;
+
+open my $fh, '<', $fn;
+
+WORD: while ( my $word = <$fh> ) {
+    chomp $word;
+    my $wordletters;
+    $wordletters->{$_}++ for map { lc } split '', $word;
+    # Change this to 'keys %{ $findletters }' to find
+    # all words containing the specified letters.
+    # This finds all words composed of the specified letters
+    # which I think fulfills "you don’t have to use all the letters"
+    for my $letter ( keys %{ $wordletters } ) {
+        no warnings 'uninitialized';
+        next WORD unless $wordletters->{ $letter } <= $findletters->{ $letter };
+    }
+    push @found, $word;
+}
+
+print "$_\n" for @found;
-- 
cgit