diff --git a/variants/filter_cnvkit.pl b/variants/filter_cnvkit.pl index a30aeb1eb1cc89185f2da1e567e3724da8e51d82..86545f5e029436d89e241c5b124a177aa950e35f 100755 --- a/variants/filter_cnvkit.pl +++ b/variants/filter_cnvkit.pl @@ -56,7 +56,8 @@ while (my $line = <CNR>) { foreach my $gid (@ids) { next if ($gid =~ /^rs\d+$|^SNP:rs\d+$|^-$|Fusion/); my ($gene,@other) = split(/:/,$gid); - $genes{$gene} = 1; + my ($gname,@loc) = split(/_/,$gene); + $genes{$gname} = 1; } } foreach $gene (keys %genes) { @@ -94,7 +95,8 @@ while (my $line = <IN>) { foreach my $gid (@ids) { next if ($gid =~ /^rs\d+$|^SNP:rs\d+$|^-$|Fusion/); my ($gene,@other) = split(/:/,$gid); - $genes{$gene} = 1; + my ($gname,@loc) = split(/_/,$gene); + $genes{$gname} = 1; } } my $len = sprintf("%.1f",($hash{end}-$hash{start})/1000);