Re: how to append 2 lines

Hi,here is the sample input code...

LABEL#00001
         
         MVC   SYMBOL+2(4),X.PDES_KEY+2                               
+          
         MVC   SYMB_ART,=C'XSEQ'              //line comments         
+                         
                                                                      
+          
         F$SFH SELECT,LISTING,                                        
+ *        
               DESKART=SYMB_ART,                                      
+ *        
               DESKWERT=SYMBOL,                                       
+ *        
               MARKTCODE=L#MACF                                       
+          
         BNE   F03#000                     //line comments
[download]

my required output should be somewhat like this...

LABEL#00001
         
         MVC   SYMBOL+2(4),X.PDES_KEY+2                               
+          
         MVC   SYMB_ART,=C'XSEQ'              //line comments         
+                         
                                                                      
+          
         F$SFH SELECT,LISTING,DESKART=SYMB_ART,DESKWERT=SYMBOL,MARKTCO
+DE=L#MACF                                                 
         BNE   F03#000                     //line comments
[download]

[reply]
[d/l]
[select]

And your Perl code to join the lines is...

Hint: use three-argument form of substr to check the 72nd symbol of the line and use it again to replace the text. For example:

my $one = ("_"x9)."*__\n";
my $two = ("-"x15)."\n";
print "$one$two";
substr($one,9)="" if substr($one,9,1) eq "*";
print "$one$two";
[download]

Sorry if my advice was wrong.

[reply]
[d/l]

Ok, but that is only DATA, that is not perl

[reply]


Welcome to the Monastery
	PerlMonks