Sponsored Content
Top Forums Shell Programming and Scripting Reformatting Column into rows Post 302746107 by Don Cragun on Tuesday 18th of December 2012 07:01:35 PM
Old 12-18-2012
If you were looking for something that self adjusts based on the column headings and data to be displayed, you could try something like:
Code:
awk -F" : " '
# c[heading] = # of values accumulted for heading
# h[heading] = heading_field
# hc = # of headings
# ho[heading_field] = heading
# r = # of rows to be printed (not counting headings)
# v[heading,c[heading]] = value to be printed in row c[heading] under heading
# w[heading_field] = widest field data for heading_field
{       v[$1,++c[$1]] = $2
        if(!($1 in h)) {
                ho[++hc] = $1
                h[$1] = hc
                w[hc] = length($1)
        }
        if(w[h[$1]] < length($2)) w[h[$1]] = length($2)
        if(c[$1] > r) r = c[$1]$1, c[$1], $1, h[$1], hc, ho[hc], r, $1, $1, c[$1], v[$1,c[$1]], h[$1], w[h[$1]])}
END {   for(i = 1; i < hc; i++)
                printf("%-*.*s", w[i] + 3, w[i] + 3, ho[i])
        printf("%-s\n", ho[hc]);
        for(j = 1; j <= r; j++) {
                for(i = 1; i < hc; i++)
                        printf("%-*.*s", w[i] + 3, w[i] + 3, v[ho[i], j]);
                printf("%-s\n", v[ho[hc], j]);
        }
}' file

With the sample input file given in the 1st message in this thread, it produces the output:
Code:
xxx       11            xyz
yyy zzz   111 222 xxx   abc def
aaa bbb   555 333 yy    abc xyz

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

column to rows based on another column...

Guys, i have a file in below format where the barcode's are uniq per site but could be repeated for different site. so i want to convert the site column to rows based on the barcode's as below output. your help is appreciated!!! input: SITE BARCODE QTY SP CP 10001 6281103890017 10 50 48... (5 Replies)
Discussion started by: malcomex999
5 Replies

2. UNIX for Dummies Questions & Answers

How to sum rows in e.g. column 1 by a category in e.g. column 2

Hi, I've shown an example of what I would like to achieve below. In the example file, I would like to sum the values in column 2 for each distinct category in column 3 (presumably making an array?) and print the sum as well as the category name and length (note:length always corresponds with... (8 Replies)
Discussion started by: auburn
8 Replies

3. Shell Programming and Scripting

Rows to Column

I have a tab delimited file like this: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 I want it to look like: 1 7 13 2 8 14 3 9 15 4 10 16 5 11 17 6 12 18 (3 Replies)
Discussion started by: theawknewbie
3 Replies

4. Shell Programming and Scripting

Reformatting single column text file starting new line when finding particular string

Hi, I have a single colum file and I need to reformat the file so that it creates a new line every time it come to an IP address and the following lines are corresponding rows until it comes to the next IP address. I want to turn this 172.xx.xx.xx gwpusprdrp02_pv seinwnprd03... (7 Replies)
Discussion started by: kieranfoley
7 Replies

5. UNIX for Dummies Questions & Answers

Converting column to rows for every 3 lines in the column

Hi gurus! Please help me with this one. I have an file with the following contents: a b c d e f g h i j I would like to make to transform it to look like this as my output file: a,b,c d,e,f (4 Replies)
Discussion started by: kokoro
4 Replies

6. Shell Programming and Scripting

awk command to print only selected rows in a particular column specified by column name

Dear All, I have a data file input.csv like below. (Only five column shown here for example.) Data1,StepNo,Data2,Data3,Data4 2,1,3,4,5 3,1,5,6,7 3,2,4,5,6 5,3,5,5,6 From this I want the below output Data1,StepNo,Data2,Data3,Data4 2,1,3,4,5 3,1,5,6,7 where the second column... (4 Replies)
Discussion started by: ks_reddy
4 Replies

7. UNIX for Dummies Questions & Answers

merging rows into new file based on rows and first column

I have 2 files, file01= 7 columns, row unknown (but few) file02= 7 columns, row unknown (but many) now I want to create an output with the first field that is shared in both of them and then subtract the results from the rest of the fields and print there e.g. file 01 James|0|50|25|10|50|30... (1 Reply)
Discussion started by: A-V
1 Replies

8. UNIX for Dummies Questions & Answers

[Solved] Deleting all rows where the first column equals the second column

