#!/usr/local/bin/perl
#Usage: perl simple_dict.pl word
#Script that opens dictionary.txt which contains on each line a word and its definition, 
#and outputs all the definitions for word, and then counts the total number of such definitions.


open (IN,"<dictionary.txt") or die "Cannot open dictionary.txt: $!\n";
#check word
if ($#ARGV != 0){
      print "Wrong number of arguments!\n";
}
else {
     $word=$ARGV[0];
} 
#find defintions
while ($line=<IN>) {
  @s=split(/ /,$line,2);      
  if ($s[0] eq $word) {
     print "$s[1]"; $n+=1;
  } 
}
print "\n The word $word has $n definitions \n";