Sponsored Content
Top Forums Shell Programming and Scripting Need perl or shell script to sort vertical lines to horizontal line in csv format Post 302698187 by durden_tyler on Saturday 8th of September 2012 08:02:31 PM
Old 09-08-2012
Code:
$
$
$ cat f11
================================================================================
PATH PINKY1000#I1-1-ZENTA1000-2#I7-1-ASON-SBR-UP-943113845
================================================================================

***** MAIN ROUTE *******

PINKY1000#I1-1-ZENTA1000-2#I7-1-ASON-SBR-UP-943113845A
Zenta1000-2#I7-1-sl4p04 28
ASON6_TECHNO/r01s3b04p04 28
ASON6_TECHNO/r01s3b06p01 05
ASON5_PINKY/r01s3b05p02 05
ASON5_PINKY/r01s3b16p01 12
PINKY1000#I1/1-sl16p01 12
PINKY1000#I1-1-ZENTA1000-2#I7-1-ASON-SBR-UP-94311384500

***** SPARE ROUTE *******

ASON6_TECHNO/r01s3b04p04 28
ASON6_TECHNO/r01s3b09p03 15
ASON5_PINKY/r01s3b09p03 15
ASON5_PINKY/r01s3b16p01 12

================================================================================
PATH EXCOM1000 I7-1 AU4#1-ROSY1000 I3-1 AU4#15-UP-NA-943109961
================================================================================

***** MAIN ROUTE *******

EXCOM1000 I7-1 AU4#1-ROSY1000 I3-1 AU4#15-UP-NA-943109961A
EXCOM1000#I7/1--sl16p03 01
ASON7_EXCOM/r01s3b16p03 01
ASON7_EXCOM/r01s3b04p02 44
ASON14_TURBHE2/r01s3b02p03 44
ASON14_TURBHE2/r01s3b04p02 03
ASON12_TURBHE/r01s3b19p02 03
ASON12_TURBHE/r01s3b05p01 30
ASON13_BALKRISHNA/r01s3b05p01 30
ASON13_BALKRISHNA/r01s3b04p04 15
Rosymery#I3/1-Balk#4/4 15
EXCOM1000 I7-1 AU4#1-ROSY1000 I3-1 AU4#15-UP-NA-94310996100
$
$
$ perl -lne 's/^\*+ (.*) \*+$/$1/;
             if (/^=+/){$i++; do{print join",",@x; @x=()} if ($i>2 and $i%2==1)}
             elsif(/^\S/i) {push @x,$_}
             END {print join ",",@x}
            ' f11
PATH PINKY1000#I1-1-ZENTA1000-2#I7-1-ASON-SBR-UP-943113845 ,MAIN ROUTE,PINKY1000#I1-1-ZENTA1000-2#I7-1-ASON-SBR-UP-943113845A ,Zenta1000-2#I7-1-sl4p04 28 ,ASON6_TECHNO/r01s3b04p04 28 ,ASON6_TECHNO/r01s3b06p01 05 ,ASON5_PINKY/r01s3b05p02 05 ,ASON5_PINKY/r01s3b16p01 12 ,PINKY1000#I1/1-sl16p01 12 ,PINK
Y1000#I1-1-ZENTA1000-2#I7-1-ASON-SBR-UP-94311384500 ,SPARE ROUTE,ASON6_TECHNO/r01s3b04p04 28,ASON6_TECHNO/r01s3b09p03 15 ,ASON5_PINKY/r01s3b09p03 15 ,ASON5_PINKY/r01s3b16p01 12
PATH EXCOM1000 I7-1 AU4#1-ROSY1000 I3-1 AU4#15-UP-NA-943109961 ,MAIN ROUTE,EXCOM1000 I7-1 AU4#1-ROSY1000 I3-1 AU4#15-UP-NA-943109961A ,EXCOM1000#I7/1--sl16p03 01 ,ASON7_EXCOM/r01s3b16p03 01 ,ASON7_EXCOM/r01s3b04p02 44 ,ASON14_TURBHE2/r01s3b02p03 44 ,ASON14_TURBHE2/r01s3b04p02 03 ,ASON12_TURBHE/r01s3
b19p02 03 ,ASON12_TURBHE/r01s3b05p01 30 ,ASON13_BALKRISHNA/r01s3b05p01 30 ,ASON13_BALKRISHNA/r01s3b04p04 15 ,Rosymery#I3/1-Balk#4/4 15 ,EXCOM1000 I7-1 AU4#1-ROSY1000 I3-1 AU4#15-UP-NA-94310996100
$
$

tyler_durden
 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

converting horizontal line to vertical line

how to use "tr" command to display horizontal line to vertical line for vertical to horizontal, the command is tr '\n' '\t' <inputfile but what is the command for horizontal to vertical Thanks Vasikaran (3 Replies)
Discussion started by: vasikaran
3 Replies

2. Shell Programming and Scripting

Draw a Horizontal and Vertical line on UNIX

I want to draw a horizontal and vertical line on Unix. Please suggest some solution. (11 Replies)
Discussion started by: allways4u21
11 Replies

