Le Blanc wrote: > I made some changes. Now I get an error message. > > The message says "Can't use string ("") as an ARRAY ref while "strict > refs" in use" > > Here is the code as it stands now, with changes. > > #!/usr/bin/perl -w > use strict; > use Data::Dumper; > use diagnostics -verbose; > > print "Enter the Part Number you wish to search for: "; > my $part = <STDIN>; > chomp($part); > > print "Enter the Revison for ($part): "; > my $rev = <STDIN>; > chomp($rev); > > my $searchresult = &search(part => $part, rev => $rev); > > > if (defined $searchresult) { > print "Located Part Number $part: $$searchresult[1..7]\n"; >
print "Located Part Number $part: @$searchresult\n"; > > }else { > print "Your Part Number ($part) Rev ($rev) could not be found...\n"; > } > > > # This routine will accept a part number as an anonymous > # hash, and search thru a text file returning the entire > # record (pipe delineated) of the 1st occurence > > sub search { > my %args = @_; > my $retval; > > local *FH; > open (FH, './fai.txt') || die "Cannot open file: ($!)"; > my @records = <FH>; close FH; > chomp (@records); > foreach my $line (@records){ > > my @fields = split(/\|/, $line); > if ($args{part} eq $fields[0] && $args{rev} eq $fields[1]){ > $retval = \@fields; # DELETE > last; # DELETE > > close FH; # DELETE > return \@fields; # This is all you need > } > } > > } Nearly there! Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]