A question about eq 1

[LuckyKoen]

I have a file with a few lines of text in it. I read each line and put them in an array named @lines :

open FILE, "file.txt";
while(<FILE>) { push @lines,$_; }
close FILE;

Then I want to look for a certain line named "Hello".

my $text = "Hello";
foreach $line (in @lines) {
if ( $text eq $line ) {
print "Hello was found in the document";
}
}

For some reason $text eq $line doesn't work even tho they both contain "Hello".

Can anyone help me with this ?

 

[tchatzi]

Try ...

if ( $line =~ /Hello/) {

``The wise man doesn't give the right answers,
he poses the right questions.''
TIMTOWTDI

 

[audiopro]

Check to see if you are comparing what you think you are.
Do you have a line feed at te end of $line?

Keith

http://www.studiosoft.co.uk

 

[arcnon]

I always have problems with line endings in instances like this this

chomp $line;

 

[LuckyKoen]

You're right about the linefeeds. A simple chomp $line before the if took care of my problem. Thanks for the help.