chaopower
/
pipeline
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

添加1列之后

master
chaopower 2024-02-21 11:26:35 +08:00
parent 81ab7d74d4
commit d8829a3c46
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
codes/target_therapy_cnv.pl
View File

@ -91,7 +91,7 @@ open IN, "$input";
my $h2 = <IN>; my $h2 = <IN>;
chomp $h2; chomp $h2;
my $h = $h2 . "\tcn\tfun_change\t" . join("\t", (split("\t", $h1))[0 .. 9, 14]) . "\tLabel\tDrugCn\tIndication"; my $h = $h2 . "\tcn\tfun_change\t" . join("\t", (split("\t", $h1))[0 .. 9, 14]) . "\tLabel\tDrugCn\tIndication\treport_need_note";
print POS "$h\n"; print POS "$h\n";
print VUS "$h\n";; print VUS "$h\n";;

2
codes/target_therapy_fusion.pl
View File

@ -96,7 +96,7 @@ open VUS, ">$output.vus.txt";
my $h2 = <IN>; my $h2 = <IN>;
chomp $h2; chomp $h2;
print POS $h2 . "\tOncogenic\t" . join("\t", (split("\t", $h1))[0 .. 9, 14]) . "\tLabel\tDrugCn\tIndication\n"; print POS $h2 . "\tOncogenic\t" . join("\t", (split("\t", $h1))[0 .. 9, 14]) . "\tLabel\tDrugCn\tIndication\treport_need_note\n";
print NEG $h2 . "\tOncogenic\n"; print NEG $h2 . "\tOncogenic\n";
print VUS $h2 . "\tOncogenic\n"; print VUS $h2 . "\tOncogenic\n";

2
codes/target_therapy_longindel.pl
View File

@ -98,7 +98,7 @@ open POS, ">$output.pos.txt";
my $h2 = <IN>; my $h2 = <IN>;
chomp $h2; chomp $h2;
print POS $h2 . "\t" . join("\t", (split("\t", $h1))[0 .. 9, 14]) . "\tLabel\tDrugCn\tIndication\n"; print POS $h2 . "\t" . join("\t", (split("\t", $h1))[0 .. 9, 14]) . "\tLabel\tDrugCn\tIndication\treport_need_note\n";
my @pos; my @pos;
while (<IN>) { while (<IN>) {