Converting multiline text to a single line seperated by commas

[sappleg]

Hi Guys,

I am trying to convert a multiple lines into a single line within the text file I have. Currently, I have this in the txt file:

Stores Updated: 626
Stores Created: 0
STATUS:09/01/2009ASS

I want the output in the same file as (in a single line)

Stores Updated: 626, Stores Created: 0,
STATUS:09/01/2009ASS

I am novice so don't have any idea how to achieve this? Any help is greatly appreciated.
Thanks very much in advance.

 

[max1x]

Are you a novice to Perl or coding in general?

 

[sappleg]

Novice to Perl only.

 

[max1x]

Not really an Optimal Sol and makes some assumptions:

#!/path/to/perl

while(<DATA>) {
        if ($_ =~ /Stores/i) {
                my ($val1,$val2) = split(/\n/,$_);
                print "$val1,$val2";
        } else {
                print "\n$_";
          }
}

__DATA__
Stores Updated: 626
Stores Created:  0
STATUS:09/01/2009:PASS
Stores Updated: 627
Stores Created:  0
STATUS:09/01/2009:PASS
Stores Updated: 628
Stores Created:  0
STATUS:09/01/2009:PASS

RESULTS IN:

Stores Updated: 626,Stores Created: 0,
STATUS:09/01/2009ASS
Stores Updated: 627,Stores Created: 0,
STATUS:09/01/2009ASS
Stores Updated: 628,Stores Created: 0,
STATUS:09/01/2009ASS

 

[sappleg]

Thanks max1x,

I will try this and make changes wherever necessary.

 

[rharsh]

Based only on the data you've supplied, you could do something like this:

while (<DATA>) {
	chomp and $_ .= ", " if m/Stores Updated/i;
	print;
}