Shell Programming and Scripting

just execute the below line in the command line.

Dont put it in your perl file

Code:

 
cat TTDtargets | perl -n -e 'chomp; if(m/^\s*(\D+)\s*(\d+)\s+Uniprot ID\s+(\d+)/){printf("%s for %s %s\n",$3,$1,$2)}'> TTD2

Thanks Kamraj

But this time it gave me the file TTD2 but its completely blank

is there somethign wrong with out put command

my input file contains

TTDS00001 Antagonist GSK233705 DCL000823
TTDS00001 Antagonist NVA237 DCL000901
TTDS00001 Antagonist Org-23366 DCL000911
TTDS00001 Antagonist OrM3 DCL000913
TTDS00001 Multitarget Org-23366 DCL000911
TTDS00001 Antagonist Aprophen DNC000245
TTDS00001 Antagonist Benactyzine DNC000293
TTDS00001 Antagonist Hyoscine DNC000757
TTDS00001 Antagonist Hyoscyamine sulfate DNC000758
TTDS00001 Antagonist Ipratropium bromide DNC000806
TTDS00001 Agonist Muscarine DNC000970
TTDS00001 Agonist RS 86 DNC001236
TTDS00001 Target Validation TTDS00001
TTDS00002 UniProt ID P11229
TTDS00002 Name Muscarinic acetylcholine receptor M1
TTDS00002 Type of target Successful target
TTDS00002 Synonyms M1 receptor
TTDS00002 Disease Alzheimer's disease
TTDS00002 Disease Bronchospasm (histamine induced)
TTDS00002 Disease Cognitive deficits
TTDS00002 Disease Schizophrenia
TTDS00002 Function The muscarinic acetylcholine receptor mediates various cellular responses, including inhibition of adenylate cyclase.................. so on for TTD 03/04/..14447

I have to capture only Uniprot ID and put in Output

so, as per the above input, the expected output is P11229 ?

Please use [code] tag while posting the data and command

https://www.unix.com/how-post-unix-li...code-tags.html

---------- Post updated at 12:15 PM ---------- Previous update was at 12:14 PM ----------

Try this.

Code:

 
$ perl -lane 'print $F[-1] if $_=~/UniProt ID/' TTDtargets
P11229

Thank for reply.My Input contains many Uniprot entries like one Uniprot ID which I mentioned in one part of so file conatin 1400 approx Uniprot entries..

Code:

Method 1:

cat TTD Targets | perl -n -e 'chomp; if(m/^\s*(\D+)\s*(\d+)\s+Uniprot ID\s+(\d+)/){printf("%s for %s %s\n",$3,$1,$2)}'> TTD2;

Error:Blank TTD2 file I m receiving

Method 2:$ perl -lane 'print $F[-1] if $_=~/UniProt ID/' TTDtargets


Error:command not found

can you post your code with code tag

otherwise, i cant help. sorry

https://www.unix.com/how-post-unix-li...code-tags.html

post the entire error message and the command what you tried.

Method 1:

bash-3.2$ $ perl -lane 'print $F[-1] if $_=~/UniProt ID/' TTDtargets
bash: $: command not found

Method2:

bash-3.2$ cat Uniprot | perl -n -e 'chomp; if(m/^\s*(\D+)\s*(\d+)\s+Uniprot ID\s+(\d+)/){printf("%s for %s %s\n",$3,$1,$2)}'> TTD2

why the $ before the perl ?

Code:

 
bash-3.2$ $ 

still you are not posting with [code] tag

you will be banned if you not take this as serious. (So no more help from this forum )


(B) Use [code] tags when you post any code or data samples so others can easily read your code. You can easily do this by highlighting your code and then clicking on the # in the editing menu. (You can also type code tags

Code:

 and

by hand.)