new file: cell2loc.py

[GalaxyCodeBases.git] / perl / etc / WoodyMiaoLin / Tiger / filtrate_score.pl

#!/usr/bin/perl
use strict;
use warnings;

while (<>) {
        chomp;
        my @a = split /\t/;
        print "$_\n" if $a[-1] > 3000;
}