Perl <STDIN> not matching contents in an array

Question

I have a file which consists of three names: daniel, elaine and victoria. If I search for daniel I get "you are not on the list". Could someone kindly point out where my mistake is? Thank you.

#!/usr/bin/perl 

#open file 
open(FILE, "names") or die("Unable to open file"); 

# read file into an array 
@data = <FILE>; 

# close file 
close(FILE); 

print "Enter name\n"; 
$entry = <STDIN>; 
chomp $entry; 

if (grep {$_ eq $entry} @data) 
{ 
print "You are on the list $entry"; 
} 
else 
{ 
print "Your are not on the list"; 
}

gangabass · Accepted Answer · 2013-05-28 11:22:21Z

8

You need to chomp (remove new line character from the end of each string) data from the file too:

chomp @data;

if (grep {$_ eq $entry} @data) { 
    print "You are on the list $entry"; 
} else { 
    print "Your are not on the list"; 
}

answered May 28, 2013 at 11:22

gangabass

10.7k2 gold badges26 silver badges36 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Demnogonis Over a year ago

+1 for this. I didn't know that chomp @array removes the last char from all entries. I used map{chomp;}@array before.

Harry Barry · Accepted Answer · 2013-05-28 12:16:41Z

2

change this

if (grep {$_ eq $entry} @data)

to this

if (grep {$_ =~ m/^$entry\b/i} @data)

remove the i if you specifically want it to be case sensitive.

edited May 28, 2013 at 12:16

answered May 28, 2013 at 11:18

Harry Barry

1947 bronze badges

2 Comments

mpapec Over a year ago

@Harry_Barry victoria and vic will match equally here.

Harry Barry Over a year ago

@mpapec sorry my bad, fixed.

Collectives™ on Stack Overflow

Perl <STDIN> not matching contents in an array

2 Answers 2

1 Comment

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related