3. Shell Programming and Scripting

Need help in changing vertical lines to horizontal line in a file

Hi, I have a file like below robert PREF: 3 AVAIL: henry PREF: 234 AVAIL: john PREF: 145,178 AVAIL: 123 matt PREF: 564,932 AVAIL: ten PREF: 389 AVAIL: kill (2 Replies)
Discussion started by: rocky1954
2 Replies

4. UNIX for Dummies Questions & Answers

How to move vertical line to Horizontal...

How to move a vertical line to Horizontal line.....Can i use a tr command? code is: StudentID Java .Net C# I want to move this line like this: StudentID Java .Net C# Please use code tags! (3 Replies)
Discussion started by: Arsh10
3 Replies

5. Shell Programming and Scripting

change log vertical to horizontal lines

Hi, Need help unix command to change this : become this Anyone can help me?:wall: (2 Replies)
Discussion started by: justbow
2 Replies

6. Shell Programming and Scripting

Script awk vertical to horizontal with some condition

hi all.. i have problem, right now i want to processing some data with input like this BIMAB ACF-0168 QTS-0465 QUA 2013-08-17 14:16:09.34 ** ALAR ORX -004 NDORIDUNGGA (21943) 7745 ABOVE DEFINED 02 00 01 00 00 00 01 00 00 01 03... (12 Replies)
Discussion started by: buncit8
12 Replies

7. Shell Programming and Scripting

Help! output format from vertical to horizontal

Hi All, please help to achieve the desired output Example: I have a file which contains the below data empname robert empid 787 design consultant empname alex empid 898 design advocate Desired output should be empname empid design robert 787 consultant (19 Replies)
Discussion started by: rocky2013
19 Replies

8. Shell Programming and Scripting

Change the vertical logs to horizontal line

Hi, cat log EPC-SubsId: 3333 EPC-GrIds: RTGHUPA:1:15-11-2013T19:59,22-11-2013T19:59 EPC-GrIds: PrimaXGB_23:10 EPC-SubsId: 4444 EPC-GrIds: RTGHUPB:1:15-11-2013T19:59,22-11-2013T19:59 EPC-SubId: 5555 EPC-GrIds: RTGHUPC:1:15-11-2013T19:59,22-11-2013T19:59 EPC-SubsId: 6666... (1 Reply)
Discussion started by: justbow
1 Replies

9. Emergency UNIX and Linux Support

Help parsing log from vertical to horizontal line

Hi Expert, i have log in attached (log.txt) i want the log result become horizontal line : recordOpeningTime,servedMSISDN,ratingGroup,datavolumeFBCUplink,datavolumeFBCDownlink 1502260153422B0800,196738930571,3,7946,2219 1502260153422B0800,196738930571,3,233,174... (4 Replies)
Discussion started by: justbow
4 Replies

10. UNIX for Beginners Questions & Answers

Convert a horizontal lines to vertical lines in a csv file

Hi.. I need some help in converting the below horizontal lines to vertical lines format. can anyone help me on this. input file Hour,1,2,3,4,5 90RT,106,111,111,112,111 output file Hour,90RT 1,106 2,111 3,111 4,112 5,111 (3 Replies)
Discussion started by: Raghuram717
3 Replies
csv(3tcl)							  CSV processing							 csv(3tcl)

__________________________________________________________________________________________________________________________________________________

