Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: awk - Print column number that return value comes from
Top Forums Shell Programming and Scripting awk - Print column number that return value comes from Post 302967379 by RavinderSingh13 on Tuesday 23rd of February 2016 09:18:04 AM
Old 02-23-2016
Hello ncwxpanther,

Request you to please show us complete Input_file(sample file) as in your very first post you haven't showed us the complete data which you have done in 3rd post, following may helpful for you.
Code:
awk '{if($0 !~ /^$/){split($1, array,"Y|M|PRCPEQ");A=array[1] OFS array[2] OFS array[3] OFS array[3]-1;for(i=2;i<=NF;i++){MAX=MAX>$i?MAX:$i};print A OFS MAX;MAX=""}}'  Input_file

Here as you have mentioned there are so may files you could use following then.
Code:
for file in ABC*
do
     awk '{if($0 !~ /^$/){split($1, array,"Y|M|PRCPEQ");A=array[1] OFS array[2] OFS array[3] OFS array[3]-1;for(i=2;i<=NF;i++){MAX=MAX>$i?MAX:$i};print A OFS MAX;MAX=""}}'  $file
done

If you wanted to add file's name to output then you could use following too.
Code:
for file in ABC*
do
     awk 'BEGIN{print "File which is getting executed is: " FILENAME} {if($0 !~ /^$/){split($1, array,"Y|M|PRCPEQ");A=array[1] OFS array[2] OFS array[3] OFS array[3]-1;for(i=2;i<=NF;i++){MAX=MAX>$i?MAX:$i};print A OFS MAX;MAX=""}}'  $file
done

If you have any queries or above solutions doesn't meet your requirement then request you to please show us more sample inputs with more specifically sample outputs with complete terms and conditions etc in detailed manner.

Thanks,
R. Singh
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

find expression with awk in only one column, and if it fits, print whole column

Hi. How do I find an expression with awk in only one column, and if it fits, then print that whole column. 1 apple oranges 2 bannanas pears 3 cats dogs 4 hesaid shesaid echo "which number:" read NUMBER (user inputs number 2 for this example) awk " /$NUMBER/ {field to search is field... (2 Replies)
Discussion started by: glev2005
2 Replies

2. Solaris

awk - Print variable number of colums from a starting column

Hi guys, I usualy am able to google awk stuff but I can't find it so far and there are so many awking gurus here that I will give it a shot. I want to print $1;$3;"$5 up to the $NF". In other words, I can have 1000 colums, but need to have $5 up to the end. I started with the idea of... (2 Replies)
Discussion started by: plmachiavel
2 Replies

3. Shell Programming and Scripting

AWK print number of records, divide this number

I would like to print the number of records of 2 files, and divide the two numbers awk '{print NR}' file1 > output1 awk '{print NR}' file2 > output2 paste output1 output2 > output awl '{print $1/$2}' output > output_2 is there a faster way? (8 Replies)
Discussion started by: programmerc
8 Replies

4. Shell Programming and Scripting

awk return number of entries

I have a string with the following information and want to return the number of entries enclosed by <> in awk <stdin>: N = 441 <0.369000018/0.569000006> <0.369000018/0.569000006> <0/1> (7 Replies)
Discussion started by: kristinu
7 Replies

5. Shell Programming and Scripting

awk Print New Column For Every Two Lines and Match On Multiple Column Values to print another column

Hi, My input files is like this axis1 0 1 10 axis2 0 1 5 axis1 1 2 -4 axis2 2 3 -3 axis1 3 4 5 axis2 3 4 -1 axis1 4 5 -6 axis2 4 5 1 Now, these are my following tasks 1. Print a first column for every two rows that has the same value followed by a string. 2. Match on the... (3 Replies)
Discussion started by: jacobs.smith
3 Replies

6. Shell Programming and Scripting

Help with compare two column and print out column with smallest number

Input file : 5 20 500 2 20 41 41 0 23 1 Desired output : 5 2 20 0 1 By comparing column 1 and 2 in each line, I hope can print out the column with smallest number. I did try the following code, but it don't look good :( (2 Replies)
Discussion started by: perl_beginner
2 Replies

7. Shell Programming and Scripting

awk to find number in a field then print the line and the number

Hi I want to use awk to match where field 3 contains a number within string - then print the line and just the number as a new field. The source file is pipe delimited and looks something like 1|net|ABC Letr1|1530||| 1|net|EXP_1040 ABC|1121||| 1|net|EXP_TG1224|1122||| 1|net|R_North|1123|||... (5 Replies)
Discussion started by: Mudshark
5 Replies

8. Shell Programming and Scripting

awk to print column number while ignoring alpha characters

I have the following script that will print column 4 ("25") when column 1 contains "123". However, I need to ignore the alpha characters that are contained in the input file. If I were to ignore the characters my output would be column 3. What is the best way to print my column of interest... (3 Replies)
Discussion started by: ncwxpanther
3 Replies

