Sponsored Content
Full Discussion: Recode alphabet into numbers
Top Forums Shell Programming and Scripting Recode alphabet into numbers Post 302684649 by alister on Thursday 9th of August 2012 10:29:21 PM
Old 08-09-2012
Tested on your sample data:
Code:
awk '
FNR==NR { a[NR,$5]=0; a[NR,$6]=1; next }
{ for (i=3; i<=NF; i++) $i=a[int((i-3)/2+1),$i]; print }
' genotype.bim genotype.ped

Regards,
Alister
 

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

What can i do to check that the input is all alphabet.. ?

What can i do to check that the input is all alphabet.. ? (4 Replies)
Discussion started by: XXXXXXXXXX
4 Replies

2. Shell Programming and Scripting

To check if the first character is a alphabet or number

Hi, I need to find whether the first character in a line is a alphabet or a number. If its a number i should sort it numerically. If its a alphabet i should sort it based on the ASCII value.And if it is something other than alphabet or number then sort it based on ASCII value. The code i used... (2 Replies)
Discussion started by: ragavhere
2 Replies

3. SuSE

need help with recode command for CR/LF

Not sure if this is a Linux issue or specific to SuSE Linux, but, in the infinite wisdom of the developers they decided to do away with the dos2unix and unix2dos commands which were very handy in handling the CR/LF issue between unix and dos/windows files. More to the point I've created a tr... (1 Reply)
Discussion started by: 2reperry
1 Replies

4. Shell Programming and Scripting

Writing an algorithm to recode data points

I have a file that has been partially recoded so that data points that were formerly letter combinations are now -1, 0, or 1. I need to finish recoding the GG and CC data points. The file looks like this: ID 1 2 3 4 5 6 7 8 83845676 0 0 0 0 CC -1 CC CC 838469. -1 -1 1 GG CC 0 CC 1 83847041... (10 Replies)
Discussion started by: doobedoo
10 Replies

5. Shell Programming and Scripting

Recode A/T/G/C to 0/1 using a reference column

Hello, I have a large file that contains 114 total columns with over 6,000 rows and a header; the final 27 columns are coded in A/T/G/C. There is also a reference column coded A/T/C/G. e.g. OLD_file col1 col2 3 ref ... 27 28 29 30 ... 1 r 22 A ... G A G A ... 2 f 22 C ... T T C T ...... (2 Replies)
Discussion started by: peanuts48
2 Replies

6. Shell Programming and Scripting

Alphabet counting

I have a text file in the following format CCCCCGCCCCCCCCCCcCCCCCCCCCCCCCCC AAAATAAAAAAAAAAAaAAAAAAAAAAAAAAA TGTTTTTTTTTTTTGGtTTTTTTTTTTTTTTT TTTT-TTTTTTTTTCTtTTTTTTTTTTTTTTT Each row/line will have 32 letters and each line will only have multiple occurrences of 2 letters out of a pool... (1 Reply)
Discussion started by: Lucky Ali
1 Replies

7. Shell Programming and Scripting

last character is digit or alphabet!

Hello, I have to find out whether the last character is digit or alphabet. I manage to strip the last character but would need some help if there is one liner available to test the above. set x = WM echo $x | sed 's/.*\(.$\)/\1/' O/P M I would like a one liner code to test whether the... (1 Reply)
Discussion started by: dixits
1 Replies

8. Shell Programming and Scripting

Conditional for every letter in alphabet

I wanted to know if there was a more efficient to do this. I was to setup a conditional for every letter of the alphabet, like so (I am parsing an array): for i in "${arr}"; do if ]; then echo "$i starts with A" else echo "$i does not start with A" fi done I want to do this A-Z, is there... (6 Replies)
Discussion started by: sudo
6 Replies

9. UNIX for Beginners Questions & Answers

Shell Script - Alphabet in code

Hi e Hi everyone, I can't make this script work, #! /bin/bash declare -A crypt=( ="A" ="a" ="B" ="b" ="C" ="c" =' ' ='!' ) encode () { local word=$1 for ((i=0; i<${#word}; ++i)) ; do local char=${word:$i:1} printf %s' ' ${crypt} done ... (5 Replies)
Discussion started by: Pinguino
5 Replies
Locale::Recode::_Aliases(3pm)				User Contributed Perl Documentation			     Locale::Recode::_Aliases(3pm)

NAME
Locale::Recode::_Aliases - Internal Charset Alias Database for libintl-perl SYNOPSIS
use Locale::Recode::_Aliases die "This module is internal to libintl. Do not use it directly! "; DESCRIPTION
Contains a list of codeset aliases that are known internally to libintl. CONSTANTS
ALIASES The constant Locale::Recode::_Aliases::ALIASES contains a hash reference the keys of which are internally known charset alias names all in uppercase. The corresponding value is the canonical name of the charset. BUGS
The format of the lookup table will most probably change, do not rely on the current format! AUTHOR
Copyright (C) 2002-2009, Guido Flohr <guido@imperia.net>, all rights reserved. See the source code for details. This software is contributed to the Perl community by Imperia (<http://www.imperia.net/>). SEE ALSO
Locale::Recode(3), perl(1) POD ERRORS
Hey! The above document had some coding errors, which are explained below: Around line 749: =cut found outside a pod block. Skipping to next block. perl v5.10.1 2009-06-23 Locale::Recode::_Aliases(3pm)
All times are GMT -4. The time now is 11:52 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy