Skip to content
Snippets Groups Projects
Commit b6d2f689 authored by Brandi Cantarel's avatar Brandi Cantarel
Browse files

update db location

parent 5a098a61
No related merge requests found
...@@ -2,13 +2,13 @@ ...@@ -2,13 +2,13 @@
#parse_cnvkit_table.pl #parse_cnvkit_table.pl
my $refdir = '/project/shared/bicf_workflow_ref/GRCh38/'; my $refdir = '/project/shared/bicf_workflow_ref/GRCh38/';
open OM, "<$refdir\/panel1385.genelist.txt" or die $!; open OM, "<$refdir\/clinseq_prj/panel1385.genelist.txt" or die $!;
while (my $line = <OM>) { while (my $line = <OM>) {
chomp($line); chomp($line);
$keep{$line} = 1; $keep{$line} = 1;
} }
open ENT_ENS, "</project/shared/bicf_workflow_ref/gene2ensembl.human.txt" or die $!; open ENT_ENS, "<$refdir/../gene2ensembl.human.txt" or die $!;
my %entrez; my %entrez;
my $ent_header = <ENT_ENS>; my $ent_header = <ENT_ENS>;
while (my $line = <ENT_ENS>){ while (my $line = <ENT_ENS>){
...@@ -17,7 +17,7 @@ while (my $line = <ENT_ENS>){ ...@@ -17,7 +17,7 @@ while (my $line = <ENT_ENS>){
$entrez{$row[2]}=$row[1]; $entrez{$row[2]}=$row[1];
} }
close ENT_ENS; close ENT_ENS;
open ENT_SYM, "</project/shared/bicf_workflow_ref/gene_info.human.txt" or die $!; open ENT_SYM, "<$refdir/../gene_info.human.txt" or die $!;
$ent_header = <ENT_SYM>; $ent_header = <ENT_SYM>;
while (my $line = <ENT_SYM>){ while (my $line = <ENT_SYM>){
chomp $line; chomp $line;
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment