Search Results

Hello Fahmida,

Following may help you in same.

awk '{for(i=2;i<=NF;i++){print $1 OFS $i}}' OFS="\t" Input_file
Output will be as follows.

Data000005-RA GO:0003735
Data000005-RA ...

@RudiC, nice use of the "@" placeholder to circumvent the lack of back reference in awk.....

It could be further reduced like this:
awk '
BEGIN{
A["CG"]="CG"
A["CXG"]="C[ACT]G"
...

Seconding pilnet101's comments, I came up with:awk '{OA=OB=OC=$0
gsub(/CG/, "NULLG", OA); print OA > "File_CG_replace"
gsub(/C[^G]G/, "@&", OB); gsub (/@C/,"NULL", OB);...

sed 's/^\(>[^|]*\).*/\1/' file

This is simple substitution command. Find lines starting with ">" up to "|" and replace the whole line with that part you want...
\( \) determines whats held in \1...

Try

$ awk -F"|" '/^>/{NF=1}1' file

>Min_0-t10270-RA
MIGLGFKYLDTSYFGGFCEPSEDMNKVCTMRADCCEGIEMRFHDLKLVLEDWRNFTKLST
EEKRLWATPAAEDFF
>Min_0-t10271-RA...

You could also try the slightly simpler awk and sed commands:
awk -F'|' '{print $1}' input
and
sed 's/|.*//' input
The awk command uses "|" as the field separator and prints the 1st field...

#!/usr/bin/env perl

open( $fh, "<", "yourfile") or die "Cannot open file: $!\n";
# go through the file line by line
while( my $line = <$fh>) {
chomp($line); #...

$ nawk -F_ '{if(a==$3){print b;print $0}{a=$3;b=$0;next}}' inputfile
C_10_B05_SP6
C_10_B05_T7
C_10_B01_SP6
C_10_B01_T7
C_12_G11_SP6
C_12_G11_T7
C_2_I02_SP6
C_2_I02_T7



---------- Post...

not sur about the grep -f <( ) syntax (may need some syntax fix)
but maybe something like

for i in File*.txt; do grep -f <(cat File*.txt | sort | uniq -u | sed 's/.*/\^&\$/') $i | head -1...

awk '
NR == FNR && $5 != 0 {
if ($4 > m1) {
m2 = m1
c2 = c1
m1 = $4
c1 = $1
} else if ($4 > m2) {
m2 = $4
c2 = $1
}
}
NR > FNR && ($1 == c1 || $1 == c2)
'...

Use gawk, nawk or /usr/xpg4/bin/awk on Solaris:

awk 'END {
if (rec && len <= t[2])
print rec
}
/^>/ {
if (len <= t[2]) print rec
rec = null; split($2, t, "="); t[2]
}
{ ...