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(3pm)						User Contributed Perl Documentation						  CSV(3pm)

NAME
Class::CSV - Class based CSV parser/writer SYNOPSIS
use Class::CSV; my $csv = Class::CSV->parse( filename => 'test.csv', fields => [qw/item qty sub_total/] ); foreach my $line (@{$csv->lines()}) { $line->sub_total('$'. sprintf("%0.2f", $line->sub_total())); print 'Item: '. $line->item(). " ". 'Qty: '. $line->qty(). " ". 'SubTotal: '. $line->sub_total(). " "; } my $cvs_as_string = $csv->string(); $csv->print(); my $csv = Class::CSV->new( fields => [qw/userid username/], line_separator => " "; ); $csv->add_line([2063, 'testuser']); $csv->add_line({ userid => 2064, username => 'testuser2' }); DESCRIPTION
This module can be used to create objects from CSV files, or to create CSV files from objects. Text::CSV_XS is used for parsing and creating CSV file lines, so any limitations in Text::CSV_XS will of course be inherant in this module. EXPORT None by default. METHOD
CONSTRUCTOR parse the parse constructor takes a hash as its paramater, the various options that can be in this hash are detailed below. Required Options o fields - an array ref containing the list of field names to use for each row. there are some reserved words that cannot be used as field names, there is no checking done for this at the moment but it is something to be aware of. the reserved field names are as follows: "string", "set", "get". also field names cannot contain whitespace or any characters that would not be allowed in a method name. Source Options (only one of these is needed) o filename - the path of the CSV file to be opened and parsed. o filehandle - the file handle of the CSV file to be parsed. o objects - an array ref of objects (e.g. Class::DBI objects). for this to work properly the field names provided in fields needs to correspond to the field names of the objects in the array ref. o classdbi_objects - depreciated use objects instead - using classdbi_objects will still work but its advisable to update your code. Optional Options o line_separator - the line seperator to be included at the end of every line. defaulting to " " (unix carriage return). new the new constructor takes a hash as its paramater, the same options detailed in parse apply to new however no Source Options can be used. this constructor creates a blank CSV object of which lines can be added via add_line. ACCESSING lines returns an array ref containing objects of each CSV line (made via Class::Accessor). the field names given upon construction are available as accessors and can be set or get. for more information please see the notes below or the perldoc for Class::Accessor. the lines accessor is also able to be updated/retrieved in the same way as individual lines fields (examples below). Example retrieving the lines: my @lines = @{$csv->lines()}; removing the first line: pop @lines; $csv->lines(@lines); sorting the lines: @lines = sort { $a->userid() <=> $b->userid() } @lines: $csv->lines(@lines); sorting the lines (all-in-one way): $csv->lines([ sort { $a->userid() <=> $b->userid() } @{$csv->lines()} ]); Retrieving a fields value there is two ways to retrieve a fields value (as documented in Class::Accessor). firstly you can call the field name on the object and secondly you can call "get" on the object with the field name as the argument (multiple field names can be specified to retrieve an array of values). examples are below. my $value = $line->test(); OR my $value = $line->get('test'); OR my @values = $line->get(qw/test test2 test3/); Setting a fields value setting a fields value is simmilar to getting a fields value. there are two ways to set a fields value (as documented in Class::Accessor). firstly you can simply call the field name on the object with the value as the argument or secondly you can call "set" on the object with a hash of fields and their values to set (this isn't standard in Class::Accessor, i have overloaded the "set" method to allow this). examples are below. $line->test('123'); OR $line->set( test => '123' ); OR $line->set( test => '123', test2 => '456' ); Retrieving a line as a string to retrieve a line as a string simply call "string" on the object. my $string = $line->string(); new_line returns a new line object, this can be useful for to "splice" a line into lines (see example below). you can pass the values of the line as an ARRAY ref or a HASH ref. Example my $line = $csv->new_line({ userid => 123, domainname => 'splicey.com' }); my @lines = $csv->lines(); splice(@lines, 1, 0, $line); OR splice(@{$csv->lines()}, 1, 0, $csv->new_line({ userid => 123, domainname => 'splicey.com' })); add_line adds a line to the lines stack. this is mainly useful when the new constructor is used but can of course be used with any constructor. it will add a new line to the end of the lines stack. you can pass the values of the line as an ARRAY ref or a HASH ref. examples of how to use this are below. Example $csv->add_line(['house', 100000, 4]); $csv->add_line({ item => 'house', cost => 100000, bedrooms => 4 }); OUTPUT string returns the object as a string (CSV file format). print calls "print" on string (prints the CSV to STDOUT). SEE ALSO
Text::CSV_XS, Class::Accessor AUTHOR
David Radunz, <david@boxen.net> COPYRIGHT AND LICENSE
Copyright 2004 by David Radunz This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. perl v5.10.0 2007-02-08 CSV(3pm)
All times are GMT -4. The time now is 09:08 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy