Search Results

awk '$3=="PCS000289"&&$1>3000{$3="YES"}1' file

@user8: not every awk retains the fields in the END section. To get around this:
{s=$5} END{ print s }

About how to print: "last row with fifth column; in each file":
END{ print $5 }or in case you are using gawk 4.x:
ENDFILE{ print $5 }

First, please use CODE tags (not QUOTE tags) to show contents of files.

Second, we seem to have a language barrier. I do not understand what you want. Are you asking for a script that uses awk...

You need to write the output to a tmp file and then move it "over' the original file. You also want to ensure that the uniq command was successful before overlaying the bad/empty file on top of the...

grep -f fileB fileA

>outputFile
cat FileB | while read line
do
grep "$line" FileA >> outputFile
done

cut -c "$(cat fileB)" fileA

awk -v v1=`cat file_b` '{print substr($1,v1,1)}' file_a

Something like this,


#!/bin/sh

while read line
do
ch=`echo $line | cut -c1`
number=`echo $line | cut -c2-`
awk '{print $2}' file1 | awk -v v1=$ch -v v2=$number -F"[A-Z]" '{for...

Another awk aprox:

awk '{if ( /"/){a=$1;b=$NF}else{$0=a""$0" "b}}1' file

my ($a,$b);
while(<DATA>){
chomp;
if(/^(".*?").* (\S*)$/){
$a=$1;
$b=$2;
print $_,"\n";
}
else{
print $a," ",$_," ",$b,"\n";
}
}
__DATA__
"A" 2 aa 34
3 ac
...

With awk:

awk 'NF==4 {a=$1; b=$4; print; next} {print a, $0, b}' infile
"A" 2 aa 34
"A" 3 ac 34
"A" 5 cd 34
"B" 3 hu 67
"B" 4 fg 67
"B" 5 gy 67


If you...

Hi

#awk 'NF>2{a=$1;b=$4;$1=$1;print;next;}{$1=$1;print a,$0,b;}' file
"A" 2 aa 34
"A" 3 ac 34
"A" 5 cd 34
"B" 3 hu 67
"B" 4 fg 67
"B" 5 gy 67


Guru.

something like this.

previous_filed.pl

#!/usr/bin/perl

while (<>) {
if (/(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/) {
$pr_1=$1;
$pr_4=$4;
...

sed 's/\[/ \[/' al |sort -k4,1n -k1n >tmp
IFS=$'\n'
for i in `cat tmp | cut -d"]" -f1 | sed 's/.*\[\(\.*\)/\1/'|uniq|sort`
do
sed "/$i/!d" tmp | sed -n '$p;s/ \[/[/'
done
100 ...

Hi

# sed 's/\]/\[/' file | sort -t"[" -k2,2 -k 1nr | awk -F"[" '!a[$2]++' | sed 's/\[/\]/2'
100 >aa[John 2] >abc[John 2] >bca[John 2]
87 >def[Mona 3.1] >fgh[Mona 3.1] <ijk [Mona 3.1]
89 ...

$> awk '$2==a && $3==b {print; next} {i++; if(NR==1){print "file A-"i}else{print "\nfile A-"i}; a=$2; b=$3; print}' infile
file A-1
aa 22 48
ab 22 48

file A-2
tcf 50 76
gf 50 76

file...

$ sed "s/[A-Z][A-Z]*/ & /g" file1 | awk '{print $1 $2-$4+2 $3}'

Hi
If the order of the result is not a concern for you, try this:


awk 'NR==FNR{a[i++]=$0;next;}{for(j in a){x=a[j];gsub(/[A-Z]/,"",x);x=int(x);if ($1<x && $2>x) print a[j],$0;}}' i=1 fileA...

my %hash=(A,1,C,2,D,3,E,4,F,5,G,6,H,7,I,8,K,9,L,10,M,11,N,12,P,13,Q,14,R,15,S,16,T,17,V,18,W,19,Y,20);
open $fh,"<","a.spl";
my %hash1;
while(<$fh>){
my @tmp=split(/\*/,$_);
for(my...