NAME
csv - Procedures to handle CSV data. SYNOPSIS
package require Tcl 8.3 package require csv ?0.7.3? ::csv::iscomplete data ::csv::join values {sepChar ,} {delChar "} ::csv::joinlist values {sepChar ,} {delChar "} ::csv::joinmatrix matrix {sepChar ,} {delChar "} ::csv::read2matrix ?-alternate? chan m {sepChar ,} {expand none} ::csv::read2queue ?-alternate? chan q {sepChar ,} ::csv::report cmd matrix ?chan? ::csv::split ?-alternate? line {sepChar ,} {delChar "} ::csv::split2matrix ?-alternate? m line {sepChar ,} {expand none} ::csv::split2queue ?-alternate? q line {sepChar ,} ::csv::writematrix m chan {sepChar ,} {delChar "} ::csv::writequeue q chan {sepChar ,} {delChar "} _________________________________________________________________ DESCRIPTION
The csv package provides commands to manipulate information in CSV FORMAT (CSV = Comma Separated Values). COMMANDS
The following commands are available: ::csv::iscomplete data A predicate checking if the argument data is a complete csv record. The result is a boolean flag indicating the completeness of the data. The result is true if the data is complete. ::csv::join values {sepChar ,} {delChar "} Takes a list of values and returns a string in CSV format containing these values. The separator character can be defined by the caller, but this is optional. The default is ",". The quoting character can be defined by the caller, but this is optional. The default is '"'. ::csv::joinlist values {sepChar ,} {delChar "} Takes a list of lists of values and returns a string in CSV format containing these values. The separator character can be defined by the caller, but this is optional. The default is ",". The quoting character can be defined by the caller, but this is optional. The default is '"'. Each element of the outer list is considered a record, these are separated by newlines in the result. The ele- ments of each record are formatted as usual (via ::csv::join). ::csv::joinmatrix matrix {sepChar ,} {delChar "} Takes a matrix object following the API specified for the struct::matrix package and returns a string in CSV format containing these values. The separator character can be defined by the caller, but this is optional. The default is ",". The quoting character can be defined by the caller, but this is optional. The default is '"'. Each row of the matrix is considered a record, these are separated by newlines in the result. The elements of each record are formatted as usual (via ::csv::join). ::csv::read2matrix ?-alternate? chan m {sepChar ,} {expand none} A wrapper around ::csv::split2matrix (see below) reading CSV-formatted lines from the specified channel (until EOF) and adding them to the given matrix. For an explanation of the expand argument see ::csv::split2matrix. ::csv::read2queue ?-alternate? chan q {sepChar ,} A wrapper around ::csv::split2queue (see below) reading CSV-formatted lines from the specified channel (until EOF) and adding them to the given queue. ::csv::report cmd matrix ?chan? A report command which can be used by the matrix methods format 2string and format 2chan. For the latter this command delegates the work to ::csv::writematrix. cmd is expected to be either printmatrix or printmatrix2channel. The channel argument, chan, has to be present for the latter and must not be present for the first. ::csv::split ?-alternate? line {sepChar ,} {delChar "} converts a line in CSV format into a list of the values contained in the line. The character used to separate the values from each other can be defined by the caller, via sepChar, but this is optional. The default is ",". The quoting character can be defined by the caller, but this is optional. The default is '"'. If the option -alternate is specified a slightly different syntax is used to parse the input. This syntax is explained below, in the section FORMAT. ::csv::split2matrix ?-alternate? m line {sepChar ,} {expand none} The same as ::csv::split, but appends the resulting list as a new row to the matrix m, using the method add row. The expansion mode specified via expand determines how the command handles a matrix with less columns than contained in line. The allowed modes are: none This is the default mode. In this mode it is the responsibility of the caller to ensure that the matrix has enough columns to contain the full line. If there are not enough columns the list of values is silently truncated at the end to fit. empty In this mode the command expands an empty matrix to hold all columns of the specified line, but goes no further. The overall effect is that the first of a series of lines determines the number of columns in the matrix and all following lines are truncated to that size, as if mode none was set. auto In this mode the command expands the matrix as needed to hold all columns contained in line. The overall effect is that after adding a series of lines the matrix will have enough columns to hold all columns of the longest line encountered so far. ::csv::split2queue ?-alternate? q line {sepChar ,} The same as ::csv::split, but appending the resulting list as a single item to the queue q, using the method put. ::csv::writematrix m chan {sepChar ,} {delChar "} A wrapper around ::csv::join taking all rows in the matrix m and writing them CSV formatted into the channel chan. ::csv::writequeue q chan {sepChar ,} {delChar "} A wrapper around ::csv::join taking all items in the queue q (assumes that they are lists) and writing them CSV formatted into the channel chan. FORMAT
The format of regular CSV files is specified as [1] Each record of a csv file (comma-separated values, as exported e.g. by Excel) is a set of ASCII values separated by ",". For other languages it may be ";" however, although this is not important for this case as the functions provided here allow any separator character. [2] If and only if a value contains itself the separator ",", then it (the value) has to be put between "". If the value does not con- tain the separator character then quoting is optional. [3] If a value contains the character ", that character is represented by "". [4] The output string "" represents the value ". In other words, it is assumed that it was created through rule 3, and only this rule, i.e. that the value was not quoted. An alternate format definition mainly used by MS products specifies that the output string "" is a representation of the empty string. In other words, it is assumed that the output was generated out of the empty string by quoting it (i.e. rule 2), and not through rule 3. This is the only difference between the regular and the alternate format. The alternate format is activated through specification of the option -alternate to the various split commands. EXAMPLE
Using the regular format the record 123,"123,521.2","Mary says ""Hello, I am Mary""","" is parsed into the items a) 123 b) 123,521.2 c) Mary says "Hello, I am Mary" d) " Using the alternate format the result is a) 123 b) 123,521.2 c) Mary says "Hello, I am Mary" d) (the empty string) instead. As can be seen only item (d) is different, now the empty string instead of a ". BUGS, IDEAS, FEEDBACK This document, and the package it describes, will undoubtedly contain bugs and other problems. Please report such in the category csv of the Tcllib SF Trackers [http://sourceforge.net/tracker/?group_id=12883]. Please also report any ideas for enhancements you may have for either package and/or documentation. SEE ALSO
matrix, queue KEYWORDS
csv, matrix, package, queue, tcllib CATEGORY
Text processing COPYRIGHT
Copyright (c) 2002-2011 Andreas Kupries <andreas_kupries@users.sourceforge.net> csv 0.7.3 csv(3tcl)
All times are GMT -4. The time now is 07:37 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy