Shell Programming and Scripting

#!/bin/perl
system("clear");

@ARGV=("data");
%arr_data=();

while(<>){
�chomp;
�($name,$ext) = split;
�if ($name){
��$arr_data{$name} = "$ext";
�}
�$arr_data{$number}=$name;
}


until ($x eq x){
�print "Please enter name, enter l for list, q for quit or f to find\n";
�chomp($name = <STDIN>);

�if ($name eq "l"){
��while (($key,$value)=each(%arr_data)){
���print "Name: $value\tExt: $key\n";
��}
�} elsif ($name eq "f"){
��print "Please enter name\n";
��chomp($find_name = <STDIN>);
��$ext=$arr_data{$find_name};
��if($ext eq ""){
���print "Name not found\n";
��} else {
���print "Ext: $arr_data{$find_name}\n";
��}
�} elsif ($name eq "q"){
��$x=x;
�}else {
��print "Please enter extention number\n";
��chomp($ext = <STDIN>);
��$arr_data{$ext}=$name;
}
}

[qgatu003]/export/home/mxdooley$cat test.pl
#!/usr/bin/perl -w

use strict;


system("clear");

open (DATA, "./data") || die "Can NOT open file. ($!)";

my %arr_data;

while(<DATA>){
        chomp;
        my ($name, $ext) = split;
        die "You have DUPLICATE NAMES fix this problem\n" if $arr_data{$name} ;
        $arr_data{$name} = "$ext";
}

my $option;
my $key;
my $value;
my $name;
my $ext;
my $x;
until ($x=0){
        print "Please enter option, enter l for list, q for quit or f to find\n";
        chomp($option = <STDIN> );

        if ($option eq "l"){
                while (($key,$value)=each(%arr_data)){ print "Name: $key\tExt: $value\n"; };
        } elsif ($option eq "f"){
                print "Please enter name\n";
                chomp($name=<STDIN>);
                if (exists $arr_data{$name}) {
                        $ext=$arr_data{$name};
                        if(undef $ext) {
                                print "Ext not found\n";
                        } else {
                                print "Ext: $arr_data{$name}\n";
                        }
                } else {
                        print "Name not Found\n";
                }
        } elsif ($option eq "q"){
                die "You have quit the Program\n";
        }
}
[qgatu003]/export/home/mxdooley$cat data
Dawn 68968
Ella 5734
Marcie 68942
Tracy 68895
Ken 3161
Chet 3375
Simon 68843
Kemi 68944
[qgatu003]/export/home/mxdooley$

$. 
[ALL] The current record number (usually line number) for the last filehandle you
 read from (or called seek or tell on). The value may be different from the actual physical
 line number in the file, depending on what notion of "line" is in effect
--see $/ ($INPUT_RECORD_SEPARATOR) on how to affect that. An explicit close on a filehandle
 resets the line number. Because <> never does an explicit close, line numbers increase across 
ARGV files (but see examples under eof). Localizing $. also localizes Perl's notion of "the last 
read filehandle". (Mnemonic: many programs use "." to mean the current line number.)