#!/usr/local/bin/perl5 # prog10 #################################### # # These are safe characters $OK_CHARS = "-a-zA-Z0-9_.@ "; #################################### $i = 1; open(IN, "DataFile"); while (<IN>) { $i++; $InData = $_; chomp($InData); $storage{"$i"} = $InData; } print ("Here is the Storage Hash\n"); foreach $key (keys (%storage)) { print "at $key there is $storage{$key}\n"; } print "----------------------------\n"; print "Enter a number: "; $Guess = <STDIN>; chomp ($Guess); $Guess =~ s/[^$OK_CHARS]//mg; if ($Guess >= 2 && $Guess <= 6) { print "Here is the color: $storage{$Guess}\n"; } else { print "Out of range!\n"; }