Re: Searching and Coutning using 2 files with multiple columns

[ccn]

in reply to Searching and Coutning using 2 files with multiple columns

Something like golf

#!/usr/bin/perl -lan
BEGIN {
    die "Usage: $0 Boundary.out DB.out"
        unless @ARGV == 2;
}

if ( $isDB ) {
    print $_, "\t" . grep { $_->[0] > $F[2] && $_->[1] < $F[3] }
                        @{$chr{$F[1]}}
}
else {
    push @{$chr{$F[0]}}, [ @F[1, 2] ];
    $isDB = eof;
}

[shart3]

ccn,

Thanks! This seems to work for the most part (even though I don't understand any of it).

However, it is replacing the chr# with the count number. For example if the value is 2, I get

Xkr4 2hr1 3204562 3661779 - 3 457.217

or of the number is larger (say 12):

Xkr4 12r1 3204562 3661779 - 3 457.217

I would like it to be:

Xkr4 chr1 3204562 3661779 - 3 457.217 2

or

Xkr4 chr1 3204562 3661779 - 3 457.217 12

[ccn]

Hmm... It works for me as desired on your sample data.

What delimiters do you use between columns? What is your OS?

Please try this one:

#!/usr/bin/perl -lan
BEGIN {
    die "Usage: $0 Boundary.out DB.out"
        unless @ARGV == 2;
}

if ( $isDB ) {
    print join "\t", @F, ~~grep { $_->[0] > $F[2] && $_->[1] < $F[3] }
                               @{$chr{$F[1]}}
}
else {
    push @{$chr{$F[0]}}, [ @F[1, 2] ];
    $isDB = eof;
}

[shart3]

Thanks. PROBLEM SOLVED!! Your original post worked! I had to remove a hard return in my text file that was screwing everything up