[Bio] / FigKernelScripts / pg_filter_alien.pl Repository:
ViewVC logotype

View of /FigKernelScripts/pg_filter_alien.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Fri Mar 8 18:47:24 2013 UTC (6 years, 8 months ago) by overbeek
Branch: MAIN
CVS Tags: rast_rel_2014_0729, rast_rel_2014_0912, HEAD
reorder alien computation

use strict;
use Data::Dumper;
use Getopt::Long;

my $usage = "usage: pg_filter_alien -d Data\n";
my $dataD;
my $rc  = GetOptions('d=s' => \$dataD,);

if ((! $rc) || (! -d $dataD)) { print STDERR $usage; exit }

my %alien;
if (-s "$dataD/pegs.in.repeats")
{
    %alien = map { ($_ =~ /^(\S+)/) ? ($1 => 1) : () } `cat $dataD/pegs.in.repeats`;
}

while (defined($_ = <STDIN>))
{
    chomp;
    my @bad = grep { $alien{$_} } split(/\t/,$_);
    if (@bad == 0)
    {
	print $_,"\n";
    }
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3