#!/usr/bin/ksh
typeset -i mCnt=0
mPFld1="First_Time"
IFS=','
while read mFld1 mFld2 mValue
do
if [[ "${mFld1}" != "${mPFld1}" || "${mFld2}" != "${mPFld2}" ]]; then
if [[ "${mPFld1}" != "First_Time" ]]; then
if [[ ${mCnt} -gt 1 ]]; then
echo ${mPFld1}'COMMA'${mPFld2}'COMMA"'${mOutValue}'"'
else
echo ${mPFld1}'COMMA'${mPFld2}'COMMA'${mOutValue}
fi
fi
mOutValue=''
mCnt=0
fi
if [[ "${mOutValue}" = "" ]]; then
mOutValue=${mValue}
else
mOutValue=${mOutValue}'COMMA'${mValue}
fi
mPFld1=${mFld1}
mPFld2=${mFld2}
mCnt=${mCnt}+1
done < Inp_File
if [[ "${mPFld1}" != "First_Time" ]]; then
if [[ ${mCnt} -gt 1 ]]; then
echo ${mPFld1}'COMMA'${mPFld2}'COMMA"'${mOutValue}'"'
else
echo ${mPFld1}'COMMA'${mPFld2}'COMMA'${mOutValue}
fi
fi
Hi,
I am processing a file and would like to delete duplicate records as indicated by one of its column. e.g.
COL1 COL2 COL3
A 1234 1234
B 3k32 2322
C Xk32 TTT
A NEW XX22
B 3k32 ... (7 Replies)
I want to duplicate a row if found two or more values in a particular column for corresponding row which is delimitted by comma.
Input
abc,line one,value1
abc,line two, value1, value2
abc,line three,value1
needs to converted to
abc,line one,value1
abc,line two, value1
abc,line... (8 Replies)
hii i have a huge amt of data stored in a file.Here in this file i need to remove duplicates rows in such a way that the last column has different data & i must check for greatest among last colmn data & print the largest data along with other entries but just one of other duplicate entries is... (16 Replies)
if the key (A or B or ...others) has 4 in its 3rd column the 1st A row has to form 4 dupicates along with the all the values of A in 4th column (2.9, 3.8, 4.2) .
Hope I explain the question clearly.
Cheers
Ruby
input
"A" 1 4 2.9
"A" 2 5 ... (7 Replies)
Hi I'm trying to compare 3 or more files based on similar values and outputting them into 3 columns.
For example:
file1
ABC
DEF
GHI
file2
DEF
DER
file3
ABC
DER
The output should come out like this
file1 file2 file3
ABC ABC (4 Replies)
Hi All,
I need help for doing the following.
I have a input file like:
aaaaaaaaaabbbbbbbbbbbbbbbbbbbb
cccbbbbbaaaaaadddddaaaabbbbbbb
now I am trying to generate a output csv file where i will have for e.g.
0-3 chars of each line as the first column in the csv, 4-10 chars of the line as... (3 Replies)
Dear members, I need to filter a file based on the 8th column (that is id), and does not mather the other columns, because I want just one id (1 line of each id) and remove the duplicates lines based on this id (8th column), and does not matter wich duplicate will be removed.
example of my file... (3 Replies)
Hello
I have a file like this:
> cat examplefile
ghi|NN603762|eee
mno|NN607265|ttt
pqr|NN613879|yyy
stu|NN615002|uuu
jkl|NN607265|rrr
vwx|NN615002|iii
yzA|NN618555|ooo
def|NN190486|www
BCD|NN628717|ppp
abc|NN190486|qqq
EFG|NN628717|aaa
HIJ|NN628717|sss
>
I can sort the file by... (5 Replies)
How can i get the duplicates rows from a file using unix, for example i have data like
a,1
b,2
c,3
d,4
a,1
c,3
e,5
i want output to be like
a,1
c,3 (4 Replies)
Perl::Critic::Policy::ValuesAndExpressions::ProhibitNoisUsertContributed Perl DoPerl::Critic::Policy::ValuesAndExpressions::ProhibitNoisyQuotes(3)NAME
Perl::Critic::Policy::ValuesAndExpressions::ProhibitNoisyQuotes - Use "q{}" or "qq{}" instead of quotes for awkward-looking strings.
AFFILIATION
This Policy is part of the core Perl::Critic distribution.
DESCRIPTION
Don't use quotes for one or two-character strings of non-alphanumeric characters (i.e. noise). These tend to be hard to read. For
legibility, use "q{}" or a named value. However, braces, parentheses, and brackets tend do to look better in quotes, so those are allowed.
$str = join ',', @list; #not ok
$str = join ",", @list; #not ok
$str = join q{,}, @list; #better
$COMMA = q{,};
$str = join $COMMA, @list; #best
$lbrace = '('; #ok
$rbrace = ')'; #ok
print '(', @list, ')'; #ok
CONFIGURATION
This Policy is not configurable except for the standard options.
SEE ALSO
Perl::Critic::Policy::ValuesAndExpressions::ProhibitEmptyQuotes
AUTHOR
Jeffrey Ryan Thalhammer <jeff@imaginative-software.com>
COPYRIGHT
Copyright (c) 2005-2011 Imaginative Software Systems. All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. The full text of this license
can be found in the LICENSE file included with this module.
perl v5.16.3 2014-06-09 Perl::Critic::Policy::ValuesAndExpressions::ProhibitNoisyQuotes(3)