Need perl or shell script to sort vertical lines to horizontal line in csv format

Shell Programming and Scripting
1

Need perl or shell script to sort vertical lines to horizontal line in csv format

My file like below

================================================================================
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

Need out put like

1) PATH EXCOM1000 I7-1 AU4#1-ROSY1000 I3-1 AU4#15-UP-NA-943109961A MAIN ROUTE PINKY1000#I1-1-ZENTA1000-2#I7-1-ASON-SBR-UP-943113845A Zenta1000-2#I7-1-sl4p04 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

2) 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 EXCOM1000#I7/1--sl16p03 01 ASON7_EXCOM/r01s3b04p02 44

So on

:wall:

please help me.....

2

I can only say one thing, very very vague requirement description!

You only mention some part of your input and then mention the required output without saying how (the method) to get that output. Even if I try to deduce the method by looking at the data provided, I simply can't (may be others can, I doubt that though ;)).

You mention a csv format output and I don't see a single comma in the required output.

Please express your requirement in a better way to get quick and relevant answers.

And I forgot to mention, you also hijack some other thread!

3

hi thanks for your reply,
i have attachec the txt file which containes all the paths, that is extacted from the database, but it is giving virticale but requrment is horizontl format.
just telm is there any other way like, VB or XL

4 
$
$
$ 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

5

it is working:b:, i am trying with big now..