parsing problen in comparison of files.

[kumarboston]

Hi all,

I have two files resultset.csv and sws.lst. Content of two files:
resultset.csv has 5 columns(array index: 0,1,2,3,4)
sws.lst has 8 columns(array index: 0...7)

resultset.csv is small file containing 200 entries and sws.lst is big file containing around 10,000 entries.

what i am trying to do is match the resultset.csv(array index: 3 and 4) to the sws.lst(array index: 5,7) and if they match then a tab separated file will be written with all the column values from resultset.csv and sws.lst.

#!/usr/bin/perl
use strict;
use warnings;
open(FH,"<resultset.csv");
open(TH,"<sws.lst");
my (@temp1,@temp2,$pos1,$pos2,$acc1,$acc2);
 
while(<FH>)
{
    chomp $_;
    @temp1=split(/,/,$_);
    $pos1=$temp1[3];
    $acc1=$temp1[4];
}
close(FH);
 
while(<TH>)
{
    chomp $_;
    @temp2=split(/\t/,$_);
    $pos2=$temp2[7];
    $acc2=$temp2[5];
    if($pos1 eq $pos2 && $acc1 eq $acc2)
    {
        print "Got it\n";
    }
    else
    {
        next;
    }
}
close(TH);
 

In the while loop when I gave only one condition then the code is running but when I tried to check both the condition with && it not giving results.

I also tried with making a hash with key and multiple values(as given in the perl cookbook) but didn't got results.

Any help and suggestions.

Kumar

[KevinADC]

this is probably wrong:

while(<FH>)
{
    chomp $_;
    @temp1=split(/,/,$_);
    $pos1=$temp1[3];
    $acc1=$temp1[4];
}
close(FH);

that reads through the entire file <FH> and sets $pos1 and $acc1 to whatever the last value was in the file (from the last line of the file I assume).

[kumarboston]

thanks for the reply...
then probably i should do the whole iteration in the while loop??

kumar

[KevinADC]

probably best to build a hash from the first file ( the shorter file) and then loop through the second file and see if the hash key exists and check the value, see if this works, should be close:

#!/usr/bin/perl
use strict;
use warnings;
open(FH,"<resultset.csv") or die "resultset.csv: $!";
open(TH,"<sws.lst") or die "sws.lst: $!";
my (@temp1,@temp2,$pos1,$pos2,$acc1,$acc2);
my %hash;
while(<FH>){
    my ($k,$v) = (split(/,/,$_))[3,4];
    $hash{$k} = $v;
}
close(FH);
 
while(<TH>){
    chomp $_;
    my($acc2, $pos2) = (split(/\t/,$_))[5,7];
    if(exists $hash{$pos2} && $hash{$pos2} eq $acc2){
        print "Got it\n";
    }
    else{
        next;
    }
}
close(TH); 

[sanjayperl]

This code works only for one record.
Eg - For resultset.csv contains
resultset00,resultset01,resultset02,sws07,sws05
sws.lst contains
sws00 sws01 sws02 sws03 sws04 sws05 sws06 sws07
This will work fine, but for multiple records it does not work.
Seems to be problem in while loop or split fuction or may be the files resultset.csv and sws.lst does not contain valid data.
Please suggest

[KevinADC]

I would need to see some of the real data to help you further.

[numberwhun]

This code works only for one record.
Eg - For resultset.csv contains
resultset00,resultset01,resultset02,sws07,sws05
sws.lst contains
sws00 sws01 sws02 sws03 sws04 sws05 sws06 sws07
This will work fine, but for multiple records it does not work.
Seems to be problem in while loop or split fuction or may be the files resultset.csv and sws.lst does not contain valid data.
Please suggest

I believe that after you posted this to the forum you clicked on the link that says "Report". Please do not do that. That link is to only be used to report posts that are offensive or against TSDN policies so that the Moderators are aware and can take care of it.

Once you post your message, that is all you need to do for someone to be able to know about it.

Regards,

Jeff