perl string comparison

[lilly07]

Hi,
I have one column of strings in 1st file file and another file which consists of 5 clumns in each line and my basic objective is to find each item/line of 1st file is available in 3rd column of 2 nd file.
And I tried the following logic. It might be bit round about way but as a beginner am trying as follows.

The column in the 1st file is having data as example

NS008_456_R0030_3008

The 2nd file data is as follows:

 
+   test   NS008_456_R0030_3008   67   223
 

My logic is as follows:

I am opening the 1st file in an array and for each item I am opening the second file and scanning through each line and checking whether the array content is equal to $V[2] of second file. The logic seems to work even though the search is taking time.

But I considered

NS008_456_R0030_3008   

as a string literal and my if loop is as below:

 
if($rawdata[0] eq $v[2]) {
do something here
}
 
 

But it does not seem to work. Anything wrong in considering the data as string literal or when I read the file contents in an array, anymore maniputaion is wrong with string comparison? Please let me know. Regards

[numberwhun]

@lilly07
Can you please post the rest of your code so that we can see how you go to this point? That will give us a better understanding all around.

Regards,

Jeff

[KevinADC]

if you compare the strings using "eq" they must be an exact match, including spaces, control chracters, and upper/lower case of any alpha characters. My guess is that you need to chomp() the records in the first file before comparing to records in the second file, but why make us guess? Post the code. ;)

[lilly07]

Thx, Kevin I tried chomping the data from the first file but still it is not working. Please find my code as below. It is not complaining about compilation error. Even though I didn't copy, I retyped again.

 
#!usr/bin/perl
$first_data = "first.txt";
open(DAT,$first_data) || die("Could not open file!");
@search_data = <DAT>;
$searchSize = scalar( @search_data);
 
$second_file = "second.txt";
for($count=0, $count < $searchSize; $count++) {
 open (RF, $second_file) || die("Could not open file!");
 
 $find_raw = @search_data[$count];
 $find = chomp $find_raw;
 
  while($line=<RF>) {
   chomp $line;
   @v = split(/\s+/,$line);
 
    if($v[2] eq $find){
     print "$line \n";
    }
  }
 
 close RF;
} 
 

[lilly07]

Actually the program works if I modify the following code