9. Shell Programming and Scripting

awk command to return only field with a number in it

What is an awk command to print only fields with a number in it?? Input file....... S,S,S,S,S,S,S,S,S 001S,S,S,S,S,S,S,S,S 00219S,23S,24S,43S,47S,S,S,S,S 00319S,10S,23S,41S,43S,47S,S,S,S 00423S,41S,43S,46S,47S,S,S,S,S 00510S,23S,24S,43S,46S,S,S,S,S 00610S,23S,43S,46S,47S,S,S,S,S... (2 Replies)
Discussion started by: garethsays
2 Replies

10. Shell Programming and Scripting

Need awk or Shell script to compare Column-1 of two different CSV files and print if column-1 matche

Example: I have files in below format file 1: zxc,133,joe@example.com cst,222,xyz@example1.com File 2 Contains: hxd hcd jws zxc cst File 1 has 50000 lines and file 2 has around 30000 lines : Expected Output has to be : hxd hcd jws (5 Replies)
Discussion started by: TestPractice
5 Replies

LEARN ABOUT DEBIAN

dorcsd

dorcsd.f(3)							      LAPACK							       dorcsd.f(3)

NAME

       dorcsd.f -

SYNOPSIS

   Functions/Subroutines
       recursive subroutine dorcsd (JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, X21, LDX21, X22, LDX22, THETA,
	   U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, LDV2T, WORK, LWORK, IWORK, INFO)
	   DORCSD

Function/Subroutine Documentation
   recursive subroutine dorcsd (characterJOBU1, characterJOBU2, characterJOBV1T, characterJOBV2T, characterTRANS, characterSIGNS, integerM,
       integerP, integerQ, double precision, dimension( ldx11, * )X11, integerLDX11, double precision, dimension( ldx12, * )X12, integerLDX12,
       double precision, dimension( ldx21, * )X21, integerLDX21, double precision, dimension( ldx22,			     * )X22, integerLDX22,
       double precision, dimension( * )THETA, double precision, dimension( ldu1, * )U1, integerLDU1, double precision, dimension( ldu2, * )U2,
       integerLDU2, double precision, dimension( ldv1t, * )V1T, integerLDV1T, double precision, dimension( ldv2t, * )V2T, integerLDV2T, double
       precision, dimension( * )WORK, integerLWORK, integer, dimension( * )IWORK, integerINFO)
       DORCSD

       Purpose:

	    DORCSD computes the CS decomposition of an M-by-M partitioned
	    orthogonal matrix X:

					    [  I  0  0 |  0  0	0 ]
					    [  0  C  0 |  0 -S	0 ]
		[ X11 | X12 ]	[ U1 |	  ] [  0  0  0 |  0  0 -I ] [ V1 |    ]**T
	    X = [-----------] = [---------] [---------------------] [---------]   .
		[ X21 | X22 ]	[    | U2 ] [  0  0  0 |  I  0	0 ] [	 | V2 ]
					    [  0  S  0 |  0  C	0 ]
					    [  0  0  I |  0  0	0 ]

	    X11 is P-by-Q. The orthogonal matrices U1, U2, V1, and V2 are P-by-P,
	    (M-P)-by-(M-P), Q-by-Q, and (M-Q)-by-(M-Q), respectively. C and S are
	    R-by-R nonnegative diagonal matrices satisfying C^2 + S^2 = I, in
	    which R = MIN(P,M-P,Q,M-Q).

       Parameters:
	   JOBU1

		     JOBU1 is CHARACTER
		     = 'Y':	 U1 is computed;
		     otherwise:  U1 is not computed.

	   JOBU2

		     JOBU2 is CHARACTER
		     = 'Y':	 U2 is computed;
		     otherwise:  U2 is not computed.

	   JOBV1T

		     JOBV1T is CHARACTER
		     = 'Y':	 V1T is computed;
		     otherwise:  V1T is not computed.

	   JOBV2T

		     JOBV2T is CHARACTER
		     = 'Y':	 V2T is computed;
		     otherwise:  V2T is not computed.

	   TRANS

		     TRANS is CHARACTER
		     = 'T':	 X, U1, U2, V1T, and V2T are stored in row-major
				 order;
		     otherwise:  X, U1, U2, V1T, and V2T are stored in column-
				 major order.

	   SIGNS

		     SIGNS is CHARACTER
		     = 'O':	 The lower-left block is made nonpositive (the
				 "other" convention);
		     otherwise:  The upper-right block is made nonpositive (the
				 "default" convention).

	   M

		     M is INTEGER
		     The number of rows and columns in X.

	   P

		     P is INTEGER
		     The number of rows in X11 and X12. 0 <= P <= M.

	   Q

		     Q is INTEGER
		     The number of columns in X11 and X21. 0 <= Q <= M.

	   X11

		     X11 is DOUBLE PRECISION array, dimension (LDX11,Q)
		     On entry, part of the orthogonal matrix whose CSD is desired.

	   LDX11

		     LDX11 is INTEGER
		     The leading dimension of X11. LDX11 >= MAX(1,P).

	   X12

		     X12 is DOUBLE PRECISION array, dimension (LDX12,M-Q)
		     On entry, part of the orthogonal matrix whose CSD is desired.

	   LDX12

		     LDX12 is INTEGER
		     The leading dimension of X12. LDX12 >= MAX(1,P).

	   X21

		     X21 is DOUBLE PRECISION array, dimension (LDX21,Q)
		     On entry, part of the orthogonal matrix whose CSD is desired.

	   LDX21

		     LDX21 is INTEGER
		     The leading dimension of X11. LDX21 >= MAX(1,M-P).

	   X22

		     X22 is DOUBLE PRECISION array, dimension (LDX22,M-Q)
		     On entry, part of the orthogonal matrix whose CSD is desired.

	   LDX22

		     LDX22 is INTEGER
		     The leading dimension of X11. LDX22 >= MAX(1,M-P).

	   THETA

		     THETA is DOUBLE PRECISION array, dimension (R), in which R =
		     MIN(P,M-P,Q,M-Q).
		     C = DIAG( COS(THETA(1)), ... , COS(THETA(R)) ) and
		     S = DIAG( SIN(THETA(1)), ... , SIN(THETA(R)) ).

	   U1

		     U1 is DOUBLE PRECISION array, dimension (P)
		     If JOBU1 = 'Y', U1 contains the P-by-P orthogonal matrix U1.

	   LDU1

		     LDU1 is INTEGER
		     The leading dimension of U1. If JOBU1 = 'Y', LDU1 >=
		     MAX(1,P).

	   U2

		     U2 is DOUBLE PRECISION array, dimension (M-P)
		     If JOBU2 = 'Y', U2 contains the (M-P)-by-(M-P) orthogonal
		     matrix U2.

	   LDU2

		     LDU2 is INTEGER
		     The leading dimension of U2. If JOBU2 = 'Y', LDU2 >=
		     MAX(1,M-P).

	   V1T

		     V1T is DOUBLE PRECISION array, dimension (Q)
		     If JOBV1T = 'Y', V1T contains the Q-by-Q matrix orthogonal
		     matrix V1**T.

	   LDV1T

		     LDV1T is INTEGER
		     The leading dimension of V1T. If JOBV1T = 'Y', LDV1T >=
		     MAX(1,Q).

	   V2T

		     V2T is DOUBLE PRECISION array, dimension (M-Q)
		     If JOBV2T = 'Y', V2T contains the (M-Q)-by-(M-Q) orthogonal
		     matrix V2**T.

	   LDV2T

		     LDV2T is INTEGER
		     The leading dimension of V2T. If JOBV2T = 'Y', LDV2T >=
		     MAX(1,M-Q).

	   WORK

		     WORK is DOUBLE PRECISION array, dimension (MAX(1,LWORK))
		     On exit, if INFO = 0, WORK(1) returns the optimal LWORK.
		     If INFO > 0 on exit, WORK(2:R) contains the values PHI(1),
		     ..., PHI(R-1) that, together with THETA(1), ..., THETA(R),
		     define the matrix in intermediate bidiagonal-block form
		     remaining after nonconvergence. INFO specifies the number
		     of nonzero PHI's.

	   LWORK

		     LWORK is INTEGER
		     The dimension of the array WORK.

		     If LWORK = -1, then a workspace query is assumed; the routine
		     only calculates the optimal size of the WORK array, returns
		     this value as the first entry of the work array, and no error
		     message related to LWORK is issued by XERBLA.

	   IWORK

		     IWORK is INTEGER array, dimension (M-MIN(P, M-P, Q, M-Q))

	   INFO

		     INFO is INTEGER
		     = 0:  successful exit.
		     < 0:  if INFO = -i, the i-th argument had an illegal value.
		     > 0:  DBBCSD did not converge. See the description of WORK
			   above for details.

       References:
	   [1] Brian D. Sutton. Computing the complete CS decomposition. Numer. Algorithms, 50(1):33-65, 2009.

       Author:
	   Univ. of Tennessee

	   Univ. of California Berkeley

	   Univ. of Colorado Denver

	   NAG Ltd.

       Date:
	   November 2011

       Definition at line 297 of file dorcsd.f.

Author
       Generated automatically by Doxygen for LAPACK from the source code.

Version 3.4.1							  Sun May 26 2013						       dorcsd.f(3)
All times are GMT -4. The time now is 12:41 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy