range operator problems

[kumarboston]

Hi All
I am trying to extract a range of columns from a tab separated file.

The range which i want to extract is between 99.00 to 100.00 but when I tried to run the program its returning 0 results.

#!/usr/bin/perl
use strict;
use warnings;
 
open(FH,"tabular_comment");
my $cnt=0;
while(<FH>)
{
    if($_=~/^#/)
    {
        next;
    }
    my @temp = split(/\t/,$_);
    if($temp[2]=~/99.00 .. 100.00/)
    {
        $cnt +=1;
    }
}
print $cnt;
 

Thanks for help

[KevinADC]

can we see some sample data please.

[numberwhun]

can we see some sample data please.

Agreed, please share a sample of your data.

Regards,

Jeff

[kumarboston]

Hi all,
sorry for the late reply.....sample data is posted and i am trying to extract the 3rd column values in the range 99.00 to 100.00....

EGFR_HUMAN_P00533    gi|58177366|pdb|1XKK|A    100.00    268    0    0    1    268    42    309    7e-162     564
EGFR_HUMAN_P00533    gi|23200417|pdb|1M14|A    100.00    268    0    0    1    268    23    290    8e-162     564
EGFR_HUMAN_P00533    gi|110590401|pdb|2GS2|A    100.00    268    0    0    1    268    20    287    1e-161     563
EGFR_HUMAN_P00533    gi|134104655|pdb|2J5F|A    100.00    268    0    0    1    268    17    284    2e-161     563
EGFR_HUMAN_P00533    gi|110590405|pdb|2GS7|A    99.63    268    1    0    1    268    20    287    7e-161     561
EGFR_HUMAN_P00533    gi|145579717|pdb|2ITT|A    99.63    268    1    0    1    268    17    284    8e-161     561
EGFR_HUMAN_P00533    gi|145579713|pdb|2ITN|A    99.63    268    1    0    1    268    17    284    1e-160     560
EGFR_HUMAN_P00533    gi|134104654|pdb|2J5E|A    99.63    268    1    0    1    268    17    284    4e-160     558
EGFR_HUMAN_P00533    gi|52695995|pdb|1U46|A    39.69    262    152    4    1    256    20    281    1e-53     205
EGFR_HUMAN_P00533    gi|52696004|pdb|1U54|A    39.31    262    153    4    1    256    20    281    6e-53     202
EGFR_HUMAN_P00533    gi|151567671|pdb|2J0J|A    37.93    261    160    2    5    265    396    654    9e-53     202
EGFR_HUMAN_P00533    gi|37926803|pdb|1MP8|A    37.93    261    160    2    5    265    21    279    9e-53     202
EGFR_HUMAN_P00533    gi|151567672|pdb|2J0K|A    37.93    261    160    2    5    265    396    654    1e-52     202
EGFR_HUMAN_P00533    gi|118137641|pdb|2ETM|A    37.93    261    160    2    5    265    18    276    1e-52     202
EGFR_HUMAN_P00533    gi|151567676|pdb|2J0M|B    37.93    261    160    2    5    265    16    274    1e-52     201
EGFR_HUMAN_P00533    gi|110590407|pdb|2GSF|A    38.78    263    156    4    5    264    51    311    2e-52     201
 
 

thanks for your help.

[numberwhun]

Ok, I took your data and plugged it into a file called data.txt and wrote the following quick Perl script. This matches either 99. or 100. in the third column and prints it out.

Hope this was what you wanted.

use strict;
use warnings;
 
open(FILE, "data.txt");
 
my @line;
 
while(<FILE>)
{
    @line = split(/\t/, $_);
 
    if($line[2] =~ m/99\.|100\./)
    {
        print "$line[2]\n";
    }
}
 

Regards,

Jeff