Not as many as I would have guessed!

I don't suppose you would want to share the code for this program hu Nick? It is pretty cool.

Sure, here you go:

use strict; use warnings;
use Algorithm::Diff qw/ LCS_length /;

( my $name = $ARGV[0] ) && length $ARGV[0] > 2 or die "Usage: `$0 <nam
+e>` (min. 3 letters)";

open my $fh, '<', '/usr/share/dict/words' or die $!;

my $found = 0;
while ( <$fh> ) {
    next unless LCS_length( [ split //, $name ], [ split // ] ) == len
+gth $name;
    $found++;
    print "$found $_";
}

__END__
[download]

Things to maybe note:
• How to load a clever module and import its LCS_length function to do all the work :-)
• How to capture the user input from the command line in the array @ARGV
• How to open a file for reading
• How to create a counter and increment it in a loop
• How to read from an open filehandle line-by-line (which avoids reading it all into memory), using:

  while ( <$fh> ) {
      ...
  }
  [download]

• The most obfuscated thing in this script: How to be lazy and not have to tell a function what to operate on by using the default argument, which is the current value of the magic variable $_. So in a loop I can say:

  while ( <$fh> ) { # each line is loaded into $_ in turn
      my @characters = split //;
  }
  [download]

  , omitting the second argument to split, and Perl knows to Do The Right Thing. More self-documenting usage would be:

  while ( my $line = <$fh> ) { # each line now in $line
      my @characters = split //, $line;
  }
  [download]

Note that you can get documentation on many of Perl's built-in functions with perldoc -f <function_name>, e.g. perldoc -f split.

Hope this helps! have fun ....

edit: fixed missing parens



The way forward always starts with a minimal test.

I am pretty sure 1nickt will share it with you, since you kindly ask. Sharing code is certainly part of the Perl culture and also part of this site's raison d'être.

And you might very well be astonished by the small numbre of code lines needed to doing that.

I learned Linux and pearl

Oh, and BTW, the proper name of the language is Perl.

Command line one-liner:

perl -wMstrict -E 'print for grep /adam/, <>' /usr/share/dict/words
[download]

Script form (overly verbose so it's easier to understand):

use warnings;
use strict;

my $word_file = '/usr/share/dict/words';

open my $fh, '<', $word_file
  or die "can't open the $word_file file!: $!";

while (my $line = <$fh>){
    if ($line =~ /adam/){
        print $line;
    }
}
[download]