Hi, I have a tab delimited text file where the first two columns equal numbers. I want to delete all rows where the value in the first column equals the second column. How do I go about doing that? Thanks! Input: 1 1 ABC DEF 2 2 IJK LMN 1 2 ZYX OPW Output: 1 2 ZYX OPW (2 Replies)
Discussion started by: evelibertine
2 Replies

9. Shell Programming and Scripting

Converting Single Column into Multiple rows, but with strings to specific tab column

Dear fellows, I need your help. I'm trying to write a script to convert a single column into multiple rows. But it need to recognize the beginning of the string and set it to its specific Column number. Each Line (loop) begins with digit (RANGE). At this moment it's kind of working, but it... (6 Replies)
Discussion started by: AK47
6 Replies

10. Shell Programming and Scripting

Help reformatting column

Hello UNIX experts, I'm stumped finding a method to reformat a column. Input file is a two column tab-delimited file. Essentially, for every term that appears in column 2, I would like to summarize whether that term appears for every entry in column 1. In other words, make a header for each term... (2 Replies)
Discussion started by: torchij
2 Replies
Pod::Abstract::BuildNode(3pm)				User Contributed Perl Documentation			     Pod::Abstract::BuildNode(3pm)

NAME
Pod::Abstract::BuildNode - Build new nodes for use in Pod::Abstract. SYNOPSIS
use Pod::Abstract::BuildNode qw(node nodes); # shorthand my $root_doc = node->root; for(my $i = 1; $i < 10; $i ++) { $root_doc->push(node->head1("Heading number $i")); } print $root_doc->pod; DESCRIPTION
For building a new Pod::Abstract document, or adding nodes to an existing one. This provides easy methods to generate correctly set nodes for most common Pod::Abstract elements. NOTES
Pod::Abstract::BuildNode can export two functions, "node" and "nodes". These are constant functions to provide a shorthand so instead of writing: use Pod::Abstract::BuildNode; # ... my @nodes = Pod::Abstract::BuildNode->from_pod( $pod ); You can instead write: use Pod::Abstract::BuildNode qw(node nodes); # ... my @nodes = nodes->from_pod($pod); Which is more readable, and less typing. "node" and "nodes" are both synonyms of "Pod::Abstract::BuildNode". This shorthand form is shown in all the method examples below. All methods operate on the class. METHODS
from_pod my @nodes = nodes->from_pod($pod_text); Given some literal Pod text, generate a full subtree of nodes. The returned array is all of the top level nodes. The full document tree will be populated under the returned nodes. root my $root = node->root; Generate a root node. A root node generates no output, and is used to hold a document tree. Use this to make a new document. begin my $begin_block = node->begin($command); Generates a begin/end block. Nodes nested inside the begin node will appear between the begin/end. Note that there is no corresponding "end" method - the end command belongs to it's corresponding begin. for my $for = node->for('overlay from <class>'); Create a =for node. The argument is the literal body of the for node, no parsing will be performed. paragraph my $para = node->paragraph('Pod text'); Generates a Pod paragraph, possibly containing interior sequences. The argument will be parsed as Pod, and will generate text and sequence nodes inside the paragraph. verbatim my $v = node->verbatim($text); Add the given text as a verbatim node to the document. All lines in the fiven $text will be indented by one space to ensure they are treated as verbatim. heading my $head2 = node->heading(2, $heading); Generate a heading node at the given level. Nodes that "belong" in the heading's section should be nested in the heading node. The $heading text will be parsed for interior sequences. head1 node->head1($heading); head2 node->head2($heading); head3 node->head3($heading); head4 node->head4($heading); over my $list = node->over([$num]); Generates an over/back block, to contain list items. The optional parameter $num specifies the number of spaces to indent by. Note that the back node is part of the over, there is no separate back method. item my $item = node->item('*'); Generates an item with the specified label. To fill in the text of the item, nest paragraphs into the item. Items should be contained in over nodes. text my $text = node->text('Literal text'); Generates a literal text node. You generally do not want this, you probably want a paragraph. Use this if you want to, for example, append a word at the end of a paragraph. pod my $n = node->pod; Generates an "=pod" command. Can be useful to force pod mode at the end of cut nodes. Do not confuse with "from_pod"! my $cut = node->cut; Generates an explicit "=cut" command. AUTHOR
Ben Lilburne <bnej@mac.com> COPYRIGHT AND LICENSE
Copyright (C) 2009 Ben Lilburne This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. perl v5.10.1 2010-01-03 Pod::Abstract::BuildNode(3pm)
All times are GMT -4. The time now is 12:56 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy