Sponsored Content
Full Discussion: One Column To Two Columns
Top Forums Shell Programming and Scripting One Column To Two Columns Post 302750023 by Don Cragun on Sunday 30th of December 2012 03:18:03 PM
Old 12-30-2012
If you want to verify each of the conditions stated and print warnings when the conditions aren't met, try the following:
Code:
#!/bin/ksh
awk '/[^[:digit:]]/ {
        h[++hc] = $0
        next
}
{       o[hc,++oc[hc]] = $0
}
END {   if(hc != 2) {
                printf("Expected 2 heading lines; found %d: ", hc)
                for(i = 1; i <= hc; i++)
                        printf("\"%s\"%s", h[i], i == hc ? "\n" : " ")
                ec = 1
        }
        if(oc[1] != oc[2] || oc[1] < 5 || oc[1] > 22) {
                printf("%s\n%s %d %s \"%s\" and %d %s \"%s\".\n",
                        "Expected 5 <= x <= 22 entries under both headings;",
                        "found", oc[1], "under heading", h[1], oc[2],
                        "under heading", h[2])
                ec += 2
        }
        printf("%-3s%s\n", h[1], h[2])
        c = oc[1] > oc[2] ? oc[1] : oc[2]
        last = -1
        for(i = 1; i <= c; i++) {
                if(i <= oc[1] && o[1, i] <= last) {
                        ec += ec % 8 < 4 ? 4 : 0
                        m = sprintf(" %d not > %d.",
                                o[1, i], last)
                } else  m = ""
                if(i <= oc[1] && length(o[1, i]) != 2) {
                        ec += ec % 16 < 8 ? 8 : 0
                        m = sprintf("%s 1st field not 2 digits.", m)
                }
                if(i <= oc[2] && length(o[2, i]) != 7) {
                        ec += ec < 16 ? 16 : 0
                        m = sprintf("%s 2nd field not 7 digits.\n", m)
                } else  m = sprintf("%s\n", m)
                printf("%s %s%s", o[1, i], o[2, i], m)
                last = o[1, i]
        }
        exit ec
}' Input

Replace /bin/ksh in #!/bin/ksh with an absolute pathname of the Korn shell (or any shell that conforms to POSIX shell command language requirements) on your system.

If you're on a Solaris system, use /usr/xpg4/bin/awk or nawk instead of awk.

The exit code will be 0 if all conditions are met, or 1 through 31 depending on which set of conditions fail.
 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

single column to multiple columns

Hello, I have a single column of data that I would like to cut/print (with awk or ...) into multiple columns at every empty row (or common character). Input: 5.99123 5.94693 7.21383 5.95202 0.907935 5.99149 6.08427 0.975774 6.077 Output: 5.99123 5.95202 6.08427 5.94693... (7 Replies)
Discussion started by: agibbs
7 Replies

2. Shell Programming and Scripting

How to check Null values in a file column by column if columns are Not NULLs

Hi All, I have a table with 10 columns. Some columns(2nd,4th,5th,7th,8th and 10th) are Not Null columns. I'll get a tab-delimited file and want to check col by col and generate seperate error code for each col eg:102 if 2nd col value is NULL and 104 if 4th col value is NULL so on... I am a... (7 Replies)
Discussion started by: Mandab
7 Replies

3. UNIX for Dummies Questions & Answers

split one column into multiple columns

hey guys... Im looking to do the following: 1 2 3 4 5 6 7 8 9 Change to: 1 4 7 2 5 8 3 6 9 Did use | perl -lpe'$\=$.%3?$":"\n"' , but it doesnt give me the matrix i want. (3 Replies)
Discussion started by: zaneded
3 Replies

4. Shell Programming and Scripting

split one column into multiple columns

hey, i have the following data: 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 (7 Replies)
Discussion started by: zaneded
7 Replies

5. Shell Programming and Scripting

Separating data from one column into two columns

Hello, I have a file that contains 64,235 columns and over 1000 rows and looks similar to this: ID dad mom 1 2 3 4 5.... 64232 1234 5678 6789 AA BB CC DD EE....ZZ 1342 5786 6897 BB CC DD EE FF....AA 1423 5867 6978 CC DD EE FF GG....BB I need to leave the first three columns in... (4 Replies)
Discussion started by: doobedoo
4 Replies

6. Shell Programming and Scripting

one column in different columns

I have a File with these format: A1 A2 A3 A4 B1 B2 B3 B4 . . . And I wont these format: A1 A2 A3 A4 B1 B2 B3 B4 .. .. .. .. .. ... How can I do that??? thanks (1 Reply)
Discussion started by: manudbc
1 Replies

7. Shell Programming and Scripting

Splitting the data in a column into several columns

Hi, I have the following input file 32895901-d17f-414c-ac93-3e7e0f5ec240 AND @GDF_INPUT 73b129e1-1fa9-4c0d-b95b-4682e5389612 AUS @GDF_INPUT 40f82e88-d1ff-4ce2-9b8e-d827ddb39447 BEL @GDF_INPUT 36e9c3f1-042a-43a4-a80e-4a3bc2513d01 BGR @GDF_INPUT I want to split column 3 into two columns:... (1 Reply)
Discussion started by: ramky79
1 Replies

