The terminal output of the perl command is attached: it basically matches two separate files and combines them into one and excludes non-unique values. I am not sure I follow what you are saying about the syntax of the perl function, but made some changes.
I am using cygwin on a windows 7 machine Thank you very much
The cd line as is works if the shells are run separate but not when they are combined.
Code:
#!/bin/bash
printf "What is the id of the patient to be matched : "; read id
printf "What panel: "; read panel
case "$id" in
cd 'C:\Users\cmccabe\Desktop\annovar'
OMR=Output_Mutation_Report
perl -aF/\\t/ -lne 'BEGIN{%m=map{chomp;s/\cM|\cJ//g;$p=join("\t",(split/\t/)[4,5]);($p,$_)} <>;$m{"#CHROM\tINFO"}=$m{"Chr\tSegment Position"}};/SEGPOS=(\d+)/ || /\t(INFO)\t/ or next;$p=$F[0]."\t".$1;exists $m{$p} and print join("\t",$_,$m{$p})' ${id}_${panel}_${OMR}.txt < ${id}_${panel}_${OMR}_Filtered.vcf > ${id}_matched.vcf
;;
show_menu=true
menu=( [yY] [nN] )
func_show() { # "MESSAGE STRING"
# Prints passed argument
# Returns nothing
printf '\n\t%s\n\n' "$1"
}
#
# Display & Action
#
clear
while $show_menu
do printf '#----------------------#\n%s\n' "Are there additonal patients to be matched"
select entry in "${menu[@]}" Back
do case "$entry" in
Back) show_menu=false
;;
[yY]) perl -aF/\\t/ -lne 'BEGIN{%m=map{chomp;s/\cM|\cJ//g;$p=join("\t",(split/\t/)[4,5]);($p,$_)} <>;$m{"#CHROM\tINFO"}=$m{"Chr\tSegment Position"}};/SEGPOS=(\d+)/ || /\t(INFO)\t/ or next;$p=$F[0]."\t".$1;exists $m{$p} and print join("\t",$_,$m{$p})' ${id}_${panel}_${OMR}.txt < ${id}_${panel}_${OMR}_Filtered.vcf > ${id}_matched.vcf (index id 0) :: $entry
;;
[nN]) func_show "printf "Does the file need to be converted : " ; read id :: ${menu[${#menu[@]}-1]}"
while true
do
printf "Enter ID : " ; read id
cd 'C:\Users\cmccabe\Desktop\annovar'
[ -z "$id" ] && break
[ "$id" = "end" ] && break
perl convert2annovar.pl -includeinfo -format vcf4old ${id}_matched.vcf > ${id}_matched.avinput
done
;;
*)
esac
break
done
done
Hi :
I have a file containing the print queues with their IP address. I wanted to combine the 'lpstat' output with their respective IP address.
For example :
zebhtrmb-6078 lgonzale priority 0 Mar 17 11:50 on zebhtrmb
with
zebhtrmb-6078 lgonzale priority 0 ... (1 Reply)
Is there any way to combine 3 excel files into one comma separated file, after removing the header row from all the three files. Is this possible? I have looked in FAQ and I did not find anything.
Appreciate any suggestions or links to resources.
Radhika. (11 Replies)
I have multiple files; each file contains a certain data in a column view
simply i want to combine all those files into one file in columns
example
file1:
a
b
c
d
file 2:
1
2
3
4
file 3:
G (4 Replies)
I need to combine two files based on the content in first column and combine it into one file . For example :
file1:
A 10
B 20
C 30
D 40
File2:
B 200
E 500
A 100
D 400
Need the output in this format:
file 3 :
column 1 Column 2 Column 3
A 10 100
B 20 ... (4 Replies)
i have 3 files: file1, file2 and file3
file1 has this content:
#!/bin/ksh
sqlplus username/password@Servername << EOF
file2 has this content:
drop table dropme cascade constraints;
file3 has this content:
EOF
all said and done, file1, file2 and file2 will look like... (1 Reply)
I have n of files with ending with _ZERO.txt
need to combine all file ending with _ZERO.txt into 1 file
ex:
A_ZERO.txt
1
2
B_ZERO.txt
3
4
Output:
FINAL.txt
1
2 (3 Replies)
The script below is an attempt to combine 3 shells into 1.
The first part: match.sh
prompts the user for an id of a patient and runs a match script based on the response of "y" or "n". After completing the user is asked if there are additional patients, and based on "y" or "n" a certain action... (2 Replies)
Hello All , I am new to this Forum,
I am trying to write a script to combine two data files with 1 column in common and others columns are different .
File1
Apple 29
tomatao 4
grapes 25
File2
Apple fruit
tomatao veg
grapes fruit
other (3 Replies)
i use the split command to split a one terabyte backup file into 10 chunks of 100 GB each. The files are split one after the other. While the files is being split, I will like to scp the files one after the other as soon as the previous one completes, from server A to Server B. Then on server B ,... (2 Replies)
Discussion started by: malaika
2 Replies
LEARN ABOUT MOJAVE
platform::shell
platform::shell(n) Tcl Bundled Packages platform::shell(n)
__________________________________________________________________________________________________________________________________________________NAME
platform::shell - System identification support code and utilities
SYNOPSIS
package require platform::shell ?1.1.4?
platform::shell::generic shell
platform::shell::identify shell
platform::shell::platform shell
_________________________________________________________________DESCRIPTION
The platform::shell package provides several utility commands useful for the identification of the architecture of a specific Tcl shell.
This package allows the identification of the architecture of a specific Tcl shell different from the shell running the package. The only
requirement is that the other shell (identified by its path), is actually executable on the current machine.
While for most platform this means that the architecture of the interrogated shell is identical to the architecture of the running shell
this is not generally true. A counter example are all platforms which have 32 and 64 bit variants and where a 64bit system is able to run
32bit code. For these running and interrogated shell may have different 32/64 bit settings and thus different identifiers.
For applications like a code repository it is important to identify the architecture of the shell which will actually run the installed
packages, versus the architecture of the shell running the repository software.
COMMANDS
platform::shell::identify shell
This command does the same identification as platform::identify, for the specified Tcl shell, in contrast to the running shell.
platform::shell::generic shell
This command does the same identification as platform::generic, for the specified Tcl shell, in contrast to the running shell.
platform::shell::platform shell
This command returns the contents of tcl_platform(platform) for the specified Tcl shell.
KEYWORDS
operating system, cpu architecture, platform, architecture
platform::shell 1.1.4 platform::shell(n)
11-08-2014