8. Shell Programming and Scripting

Several columns to two column

Dear All, I have file : input.txt HANDVEL 2201181 1000 180 19 1540 173 1581 316 1652 509 1707 653 1767 816 1834 951 1882 1100 1984 1225 2050 1331 2109 1732 ... (4 Replies)
Discussion started by: attila
4 Replies

9. Shell Programming and Scripting

Combine columns from many files but keep them aligned in columns-shorter left column issue

Hello everyone, I searched the forum looking for answers to this but I could not pinpoint exactly what I need as I keep having trouble. I have many files each having two columns and hundreds of rows. first column is a string (can have many words) and the second column is a number.The files are... (5 Replies)
Discussion started by: isildur1234
5 Replies

10. Shell Programming and Scripting

awk to Sum columns when other column has duplicates and append one column value to another with Care

Hi Experts, Please bear with me, i need help I am learning AWk and stuck up in one issue. First point : I want to sum up column value for column 7, 9, 11,13 and column15 if rows in column 5 are duplicates.No action to be taken for rows where value in column 5 is unique. Second point : For... (1 Reply)
Discussion started by: as7951
1 Replies
ParseWords(3)						User Contributed Perl Documentation					     ParseWords(3)

NAME
Text::ParseWords - parse text into an array of tokens or array of arrays SYNOPSIS
use Text::ParseWords; @lists = nested_quotewords($delim, $keep, @lines); @words = quotewords($delim, $keep, @lines); @words = shellwords(@lines); @words = parse_line($delim, $keep, $line); @words = old_shellwords(@lines); # DEPRECATED! DESCRIPTION
The &nested_quotewords() and &quotewords() functions accept a delimiter (which can be a regular expression) and a list of lines and then breaks those lines up into a list of words ignoring delimiters that appear inside quotes. &quotewords() returns all of the tokens in a single long list, while &nested_quotewords() returns a list of token lists corresponding to the elements of @lines. &parse_line() does tokenizing on a single string. The &*quotewords() functions simply call &parse_line(), so if you're only splitting one line you can call &parse_line() directly and save a function call. The $keep argument is a boolean flag. If true, then the tokens are split on the specified delimiter, but all other characters (quotes, backslashes, etc.) are kept in the tokens. If $keep is false then the &*quotewords() functions remove all quotes and backslashes that are not themselves backslash-escaped or inside of single quotes (i.e., &quotewords() tries to interpret these characters just like the Bourne shell). NB: these semantics are significantly different from the original version of this module shipped with Perl 5.000 through 5.004. As an additional feature, $keep may be the keyword "delimiters" which causes the functions to preserve the delimiters in each string as tokens in the token lists, in addition to preserving quote and backslash characters. &shellwords() is written as a special case of &quotewords(), and it does token parsing with whitespace as a delimiter-- similar to most Unix shells. EXAMPLES
The sample program: use Text::ParseWords; @words = quotewords('s+', 0, q{this is "a test" of quotewords "for you}); $i = 0; foreach (@words) { print "$i: <$_> "; $i++; } produces: 0: <this> 1: <is> 2: <a test> 3: <of quotewords> 4: <"for> 5: <you> demonstrating: 0 a simple word 1 multiple spaces are skipped because of our $delim 2 use of quotes to include a space in a word 3 use of a backslash to include a space in a word 4 use of a backslash to remove the special meaning of a double-quote 5 another simple word (note the lack of effect of the backslashed double-quote) Replacing "quotewords('s+', 0, q{this is...})" with "shellwords(q{this is...})" is a simpler way to accomplish the same thing. SEE ALSO
Text::CSV - for parsing CSV files AUTHORS
Maintainer: Alexandr Ciornii <alexchornyATgmail.com>. Previous maintainer: Hal Pomeranz <pomeranz@netcom.com>, 1994-1997 (Original author unknown). Much of the code for &parse_line() (including the primary regexp) from Joerk Behrends <jbehrends@multimediaproduzenten.de>. Examples section another documentation provided by John Heidemann <johnh@ISI.EDU> Bug reports, patches, and nagging provided by lots of folks-- thanks everybody! Special thanks to Michael Schwern <schwern@envirolink.org> for assuring me that a &nested_quotewords() would be useful, and to Jeff Friedl <jfriedl@yahoo-inc.com> for telling me not to worry about error-checking (sort of-- you had to be there). POD ERRORS
Hey! The above document had some coding errors, which are explained below: Around line 250: Expected text after =item, not a number Around line 254: Expected text after =item, not a number Around line 258: Expected text after =item, not a number Around line 262: Expected text after =item, not a number Around line 266: Expected text after =item, not a number perl v5.16.3 2013-03-17 ParseWords(3)
All times are GMT -4. The time now is 09:42 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy